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

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

revision 634 by dpavlin, Sun Nov 30 01:32:30 2008 UTC revision 635 by dpavlin, Sun Nov 30 14:21:09 2008 UTC
# Line 213  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 251  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.634  
changed lines
  Added in v.635
  ViewVC Help
Powered by ViewVC 1.1.26