Perlito5 - perl6 - pretty-print - omit parenthesis when calling func/method without args

Author: fglock

perlito5.pl

@@ -13063,6 +13063,9 @@ sub Perlito5::Perl6::PrettyPrinter::call {
     push(@{$out}, '.');
     my $d = $dd[0];
     render($d, $level, $out);
+    if ($open eq '(' && @dd == 1) {
+        return()
+    }
     $dd[0] = 'list:<,>';
     push(@{$out}, $open);
     op(['op' => @dd], $level, $out);
@@ -13075,6 +13078,9 @@ sub Perlito5::Perl6::PrettyPrinter::apply {
     my $open = shift(@dd);
     my $d = $dd[0];
     render($d, $level, $out);
+    if ($open eq '(' && @dd == 1) {
+        return()
+    }
     $dd[0] = 'list:<,>';
     push(@{$out}, $open);
     op(['op' => @dd], $level, $out);

src5/lib/Perlito5/Perl6/PrettyPrinter.pm

@@ -276,6 +276,10 @@ sub call {
     push @$out, '.';
     my $d = $dd[0];
     render( $d, $level, $out );
+    if ($open eq '(' && @dd == 1) {
+        # done if it is an empty list
+        return;
+    }
     $dd[0] = 'list:<,>';
     push @$out, $open;
     op( [ op => @dd ], $level, $out );
@@ -289,6 +293,10 @@ sub apply {
     my $open = shift @dd;
     my $d = $dd[0];
     render( $d, $level, $out );
+    if ($open eq '(' && @dd == 1) {
+        # done if it is an empty list
+        return;
+    }
     $dd[0] = 'list:<,>';
     push @$out, $open;
     op( [ op => @dd ], $level, $out );