/[Frey]/trunk/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 /trunk/lib/Frey/PPI.pm

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

revision 488 by dpavlin, Mon Nov 24 17:09:00 2008 UTC revision 489 by dpavlin, Mon Nov 24 17:26:47 2008 UTC
# Line 114  sub parse_tests { Line 114  sub parse_tests {
114  sub has_tests {  sub has_tests {
115          my ($self) = shift;          my ($self) = shift;
116                    
117          $self->parse_tests unless defined $class_has_tests;          $self->parse_tests unless $class_has_tests;
118    
119          my $class = $self->class;          my $class = $self->class;
120    
121          if ( my $tests = $class_has_tests->{ $class } ) {          if ( my $tests = $class_has_tests->{ $class } ) {
122  #               warn "# has_tests $class ",dump( keys %$tests );                  my @tests = keys %$tests;
123                  return [ keys %$tests ];                  warn "# has_tests $class ",dump( @tests );
124                    return @tests;
125          }          }
         return [];  
126  }  }
127    
128  =head2 as_data  =head2 as_data
Legend:
Removed from v.488  
changed lines
  Added in v.489
  ViewVC Help
Powered by ViewVC 1.1.26