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__ |