FreeBSD Manual Pages
Devel::Caller::Perl(3)User Contributed Perl DocumentatioDevel::Caller::Perl(3) NAME Devel::Caller::Perl - Perl only implementation. SYNOPSIS use Devel::Caller::Perl qw[called_args]; sub permute_args { my @args = @_; my @caller_args = called_args( 0 ); my %caller_args = map { $_ => $caller_args[$_] } 0 .. $#caller_args; return \%caller_args; } sub dodad { my $args = permute_args; print $args->{0}; # ... } ABSTRACT This module allows a method to get at arguments passed to subroutines higher up in the call stack. DESCRIPTION FUNCTIONS called_args [LEVEL] "called_args" returns the arguments to the subroutine at LEVEL in the call stack. If no level is specified, 0 (zero) is assumed, that being our caller. If a list is expected, it will be returned. When a scalar is expected, a list reference will be returned. If you want the number of arguments passed to the subroutine at LEVEL, there's nothing stopping you from getting it from "caller". my $number = (caller $level)[4]; AUTHOR Casey West <casey@geeknest.com> THANKS Rocco Caputo -- Much help with code and overall inspiration. COPYRIGHT Copyright (c) 2003 Casey West. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. SEE ALSO perl, Devel::Caller, DB, perldebguts. perl v5.24.1 2017-07-02 Devel::Caller::Perl(3)
NAME | SYNOPSIS | ABSTRACT | DESCRIPTION | AUTHOR | THANKS | COPYRIGHT | SEE ALSO
Want to link to this manual page? Use this URL:
<https://www.freebsd.org/cgi/man.cgi?query=Devel::Caller::Perl&sektion=3&manpath=FreeBSD+12.0-RELEASE+and+Ports>