Changeset 25944

Timestamp:

12/05/08 15:40:58 (5 years ago)

Author:

tokuhirom

Message:

better impl

Files:

• lang/perl/misc/ppish.pl (modified) (2 diffs)

lang/perl/misc/ppish.pl

@@ -6 +6 @@
 use Perl6::Say;
 
-my $level = -1;
+my $level = 0;
+
+sub display {
+    my $elem = shift;
+    my $ws = ' ' x ($level*3);
+    my $klass = ref $elem;
+    my $comment = $elem->isa('PPI::Token::Whitespace') ? '' : " # $elem";
+    say join('', $ws, $klass, $comment);
+}
 sub dumpit {
     my $elem = shift;
     if ($elem->can('children')) {
+        display($elem);
         for my $child ($elem->children) {
             $level++;
@@ -16 +25 @@
         }
     } else {
-        my $ws = ' ' x (($level-1)*3);
-        my $klass = ref $elem;
-        my $comment = $elem->isa('PPI::Token::Whitespace') ? '' : " # $elem";
-        say join('', $ws, $klass, $comment);
+        display($elem);
     }
 }