/[Frey]/branches/zimbardo/lib/Frey/PPI.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /branches/zimbardo/lib/Frey/PPI.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 489 by dpavlin, Mon Nov 24 17:26:47 2008 UTC revision 943 by dpavlin, Tue Jan 6 14:50:30 2009 UTC
# Line 1  Line 1 
1  package Frey::PPI;  package Frey::PPI;
2  use Moose;  use Moose;
3    
4  extends 'Frey::ClassLoader';  extends 'Frey::Class::Loader';
5    
6  use PPI;  use PPI;
7  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
# Line 69  sub includes { Line 69  sub includes {
69                  return unless $el->isa('PPI::Statement::Include');                  return unless $el->isa('PPI::Statement::Include');
70    
71                  warn "## include ",dump( $el->module, $el->type, $el->pragma ) if $self->debug;                  warn "## include ",dump( $el->module, $el->type, $el->pragma ) if $self->debug;
72                  push @{ $include->{ $el->type } }, $el->module                  push @{ $include->{ $el->type } }, $el->module
73                            unless $el->module eq 'lib'; # skip use lib 'lib';
74          });          });
75          warn "# ", $self->class, " include ", dump( $include ) if $self->debug;          warn "# ", $self->class, " include ", dump( $include ) if $self->debug;
76          return $include;          return $include;
# Line 121  sub has_tests { Line 122  sub has_tests {
122          if ( my $tests = $class_has_tests->{ $class } ) {          if ( my $tests = $class_has_tests->{ $class } ) {
123                  my @tests = keys %$tests;                  my @tests = keys %$tests;
124                  warn "# has_tests $class ",dump( @tests );                  warn "# has_tests $class ",dump( @tests );
125                  return @tests;                  return @tests if wantarray;
126                    return \@tests;
127          }          }
128  }  }
129    
Legend:
Removed from v.489  
changed lines
  Added in v.943
  ViewVC Help
Powered by ViewVC 1.1.26