package RSApache::Response::Code;

# This Response class just returns a HTTP code - No XML, no html, no content of any sort.
#

use strict;
use warnings;

use lib '/app/tools/common/lib';
use Common::WriteXML;
use Common::Assert;

use RSApache::Response;
use base 'RSApache::Response';

sub _init {
    my ( $self, $code ) = @_;
    assert( defined $code );

    $self->{responseCode} = $code;
}

sub respond {
    my ( $self, $apache ) = @_;

    my $code = $self->{responseCode};

    $apache->status($code);
    $apache->send_http_header();

    return $code;
}

###
1;    # Play nicely.
###