File Coverage

blib/lib/Tangerine/HookData.pm
Criterion Covered Total %
statement 16 16 100.0
branch n/a
condition 6 6 100.0
subroutine 8 8 100.0
pod 4 5 80.0
total 34 35 97.1


line stmt bran cond sub pod time code
1             package Tangerine::HookData;
2             $Tangerine::HookData::VERSION = '0.23';
3 16     16   949 use strict;
  16         17  
  16         334  
4 16     16   50 use warnings;
  16         13  
  16         315  
5 16     16   46 use Tangerine::Utils qw/accessor/;
  16         17  
  16         2307  
6              
7             sub new {
8 190     190 0 496 my $class = shift;
9 190         239 my %args = @_;
10             bless {
11             _children => $args{children} // [],
12             _hooks => $args{hooks} // [],
13             _modules => $args{modules} // {},
14             _type => $args{type},
15 190   100     1938 }, $class
      100        
      100        
16             }
17              
18 212     212 1 298 sub children { accessor _children => @_ }
19 207     207 1 270 sub hooks { accessor _hooks => @_ }
20 190     190 1 649 sub modules { accessor _modules => @_ }
21 22     22 1 32 sub type { accessor _type => @_ }
22              
23             1;
24              
25             __END__