warn Data::Dumper->Dump(
[$foo, \%this, \@array, \%that],
[qw/*foo *that *array *this/]
);
####
use Data::Dumper::Simple;
warn Dumper($foo, %this, @array, %that);
##
##
use Data::Dumper;
warn Dumper($foo, $bar, $baz);
##
##
$VAR1 = 3;
$VAR2 = 2;
$VAR3 = 1;
##
##
warn Data::Dumper->Dump(
[$foo, $bar, $baz],
[qw/*foo *bar *baz/]
);
##
##
$foo = 3;
$bar = 2;
$baz = 1;
##
##
warn Data::Dumper->Dump(
[$foo, \@array],
[qw/*foo *array/]
);
##
##
$foo = 3;
@array = (
8,
'Ovid'
);
##
##
warn Data::Dumper->Dump(
[$foo, \%this, \@array, \%that],
[qw/*foo *that *array *this/]
);
##
##
use Data::Dumper::Simple.
warn Dumper($scalar, @array, %hash);
##
##
$scalar = 'Ovid';
@array = (
'Data',
'Dumper',
'Simple',
'Rocks!'
);
%hash = (
'it' => 'does',
'I' => 'hope',
'at' => 'least'
);
##
##
my $foo = { hash => 'ref' };
my @foo = qw/foo bar baz/;
warn Dumper ($foo, \@foo);
##
##
$foo = {
'hash' => 'ref'
};
@foo = (
'foo',
'bar',
'baz'
);
##
##
Dumper($foo, some_sub()); # Bad!