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

package Perinci::Package::CopyFrom::Test;

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2020-02-16'; # DATE
our $DIST = 'Perinci-Package-CopyFrom'; # DIST
our $VERSION = '0.001'; # VERSION

our %SPEC;

BEGIN {
    $SPEC{'$SCALAR1'}={v=>1.1, summary=>'SCALAR1'};
    $SPEC{'$SCALAR2'}={v=>1.1, summary=>'SCALAR2'};

    $SPEC{'@ARRAY1'}={v=>1.1, summary=>'ARRAY1'};
    $SPEC{'@ARRAY2'}={v=>1.1, summary=>'ARRAY2'};

    $SPEC{'%HASH1'}={v=>1.1, summary=>'HASH1'};
    $SPEC{'%HASH2'}={v=>1.1, summary=>'HASH2'};

    $SPEC{'func1'}={v=>1.1, summary=>'func1'};
    $SPEC{'func2'}={v=>1.1, summary=>'func2'};
    $SPEC{'func3'}={v=>1.1, summary=>'func3'};
}

our $SCALAR1 = "test1";
our $SCALAR2 = "test2";

our @ARRAY1  = ("elem1", "elem2");
our @ARRAY2  = ("elem3", "elem4");

our %HASH1   = (key1=>1, key2=>[2]);
our %HASH2   = (key3=>3, key4=>4);

our @ISA = qw(Exporter);
our @EXPORT_OK = qw(func1);
our %EXPORT_TAGS = (
    T1 => [qw/func1 func2/],
    T2 => [qw/func2 func3/],
);

sub func1 { return "from test 1: $_[0]" }

sub func2 { return "from test 2: $_[0]" }

sub func3 { return "from test 3: $_[0]" }

1;

# ABSTRACT: A dummy module for testing

__END__