view release on metacpan or  search on metacpan

lib/Acme/AtIncPolice.pm  view on Meta::CPAN

                last;
            } elsif ($c  !~ /^Tie::Trace/) {
                last;
            }
            $_caller_n++;
        }

        my @caller = map $_ + $_caller_n, ref $caller ? @{$caller} : $caller;
        my(@filename, @line);
        foreach(@caller){
            my($f, $l) = (caller($_))[1, 2];
            next unless $f and $l;

            push @filename, $f;
            push @line, $l;

        }

        my $location = @line == 1 ? " at $filename[0] line $line[0]." :
                                    join "\n", map " at $filename[$_] line $line[$_].", (0 .. $#filename);
        my($_p, $p) = ($self, $self->parent);