File Coverage

blib/lib/POEx/HTTP/Server/Error.pm

Criterion	Covered	Total	%
statement	10	18	55.5
branch			n/a
condition			n/a
subroutine	4	8	50.0
pod	4	5	80.0
total	18	31	58.0

# $Id: Error.pm 909 2012-07-13 15:38:39Z fil $
# Copyright 2010 Philip Gwyn

package POEx::HTTP::Server::Error;

use strict;
use warnings;

use base qw( POEx::HTTP::Server::Response );

sub details
{
    my( $self, $op, $errnum, $errstr ) = @_;
    $self->{op} = $op;
    $self->{errnum} = $errnum;
    $self->{errstr} = $errstr;

    $self->content( "$op error [$errnum] $errstr" );
}

sub op     { $_[0]->{op} }
sub errnum { $_[0]->{errnum} }
sub errstr { $_[0]->{errstr} }
sub errstring { $_[0]->{errstring} }

1;

__END__