File Coverage

blib/lib/Perinci/Package/CopyFrom/Test.pm
Criterion Covered Total %
statement 9 12 75.0
branch n/a
condition n/a
subroutine 1 4 25.0
pod 3 3 100.0
total 13 19 68.4


line stmt bran cond sub pod time code
1             package Perinci::Package::CopyFrom::Test;
2              
3             our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
4             our $DATE = '2020-02-16'; # DATE
5             our $DIST = 'Perinci-Package-CopyFrom'; # DIST
6             our $VERSION = '0.001'; # VERSION
7              
8             our %SPEC;
9              
10             BEGIN {
11 1     1   553 $SPEC{'$SCALAR1'}={v=>1.1, summary=>'SCALAR1'};
12 1         3 $SPEC{'$SCALAR2'}={v=>1.1, summary=>'SCALAR2'};
13              
14 1         3 $SPEC{'@ARRAY1'}={v=>1.1, summary=>'ARRAY1'};
15 1         2 $SPEC{'@ARRAY2'}={v=>1.1, summary=>'ARRAY2'};
16              
17 1         3 $SPEC{'%HASH1'}={v=>1.1, summary=>'HASH1'};
18 1         2 $SPEC{'%HASH2'}={v=>1.1, summary=>'HASH2'};
19              
20 1         3 $SPEC{'func1'}={v=>1.1, summary=>'func1'};
21 1         3 $SPEC{'func2'}={v=>1.1, summary=>'func2'};
22 1         247 $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__