Re^2: debug statements

[koknat]

I really like the idea of using a simple subroutine. Is there a way of making a subroutine that works like this?:

debug(\$variable);

[duckyd]

You mean something like this?

use constant DEBUG => 1;

sub debug {
    return unless DEBUG;
    my $ref = shift;
    print STDERR Dumper $ref;
}

my $foo = 'foo';
my @bar = ( qw/ foo bar baz / );

debug( \$foo );
debug( \@bar );

Output:

$VAR1 = \'foo';
$VAR1 = [
          'foo',
          'bar',
          'baz'
        ];

[mreece]

not without resorting to extreme nastiness. you could try Data::Dumper::Names to make your life a little easier (?)...

use Data::Dumper::Names;
debug( Dumper($variable) );

note the CAVEATS in the Data::Dumper::Names documentation!