in reply to Re: debug statements
in thread debug statements

I really like the idea of using a simple subroutine. Is there a way of making a subroutine that works like this?: 
debug(\$variable);

[download]

Replies are listed 'Best First'.
Re^3: debug statements
by duckyd (Hermit) on Oct 03, 2006 at 23:56 UTC
    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 );

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

    [download]
[reply]
[d/l]
[select]
Re^3: debug statements
by mreece (Friar) on Oct 03, 2006 at 21:45 UTC
    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) );

    [download]
    note the CAVEATS in the Data::Dumper::Names documentation!
[reply]
[d/l]

In Section Seekers of Perl Wisdom