line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package H; |
2
|
1
|
|
|
1
|
|
75773
|
use strict; |
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
24
|
|
3
|
1
|
|
|
1
|
|
4
|
use warnings; |
|
1
|
|
|
|
|
1
|
|
|
1
|
|
|
|
|
53
|
|
4
|
|
|
|
|
|
|
|
5
|
|
|
|
|
|
|
our $VERSION = '0.001'; |
6
|
|
|
|
|
|
|
|
7
|
|
|
|
|
|
|
require HS; |
8
|
|
|
|
|
|
|
require HD; |
9
|
|
|
|
|
|
|
require HF; |
10
|
|
|
|
|
|
|
require HL; |
11
|
|
|
|
|
|
|
require HA; |
12
|
|
|
|
|
|
|
require HH; |
13
|
|
|
|
|
|
|
|
14
|
|
|
|
|
|
|
{ |
15
|
1
|
|
|
1
|
|
12
|
no warnings 'once'; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
113
|
|
16
|
|
|
|
|
|
|
*AUTOLOAD = *HS::AUTOLOAD; |
17
|
|
|
|
|
|
|
*h::AUTOLOAD = *HS::AUTOLOAD; |
18
|
|
|
|
|
|
|
*hs::AUTOLOAD = *HS::AUTOLOAD; |
19
|
|
|
|
|
|
|
*hd::AUTOLOAD = *HD::AUTOLOAD; |
20
|
|
|
|
|
|
|
*hf::AUTOLOAD = *HF::AUTOLOAD; |
21
|
|
|
|
|
|
|
*hl::AUTOLOAD = *HL::AUTOLOAD; |
22
|
|
|
|
|
|
|
*ha::AUTOLOAD = *HA::AUTOLOAD; |
23
|
|
|
|
|
|
|
*hh::AUTOLOAD = *HH::AUTOLOAD; |
24
|
|
|
|
|
|
|
} |
25
|
|
|
|
|
|
|
|
26
|
|
|
|
|
|
|
1; |
27
|
|
|
|
|
|
|
|
28
|
|
|
|
|
|
|
__END__ |