Changeset 5578

Timestamp:

06/25/09 09:16:10 (14 months 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 );
                 }