| line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
|
1
|
|
|
|
|
|
|
package Package::CopyFrom::Test; |
|
2
|
|
|
|
|
|
|
|
|
3
|
|
|
|
|
|
|
our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY |
|
4
|
|
|
|
|
|
|
our $DATE = '2020-02-16'; # DATE |
|
5
|
|
|
|
|
|
|
our $DIST = 'Package-CopyFrom'; # DIST |
|
6
|
|
|
|
|
|
|
our $VERSION = '0.003'; # VERSION |
|
7
|
|
|
|
|
|
|
|
|
8
|
|
|
|
|
|
|
our $SCALAR1 = "test1"; |
|
9
|
|
|
|
|
|
|
our $SCALAR2 = "test2"; |
|
10
|
|
|
|
|
|
|
our @ARRAY1 = ("elem1", "elem2"); |
|
11
|
|
|
|
|
|
|
our @ARRAY2 = ("elem3", "elem4"); |
|
12
|
|
|
|
|
|
|
our %HASH1 = (key1=>1, key2=>[2]); |
|
13
|
|
|
|
|
|
|
our %HASH2 = (key3=>3, key4=>4); |
|
14
|
|
|
|
|
|
|
|
|
15
|
|
|
|
|
|
|
our @ISA = qw(Exporter); |
|
16
|
|
|
|
|
|
|
our @EXPORT_OK = qw(func1); |
|
17
|
|
|
|
|
|
|
our %EXPORT_TAGS = ( |
|
18
|
|
|
|
|
|
|
T1 => [qw/func1 func2/], |
|
19
|
|
|
|
|
|
|
T2 => [qw/func2 func3/], |
|
20
|
|
|
|
|
|
|
); |
|
21
|
|
|
|
|
|
|
|
|
22
|
7
|
|
|
7
|
0
|
50915
|
sub func1 { return "from test 1: $_[0]" } |
|
23
|
8
|
|
|
8
|
0
|
38
|
sub func2 { return "from test 2: $_[0]" } |
|
24
|
6
|
|
|
6
|
0
|
56
|
sub func3 { return "from test 3: $_[0]" } |
|
25
|
|
|
|
|
|
|
|
|
26
|
|
|
|
|
|
|
1; |
|
27
|
|
|
|
|
|
|
|
|
28
|
|
|
|
|
|
|
# ABSTRACT: A dummy module for testing |
|
29
|
|
|
|
|
|
|
|
|
30
|
|
|
|
|
|
|
__END__ |