File Coverage

blib/lib/POE/Component/Server/HTTPServer/NotFoundHandler.pm

Criterion	Covered	Total	%
statement	12	23	52.1
branch	0	4	0.0
condition			n/a
subroutine	4	6	66.6
pod	1	2	50.0
total	17	35	48.5

package POE::Component::Server::HTTPServer::NotFoundHandler;
use strict;
use HTTP::Status;
use POE::Component::Server::HTTPServer::Handler qw( H_CONT H_FINAL );
use base 'POE::Component::Server::HTTPServer::Handler';

our $Instance;

sub new {
  my $class = shift;
  $Instance = bless {}, $class
    unless defined($Instance);
  return $Instance;
}

sub handle {
  my $self = shift;
  my $context = shift;
  $context->{response}->code( RC_NOT_FOUND );
  my $message = "";
  if ( defined($context->{error_message}) ) {
    $message = ":$context->{error_message}\n";
  }
  $context->{response}->content("Not Found$message");
  return H_FINAL;
}

1;
__END__