/[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 716 by dpavlin, Tue Dec 2 19:10:36 2008 UTC revision 717 by dpavlin, Thu Dec 4 17:55:27 2008 UTC
# Line 247  sub as_markup { Line 247  sub as_markup {
247                          qq|<a target="$class" href="/$class/$_" title="/$class/$_">$short</a>|                          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 = "<br>run: $runnable" if $runnable;
251    
252          $self->store( $introspect_path, $introspect );          $self->store( $introspect_path, $introspect );
253    
# Line 266  sub as_markup { Line 266  sub as_markup {
266          return join("\n",          return join("\n",
267                  qq|<h1>$class</h1>|,                  qq|<h1>$class</h1>|,
268                  qq|<div class="frey-introspect">$superclasses\n$roles\n$runnable\n|,                  qq|<div class="frey-introspect">$superclasses\n$roles\n$runnable\n|,
269                    $has_tests,
270                  $pod    ? qq|<a class="frey-skip" href="#___top" title="Skip to POD"    >pod</a>|    : '',                  $pod    ? qq|<a class="frey-skip" href="#___top" title="Skip to POD"    >pod</a>|    : '',
271                  $source ? qq|<a class="frey-skip" href="#source" title="Skip to source" >source</a>| : '',                  $source ? qq|<a class="frey-skip" href="#source" title="Skip to source" >source</a>| : '',
                 $has_tests,  
272                  qq|$table\n$pod\n</div>\n|,                  qq|$table\n$pod\n</div>\n|,
273                  qq|<h1>Source</h1><a name="source"></a><div class="frey-source">$source</div>|,                  qq|<h1>Source</h1><a name="source"></a><div class="frey-source">$source</div>|,
274          );          );

Legend:
Removed from v.716  
changed lines
  Added in v.717

  ViewVC Help
Powered by ViewVC 1.1.26