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

Timestamp:

06/25/09 09:12:24 (14 months ago)

Author:

jquelin

Message:

detecting moose attributes in outline view

Files:

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

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

@@ -68 +68 @@
                                 if ref $_[0] eq 'PPI::Statement::Package'
                                         or ref $_[0] eq 'PPI::Statement::Include'
-                                        or ref $_[0] eq 'PPI::Statement::Sub';
+                                        or ref $_[0] eq 'PPI::Statement::Sub'
+                                        or ref $_[0] eq 'PPI::Statement';
                 }
         );
@@ -96 +97 @@
                 } elsif ( ref $thing eq 'PPI::Statement::Sub' ) {
                         push @{ $cur_pkg->{methods} }, { name => $thing->name, line => $thing->location->[0] };
+                } elsif ( ref $thing eq 'PPI::Statement' ) {
+                        # last resort, let's analyse further down...
+                        my $node = $thing->first_element;
+
+                        # Moose attribute declaration
+                        if ( $node->isa('PPI::Token::Word') && $node->content eq 'has' ) {
+                                push @{ $cur_pkg->{attributes} }, { name => $thing->child(2)->content, line => $thing->location->[0] };
+                                next;
+                        }
                 }
         }
@@ -230 +240 @@
                         )
                 );
-                foreach my $type (qw(pragmata modules methods)) {
+                foreach my $type (qw(pragmata modules attributes methods)) {
                         _add_subtree( $outlinebar, $pkg, $type, $branch );
                 }