/[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 1016 by dpavlin, Sat Jan 24 19:21:14 2009 UTC revision 1017 by dpavlin, Sun Jan 25 16:32:53 2009 UTC
# Line 330  sub as_markup { Line 330  sub as_markup {
330                  }                  }
331          |);          |);
332    
333            my $right = join('<br>',
334                    grep { $_ } (
335                            $runnable,
336                            $has_tests,
337                            $pod    ? qq|<a class="frey-skip" href="#___top" title="Skip to POD"    >pod</a>|    : '',
338                            $source ? qq|<a class="frey-skip" href="#source" title="Skip to source" >source</a>| : '',
339                    )
340            );
341          return join("\n",          return join("\n",
342                  qq|                  qq|
343                          <h1>$class</h1>                          <h1>$class</h1>
# Line 338  sub as_markup { Line 346  sub as_markup {
346                                  <br>$includes                                  <br>$includes
347                          </div>                          </div>
348                          <div class="right">                          <div class="right">
349                  |,                                  $right
                 join('<br>', grep { $_ } ( $runnable, $has_tests )),  
                 $pod    ? qq|<a class="frey-skip" href="#___top" title="Skip to POD"    >pod</a>|    : '',  
                 $source ? qq|<a class="frey-skip" href="#source" title="Skip to source" >source</a>| : '',  
                 qq|  
350                          </div>                          </div>
351                          $table                          $table
352                          $pod                          $pod
Legend:
Removed from v.1016  
changed lines
  Added in v.1017
  ViewVC Help
Powered by ViewVC 1.1.26