Devel::ArgNames (3pm)

        use Devel::ArgNames;

        sub foo {
                warn "foo() called with arguments: "
                        . join(", ", map { defined() ? $_ : "<unknown>" } arg_names(@_) );
        }

        foo($bar, $gorch, $blah[4]);

When 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 \s-1DIY\s0 kit ;-)

This function will return the names associated with the variables found on @_, at the level $level. If $level is not provided \*(C`arg_names\*(C''s caller's caller will be used (\*(C`$level == 2\*(C' in that case).

This module is maintained using Darcs. You can get the latest version from <http://nothingmuch.woobling.org/Devel-ArgNames/>, and use \*(C`darcs send\*(C' to commit changes.

Data::Dumper::Simple, \s-1DB\s0, Devel::Caller, Devel::Caller::Perl, PadWalker.

Ran Eilam

Yuval Kogman <[email protected]>

Copyright (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.