line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package Package::Subroutine::Sugar |
2
|
|
|
|
|
|
|
# ********************************** |
3
|
2
|
|
|
2
|
|
101482
|
; use strict; use warnings |
|
2
|
|
|
|
|
6
|
|
|
2
|
|
|
|
|
74
|
|
4
|
|
|
|
|
|
|
# ************************ |
5
|
2
|
|
|
2
|
|
12
|
; our $VERSION='0.02' |
|
2
|
|
|
|
|
5
|
|
|
2
|
|
|
|
|
277
|
|
6
|
|
|
|
|
|
|
# ******************* |
7
|
|
|
|
|
|
|
|
8
|
|
|
|
|
|
|
; sub import |
9
|
|
|
|
|
|
|
{ eval <<'__PERL__' |
10
|
|
|
|
|
|
|
; package from |
11
|
|
|
|
|
|
|
# ************ |
12
|
|
|
|
|
|
|
; our $VERSION='0.08' |
13
|
|
|
|
|
|
|
; no warnings 'redefine' |
14
|
|
|
|
|
|
|
; use Package::Subroutine 'Package::Subroutine' |
15
|
|
|
|
|
|
|
=> qw/import export findsubs mixin version/ |
16
|
|
|
|
|
|
|
__PERL__ |
17
|
2
|
|
|
2
|
|
12
|
} |
|
2
|
|
|
2
|
|
3
|
|
|
2
|
|
|
2
|
|
86
|
|
|
2
|
|
|
|
|
1116
|
|
|
2
|
|
|
|
|
7
|
|
|
2
|
|
|
|
|
13
|
|
|
2
|
|
|
|
|
176
|
|
18
|
|
|
|
|
|
|
|
19
|
|
|
|
|
|
|
; sub unimport |
20
|
1
|
|
|
1
|
|
6571
|
{ delete $::{'from::'} |
21
|
|
|
|
|
|
|
} |
22
|
|
|
|
|
|
|
|
23
|
|
|
|
|
|
|
; 1 |
24
|
|
|
|
|
|
|
|
25
|
|
|
|
|
|
|
__END__ |