/[Frey]/branches/no-pager/lib/Frey/Introspect.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/no-pager/lib/Frey/Introspect.pm

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

revision 602 by dpavlin, Fri Nov 28 19:19:46 2008 UTC revision 635 by dpavlin, Sun Nov 30 14:21:09 2008 UTC
# Line 11  use List::Util; Line 11  use List::Util;
11  use PPI;  use PPI;
12  use PPI::HTML;  use PPI::HTML;
13    
14    use Frey::Pod;
15    
16  use lib 'lib';  use lib 'lib';
17    
18  extends 'Frey::PPI';  extends 'Frey::PPI';
# Line 211  sub as_markup { Line 213  sub as_markup {
213          }          }
214          $table .= qq|</table>|;          $table .= qq|</table>|;
215    
216          my $pod = Frey::Pod->new( class => $class )->as_markup;          my $pod = Frey::Pod->new( class => $class, request_url => $self->request_url )->as_markup;
217          $pod = $pod->{body} if ref($pod);          $pod = $pod->{body} if ref($pod);
218    
219          my $path = $self->class_path( $class );          my $path = $self->class_path( $class );
# Line 249  sub as_markup { Line 251  sub as_markup {
251          $self->title( $class );          $self->title( $class );
252    
253          my $has_tests = '';          my $has_tests = '';
254          if ( my @tests = $self->has_tests ) {          my @tests = grep { defined $_ } $self->has_tests;
255            if ( @tests ) {
256                  $has_tests =                  $has_tests =
257                  '<br/>test' . ( $#tests > 0 ? 's' : '' ) . ': ' .                        '<br/>test' . ( $#tests > 0 ? 's' : '' ) . ': ' .      
258                  join("\n", map {                  join("\n", map {
Legend:
Removed from v.602  
changed lines
  Added in v.635
  ViewVC Help
Powered by ViewVC 1.1.26