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

Timestamp:

06/25/09 09:12:24 (3 years ago)

Author:

jquelin

Message:

detecting moose attributes in outline view

File:

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