File Coverage

blib/lib/Tangerine/hook/require.pm
Criterion Covered Total %
statement 21 21 100.0
branch 6 6 100.0
condition 3 3 100.0
subroutine 6 6 100.0
pod 1 1 100.0
total 37 37 100.0


line stmt bran cond sub pod time code
1             package Tangerine::hook::require;
2             $Tangerine::hook::require::VERSION = '0.19';
3 15     15   978 use strict;
  15         27  
  15         433  
4 15     15   62 use warnings;
  15         21  
  15         429  
5 15     15   65 use parent 'Tangerine::Hook';
  15         20  
  15         84  
6 15     15   899 use Tangerine::HookData;
  15         18  
  15         287  
7 15     15   64 use Tangerine::Occurence;
  15         20  
  15         2104  
8              
9             sub run {
10 128     128 1 158 my ($self, $s) = @_;
11 128 100 100     397 if (scalar(@$s) > 1 && $s->[0] eq 'require') {
12 15 100       139 return if $s->[1] eq ';';
13 14         116 my $module = $s->[1];
14 14 100       39 return Tangerine::HookData->new(
15             modules => { $module => Tangerine::Occurence->new },
16             ) unless $module =~ /^v?5(\..*)?$/;
17             }
18 115         1213 return;
19             }
20              
21             1;
22              
23             __END__