/[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 631 by dpavlin, Sun Nov 30 01:32:30 2008 UTC revision 688 by dpavlin, Tue Dec 2 19:10:36 2008 UTC
# Line 213  sub as_markup { Line 213  sub as_markup {
213          }          }
214          $table .= qq|</table>|;          $table .= qq|</table>|;
215    
         my $pod = Frey::Pod->new( class => $class )->as_markup;  
         $pod = $pod->{body} if ref($pod);  
   
216          my $path = $self->class_path( $class );          my $path = $self->class_path( $class );
217    
218            my $pod = Frey::Pod->new( class => $class, request_url => $self->request_url )->as_markup;
219            return $pod if $path =~ m{\.pod};
220    
221          my $Document = PPI::Document->new( $path );          my $Document = PPI::Document->new( $path );
222    
223          # Create a reusable syntax highlighter          # Create a reusable syntax highlighter
# Line 241  sub as_markup { Line 242  sub as_markup {
242          my $runnable = join("\n",          my $runnable = join("\n",
243                  map {                  map {
244                          $introspect->{runnable}->{$_}++;                          $introspect->{runnable}->{$_}++;
245                          qq|<a target="$class" href="/$class/$_">$_</a>|                          my $short = $_;
246                            $short =~ s{_as_(?:markup|data|sponge)$}{};
247                            qq|<a target="$class" href="/$class/$_" title="/$class/$_">$short</a>|
248                  } $self->class_runnable( $class )                  } $self->class_runnable( $class )
249          );          );
250          $runnable = " runnable: $runnable" if $runnable;          $runnable = " runnable: $runnable" if $runnable;
# Line 251  sub as_markup { Line 254  sub as_markup {
254          $self->title( $class );          $self->title( $class );
255    
256          my $has_tests = '';          my $has_tests = '';
257          if ( my @tests = $self->has_tests ) {          my @tests = grep { defined $_ } $self->has_tests;
258            if ( @tests ) {
259                  $has_tests =                  $has_tests =
260                  '<br/>test' . ( $#tests > 0 ? 's' : '' ) . ': ' .                        '<br/>test' . ( $#tests > 0 ? 's' : '' ) . ': ' .      
261                  join("\n", map {                  join("\n", map {
Legend:
Removed from v.631  
changed lines
  Added in v.688
  ViewVC Help
Powered by ViewVC 1.1.26