File Coverage

blib/lib/Tangerine/hook/package.pm
Criterion Covered Total %
statement 20 20 100.0
branch 4 4 100.0
condition 2 3 66.6
subroutine 6 6 100.0
pod 1 1 100.0
total 33 34 97.0


line stmt bran cond sub pod time code
1             package Tangerine::hook::package;
2             $Tangerine::hook::package::VERSION = '0.23';
3 16     16   636 use strict;
  16         18  
  16         375  
4 16     16   47 use warnings;
  16         17  
  16         381  
5 16     16   5764 use parent 'Tangerine::Hook';
  16         3624  
  16         71  
6 16     16   5460 use Tangerine::HookData;
  16         29  
  16         307  
7 16     16   95 use Tangerine::Occurence;
  16         15  
  16         1178  
8              
9             sub run {
10 142     142 1 134 my ($self, $s) = @_;
11 142 100 66     180 if ($s->[0] eq 'package' && scalar(@$s) > 1) {
12 2 100       22 return if $s->[1] eq ';';
13 1         11 return Tangerine::HookData->new(
14             modules => {
15             $s->[1] => Tangerine::Occurence->new,
16             },
17             );
18             }
19 140         1084 return;
20             }
21              
22             1;
23              
24             __END__