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.23';
3 16     16   605 use strict;
  16         16  
  16         329  
4 16     16   40 use warnings;
  16         18  
  16         294  
5 16     16   42 use parent 'Tangerine::Hook';
  16         16  
  16         69  
6 16     16   703 use Tangerine::HookData;
  16         55  
  16         237  
7 16     16   61 use Tangerine::Occurence;
  16         13  
  16         1802  
8              
9             sub run {
10 138     138 1 116 my ($self, $s) = @_;
11 138 100 100     326 if (scalar(@$s) > 1 && $s->[0] eq 'require') {
12 15 100       112 return if $s->[1] eq ';';
13 14         81 my $module = $s->[1];
14 14 100       30 return Tangerine::HookData->new(
15             modules => { $module => Tangerine::Occurence->new },
16             ) unless $module =~ /^v?5(?:\..*)?$/;
17             }
18 125         960 return;
19             }
20              
21             1;
22              
23             __END__