Perlito5 - perl5 - new pretty-printer backend

fglock · Oct 4, 2013 · 24620a5 · 24620a5
1 parent e1b541e
commit 24620a5
Show file tree

Hide file tree

Showing 6 changed files with 1,541 additions and 6 deletions.
diff --git a/misc/pretty_print.pl b/misc/pretty_print.pl
@@ -7,6 +7,7 @@ package Perlito5::PrettyPrint {
         stmt    => \&statement,                 # if (expr) {stms}
         block   => \&block,                     # {stmts}
         keyword => \&keyword,                   # if
+        bareword => \&bareword,                 # main
         op      => \&op,                        # expr
         paren   => \&paren,                     # (expr)
         paren_semicolon => \&paren_semicolon,   # (expr;expr;expr)
@@ -174,6 +175,12 @@ package Perlito5::PrettyPrint {
         return;
     }
 
+    sub bareword {
+        my ( $data, $level, $out ) = @_;
+        push @$out, $data->[1];
+        return;
+    }
+
     sub statement {
         my ( $data, $level, $out ) = @_;
         for my $line ( 1 .. $#$data ) {