Furthermore, when called from within the DB package, caller returns more detailed information: it sets the list variable @DB::args to be the arguments with which the subroutine was invoked.

did you read this

Yes, but it says i can use it only in the debugger, not in my script. However i can miss smth, because i am not familar with Perl debugger.


Also look (and/or use) Devel::Caller::Perl

Thanks, this works.

...it says i can use it only in the debugger

No, that's not what it says. Look at the source for Devel::Caller::Perl, and that might give you an idea of what it really says.

It seems I understood "called with the DB package" technique

package DB;

use Data::Dumper;

sub a { b() }
sub b { c() }
sub c { 
    my @a = caller(2);
    print Dumper \@a;
    print Dumper \@DB::args;
}

a("test", [1,2,3]);
[download]