|
NAMEDevel::ArgNames - Figure out the names of variables passed into subroutines.SYNOPSISuse Devel::ArgNames; sub foo { warn "foo() called with arguments: " . join(", ", map { defined() ? $_ : "<unknown>" } arg_names(@_) ); } foo($bar, $gorch, $blah[4]); DESCRIPTIONWhen print-debugging code, you will often ind yourself going:print "\$foo is $foo, \$bar is $bar" With this module, you can write a reusable subroutine easily: sub my_print_vars { my %vars; @vars{arg_names()} = @_; foreach my $var ( keys %vars ) { warn "$var is $vars{$var}\n"; } } my_print_vars($foo, $bar); This module doesn't provide dumping facilities because there are too many to choose from. This is a DIY kit ;-) EXPORTS
VERSION CONTROLThis module is maintained using Darcs. You can get the latest version from <http://nothingmuch.woobling.org/Devel-ArgNames/>, and use "darcs send" to commit changes.SEE ALSOData::Dumper::Simple, DB, Devel::Caller, Devel::Caller::Perl, PadWalker.AUTHORSRan EilamYuval Kogman <nothingmuch@woobling.org> COPYRIGHTCopyright (c) 2007 Yuval Kogman. All rights reserved This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
Visit the GSP FreeBSD Man Page Interface. |