view release on metacpan or  search on metacpan

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;