examples/ddumper.pl

   1 #!/pro/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Data::Peek;
   7
   8 my %hash = (
   9     foo => "bar\x{0a}baz",
  10     bar => [ 1, "mars", \@ARGV ],
  11     );
  12
  13 print DPeek for DDual ($!, 1);
  14
  15 print "DDumper (\\%hash)\n";
  16 print DDumper \%hash;
  17
  18 print "\$str = DDump (%hash)\n";
  19 my $str = DDump \%hash;
  20 print $str;
  21 print "\%hsh = DDump (%hash)\n";
  22 my %hsh = DDump \%hash;
  23 print DDumper \%hsh;
  24
  25 print "DDump \\%hash\n";
  26 DDump \%hash;
  27
  28 print "\$str = DDump (%hash, 5)\n";
  29 my $str = DDump (\%hash, 1);
  30 print $str;
  31 print "\%hsh = DDump (%hash, 5)\n";
  32 my %hsh = DDump (\%hash, 1);
  33 print DDumper \%hsh;
  34
  35 print "DDump \\%hash, 5\n";
  36 DDump (\%hash, 1);