Changeset 5578

Timestamp:

06/25/09 09:16:10 (3 years ago)

Author:

jquelin

Message:

detection of moosex::poe events in outline view

Location:

trunk/Padre

Files:

• Changes (modified) (1 diff)
• lib/Padre/Task/Outline/Perl.pm (modified) (2 diffs)

trunk/Padre/Changes

@@ -5 +5 @@
     Some of the refactoring code was moved to PPIx-EditorTools (MGRIMES)
     Detection of Moose attributes in Outline view (jquelin)
+    Detection of MooseX::POE events in Outline view (jquelin)
 
 v0.37 2009.06.25

trunk/Padre/lib/Padre/Task/Outline/Perl.pm

@@ -104 +104 @@
             if ( $node->isa('PPI::Token::Word') && $node->content eq 'has' ) {
                 push @{ $cur_pkg->{attributes} }, { name => $thing->child(2)->content, line => $thing->location->[0] };
+                next;
+            }
+
+            # MooseX::POE event declaration
+            if ( $node->isa('PPI::Token::Word') && $node->content eq 'event' ) {
+                push @{ $cur_pkg->{events} }, { name => $thing->child(2)->content, line => $thing->location->[0] };
                 next;
             }
@@ -240 +246 @@
             )
         );
-        foreach my $type (qw(pragmata modules attributes methods)) {
+        foreach my $type (qw(pragmata modules attributes methods events)) {
             _add_subtree( $outlinebar, $pkg, $type, $branch );
         }