view release on metacpan or  search on metacpan

lib/Devel/Caller/Perl.pm  view on Meta::CPAN

sub called_args {
	my ($level) = @_;
	my @foo = caller( ( $level || 0 ) + 3 );
	wantarray ? @DB::args : \@DB::args;
}

package Devel::Caller::Perl;
use DB;
$Devel::Caller::Perl::VERSION   = '1.4';
sub import {
    *{(caller)[0].'::called_args'} = \&called_args
      if $_[1] eq 'called_args';
}
sub called_args { &DB::called_args }

1;

__END__

=pod