view release on metacpan or  search on metacpan

plugins/error_xml  view on Meta::CPAN

    return $self->{error} unless $with_stack;
    return join("\n", $self->{error}, map { "    from $_->[1]:$_->[2]" } @{$self->{stacktrace}});
}

sub _stack_trace {
    my @stack;
    my $pos = 2;
    while (1) {
        # $package, $filename, $line, $subroutine, $hasargs,
        # $wantarray, $evaltext, $is_require, $hints, $bitmask
        my @caller = caller($pos++);
        last unless @caller;
        push @stack, \@caller;
    }
    return \@stack;
}

# <error>
# 	<file>filename</file>
# 	<msg>error message</msg>
# 	<stack_trace>