125 |
|
|
126 |
my @caller_name = ( qw/package file line sub/ ); |
my @caller_name = ( qw/package file line sub/ ); |
127 |
my @caller = caller(0); |
my @caller = caller(0); |
128 |
|
$caller[3] = (caller(1))[3]; |
129 |
$caller[3] =~ s{^.+::}{}; # stip package name from sub |
$caller[3] =~ s{^.+::}{}; # stip package name from sub |
130 |
$data->{ $caller_name[$_] } = $caller[$_] foreach ( 0 .. $#caller_name ); |
$data->{ $caller_name[$_] } = $caller[$_] foreach ( 0 .. $#caller_name ); |
131 |
|
|
132 |
my $caller; |
if ( $ENV{DEBUG} ) { |
133 |
my $depth = 0; |
|
134 |
while ( my @c = caller($depth) ) { |
my $caller; |
135 |
push @$caller, [ splice(@c,0,4) ]; |
my $depth = 0; |
136 |
$depth++; |
while ( my @c = caller($depth) ) { |
137 |
} |
push @$caller, [ @c ]; |
138 |
|
$depth++; |
139 |
|
} |
140 |
|
|
141 |
$data->{caller} = $caller; |
$data->{caller} = $caller; |
142 |
|
|
143 |
|
} |
144 |
|
|
145 |
# carp 'audit ', dump($data); |
# carp 'audit ', dump($data); |
146 |
|
|