1 @sample = ( 11.233, { 3 => 4, "hello" => [ 6, 7 ] } );
4 $level = -1; # Level of indentation
20 print_indented( $_[0] );
26 if ( exists( $already_seen{$r} ) ) {
27 print_indented("$r (Seen earlier)");
31 $already_seen{$r} = 1;
33 my $ref_type = ref($r);
34 if ( $ref_type eq "ARRAY" ) {
37 elsif ( $ref_type eq "SCALAR" ) {
41 elsif ( $ref_type eq "HASH" ) {
44 elsif ( $ref_type eq "REF" ) {
46 print_indented("Ref -> ($r)");
51 print_indented("$ref_type (not supported)");
58 print_indented("[ # $r_array");
59 foreach $var (@$r_array) {
75 print_indented("{ # $r_hash");
76 while ( ( $key, $val ) = each %$r_hash ) {
77 $val = ( $val ? $val : '""' );
80 print_indented("$key => ");
84 print_indented("$key => $val");
93 $spaces = ": " x $level;
94 print "${spaces}$_[0]\n";
97 # vim:ts=4:sw=4:expandtab:tw=80