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' );
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' );