view release on metacpan or  search on metacpan

RequestRec.pm  view on Meta::CPAN

sub content_type
{
    my ($self, $new_content_type) = @_;

    $self->headers_out->{'Content-Type'} = $new_content_type if $new_content_type;

    return $self->headers_out->{'Content-Type'};
}


sub err_headers_out()
{
    return shift->headers_out;
}

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

    return $handler // 'perl-script';
}


sub header_only()
{
    return 0;
}

sub hostname()
{
    return "localhost";
}

sub method_number
{
    my ($self, $arg) = @_;

    my $mn = "Apache2::Const::M_" . $self->method();