Changeset 5578 for trunk/Padre/lib/Padre/Task/Outline/Perl.pm

Timestamp:

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

Author:

jquelin

Message:

detection of moosex::poe events in outline view

File:

• trunk/Padre/lib/Padre/Task/Outline/Perl.pm (modified) (2 diffs)

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 );
         }