- if ($ref_type eq "ARRAY") {
- print_array($r);
- } elsif ($ref_type eq "SCALAR") {
- print "Ref -> $r";
- print_scalar($$r);
- } elsif ($ref_type eq "HASH") {
- print_hash($r);
- } elsif ($ref_type eq "REF") {
- ++$level;
- print_indented("Ref -> ($r)");
- print_ref($$r);
- --$level;
- } else {
- print_indented ("$ref_type (not supported)");
+ if ( $ref_type eq "ARRAY" ) {
+ print_array($r);
+ }
+ elsif ( $ref_type eq "SCALAR" ) {
+ print "Ref -> $r";
+ print_scalar($$r);
+ }
+ elsif ( $ref_type eq "HASH" ) {
+ print_hash($r);
+ }
+ elsif ( $ref_type eq "REF" ) {
+ ++$level;
+ print_indented("Ref -> ($r)");
+ print_ref($$r);
+ --$level;
+ }
+ else {
+ print_indented("$ref_type (not supported)");