t/lib/T/Impl1.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

package T::Impl1;

use strict;
use warnings;

sub return_42 {
    return 42;
}

sub return_package {
    return __PACKAGE__;
}

our $SCALAR = 42;
our @ARRAY  = ( 1, 2, 3 );
our %HASH   = ( key => 'val' );