The Underbar: A Perl-adjacent maybe-podcast. Learn more
12345678910111213141516 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;
warnings;
sub
return_42 {
return
42;
}
return_package {
__PACKAGE__;
our
$SCALAR
= 42;
@ARRAY
= ( 1, 2, 3 );
%HASH
= (
key
=>
'val'
);