File Coverage

blib/lib/Sprocket/Event.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition 1 3 33.3
subroutine 5 5 100.0
pod 1 1 100.0
total 21 23 91.3


line stmt bran cond sub pod time code
1             package Sprocket::Event;
2              
3 8     8   7224 use Class::Accessor::Fast;
  8         30897  
  8         81  
4 8     8   287 use base qw( Class::Accessor::Fast );
  8         16  
  8         678  
5              
6 8     8   41 use strict;
  8         139  
  8         207  
7 8     8   43 use warnings;
  8         16  
  8         655  
8              
9             __PACKAGE__->mk_accessors( qw(
10             hook
11             source
12             ) );
13              
14             sub new {
15 92     92 1 149 my $class = shift;
16 92   33     580 bless( shift, ref $class || $class);
17             }
18              
19              
20             1;
21              
22             __END__