view release on metacpan or  search on metacpan

lib/Acme/require/case.pm  view on Meta::CPAN

            }
        }
        croak "Can't locate $filename in \@INC (\@INC contains @INC)"
          unless $actual;
    }

    # Valid case or invalid?
    if ($valid) {
        $INC{$filename} = $realfilename;
        # uplevel so calling package looks right
        my $caller = caller(0);
        # deletes $realfilename from %INC after loading it since that's
        # just a proxy for $filename, which is already set above
        my $code = qq{
            package $caller; sub { local %^H; my \$r = do \$_[0]; delete \$INC{\$_[0]}; \$r }
          };
        my $packaged_do = eval $code; ## no critic
        $result = uplevel( 2, $packaged_do, $realfilename );
    }
    else {
        croak "$filename has incorrect case (maybe you want $actual instead?)";

t/lib/lookup.pm  view on Meta::CPAN

package lookup;
use strict;
use warnings;

my $i = 0;
while ( my @call = map { defined($_) ? $_ : "undef" } caller($i) ) {
    print "$i @call[0..7]\n";
    $i++;
}

1;