- or download this
my $foo = new Foo;
$foo->dump; # dumps automatically to STDERR
print $foo->dump; #dumps to STDOUT
print FOO $foo->dump; # dumps to filehandle FOO
- or download this
a->dump( $foo ); # dumps automatically to STDERR
print a->dump( $foo ); #dumps to STDOUT
print FOO a->dump( $foo ); # dumps to filehandle FOO
- or download this
sub UNIVERSAL::dump {
...
return Data::Dumper::Dumper( @_ ? @_ : $self ) if defined wantarra
+y;
print STDERR Data::Dumper::Dumper( @_ ? @_ : $self );
} #UNIVERSAL::dump