File Coverage

blib/lib/POE/Queue.pm
Criterion Covered Total %
statement 8 8 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod 1 1 100.0
total 12 12 100.0


line stmt bran cond sub pod time code
1             package POE::Queue;
2              
3 1     1   24290 use vars qw($VERSION);
  1         2  
  1         66  
4             $VERSION = '1.365'; # NOTE - Should be #.### (three decimal places)
5              
6 1     1   5 use Carp qw(croak);
  1         2  
  1         108  
7              
8             sub new {
9 1     1 1 9 my $type = shift;
10 1         155 croak "$type is a virtual base class and not meant to be used directly";
11             }
12              
13             1;
14              
15             __END__