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   14047 use vars qw($VERSION);
  1         1  
  1         53  
4             $VERSION = '1.366'; # NOTE - Should be #.### (three decimal places)
5              
6 1     1   3 use Carp qw(croak);
  1         1  
  1         88  
7              
8             sub new {
9 1     1 1 10 my $type = shift;
10 1         176 croak "$type is a virtual base class and not meant to be used directly";
11             }
12              
13             1;
14              
15             __END__