File Coverage

blib/lib/POE/Component/Server/HTTPServer/Handler.pm
Criterion Covered Total %
statement 15 21 71.4
branch n/a
condition n/a
subroutine 5 8 62.5
pod 1 2 50.0
total 21 31 67.7


line stmt bran cond sub pod time code
1             package POE::Component::Server::HTTPServer::Handler;
2 5     5   23202 use strict;
  5         11  
  5         179  
3 5     5   26 use Carp;
  5         10  
  5         369  
4 5     5   63 use base 'Exporter';
  5         8  
  5         862  
5             our @EXPORT = qw( H_CONT H_FINAL );
6              
7 5     5   29 use constant H_CONT => 0;
  5         18  
  5         937  
8 5     5   26 use constant H_FINAL => 1;
  5         11  
  5         842  
9              
10             sub new {
11 0     0 0   my $class = shift;
12 0           my $self = bless {}, $class;
13 0           $self->_init(@_);
14 0           return $self;
15             }
16              
17 0     0     sub _init { }
18              
19             sub handle {
20 0     0 1   croak "Cannot call handle on unextended package ", __PACKAGE__, "\n";
21             }
22              
23             1;
24             __END__