line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package Perinci::Package::CopyContents::Test; |
2
|
|
|
|
|
|
|
|
3
|
|
|
|
|
|
|
our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY |
4
|
|
|
|
|
|
|
our $DATE = '2020-02-16'; # DATE |
5
|
|
|
|
|
|
|
our $DIST = 'Perinci-Package-CopyContents'; # DIST |
6
|
|
|
|
|
|
|
our $VERSION = '0.002'; # VERSION |
7
|
|
|
|
|
|
|
|
8
|
|
|
|
|
|
|
our %SPEC; |
9
|
|
|
|
|
|
|
|
10
|
|
|
|
|
|
|
BEGIN { |
11
|
1
|
|
|
1
|
|
458
|
$SPEC{'$SCALAR1'}={v=>1.1, summary=>'SCALAR1'}; |
12
|
1
|
|
|
|
|
3
|
$SPEC{'$SCALAR2'}={v=>1.1, summary=>'SCALAR2'}; |
13
|
|
|
|
|
|
|
|
14
|
1
|
|
|
|
|
2
|
$SPEC{'@ARRAY1'}={v=>1.1, summary=>'ARRAY1'}; |
15
|
1
|
|
|
|
|
3
|
$SPEC{'@ARRAY2'}={v=>1.1, summary=>'ARRAY2'}; |
16
|
|
|
|
|
|
|
|
17
|
1
|
|
|
|
|
1
|
$SPEC{'%HASH1'}={v=>1.1, summary=>'HASH1'}; |
18
|
1
|
|
|
|
|
3
|
$SPEC{'%HASH2'}={v=>1.1, summary=>'HASH2'}; |
19
|
|
|
|
|
|
|
|
20
|
1
|
|
|
|
|
2
|
$SPEC{'func1'}={v=>1.1, summary=>'func1'}; |
21
|
1
|
|
|
|
|
2
|
$SPEC{'func2'}={v=>1.1, summary=>'func2'}; |
22
|
1
|
|
|
|
|
201
|
$SPEC{'func3'}={v=>1.1, summary=>'func3'}; |
23
|
|
|
|
|
|
|
} |
24
|
|
|
|
|
|
|
|
25
|
|
|
|
|
|
|
our $SCALAR1 = "test1"; |
26
|
|
|
|
|
|
|
our $SCALAR2 = "test2"; |
27
|
|
|
|
|
|
|
|
28
|
|
|
|
|
|
|
our @ARRAY1 = ("elem1", "elem2"); |
29
|
|
|
|
|
|
|
our @ARRAY2 = ("elem3", "elem4"); |
30
|
|
|
|
|
|
|
|
31
|
|
|
|
|
|
|
our %HASH1 = (key1=>1, key2=>[2]); |
32
|
|
|
|
|
|
|
our %HASH2 = (key3=>3, key4=>4); |
33
|
|
|
|
|
|
|
|
34
|
|
|
|
|
|
|
our @ISA = qw(Exporter); |
35
|
|
|
|
|
|
|
our @EXPORT_OK = qw(func1); |
36
|
|
|
|
|
|
|
our %EXPORT_TAGS = ( |
37
|
|
|
|
|
|
|
T1 => [qw/func1 func2/], |
38
|
|
|
|
|
|
|
T2 => [qw/func2 func3/], |
39
|
|
|
|
|
|
|
); |
40
|
|
|
|
|
|
|
|
41
|
0
|
|
|
0
|
1
|
|
sub func1 { return "from test 1: $_[0]" } |
42
|
|
|
|
|
|
|
|
43
|
0
|
|
|
0
|
1
|
|
sub func2 { return "from test 2: $_[0]" } |
44
|
|
|
|
|
|
|
|
45
|
0
|
|
|
0
|
1
|
|
sub func3 { return "from test 3: $_[0]" } |
46
|
|
|
|
|
|
|
|
47
|
|
|
|
|
|
|
1; |
48
|
|
|
|
|
|
|
|
49
|
|
|
|
|
|
|
# ABSTRACT: A dummy module for testing |
50
|
|
|
|
|
|
|
|
51
|
|
|
|
|
|
|
__END__ |