Changeset 4168

Timestamp:

04/26/09 11:31:34 (3 years ago)

Author:

azawawi

Message:

Added support for private methods in Perl6 Outline view

File:

• trunk/Padre-Plugin-Perl6/lib/Padre/Task/Outline/Perl6.pm (modified) (2 diffs)

trunk/Padre-Plugin-Perl6/lib/Padre/Task/Outline/Perl6.pm

@@ -79 +79 @@
                     $symbol_name .= $buffer;
                     $symbol_line = $lineno;
-                } elsif($tree =~ /routine_declarator__\w+_\d+method method_def longname/) {
+                } elsif($tree =~ /routine_declarator__\w+_\d+method method_def (longname|$)/) {
                     # a method
                     $symbol_type = "methods";
@@ -116 +116 @@
                             $cur_pkg->{line} = $symbol_line;
                         } else {
+                            if($symbol_type eq 'methods' && $symbol_name =~ /^!/) {
+                                # private method...
+                                $symbol_name .= " (private)";
+                            }
                             push @{ $cur_pkg->{$symbol_type} }, {
                                 name => $symbol_name,