view release on metacpan or  search on metacpan

xt/t7.pl  view on Meta::CPAN

{ package aa;
use Scope::Upper qw/localize reap unwind want_at :words/;
sub too {
    #localize '$tt', 'nacana' => UP;
    eval q{
        sub foo {
            #require strict; strict->import()
            require strict; strict->import();
            require Moose; Moose->import();
            #my $a = 'Moose::import';
            my $p = caller;
            print "Imported into $p\n";
        }
    };
    #reap \&foo => HERE;
    #reap sub { require Moose; Moose->import } => UP;
    reap sub { require strict; strict->import } => HERE;
    #reap sub { require Scalar::Util; Scalar::Util->import('refaddr') } => UP;
    reap sub { require List::Util; my $f='List::Util::import'; @_=('List::Util::import', 'first'); goto &$f } => HERE;

}
}

{
    package JJ;
    #BEGIN { aa::too(); }
    $b = 11;