Select Code to Download

package SomeTestPackage2;
use strict;
...

1;

#!/usr/bin/perl
use strict;
...
    ok( $self_sub[2] eq 'ARRAY',            'ref $aref' );
    ok( $self_sub[3] > 0,                   'non empty array' );
};

$ perl test2.pl
ok 1 - ref $self
...
ok 3 - ref $aref
ok 4 - non empty array
1..4

sub {
    local *__ANON__='SomeTestPackage2::self_sub';
...
    use strict 'refs';
    return ref $self, ref $href, ref $aref, scalar @{$non_empty_aref;}
+;
}