/[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 993 by dpavlin, Sun Jan 11 12:09:58 2009 UTC revision 1018 by dpavlin, Sun Jan 25 16:45:43 2009 UTC
# Line 330  sub as_markup { Line 330  sub as_markup {
330                  }                  }
331          |);          |);
332    
333          return join("\n",          my $right = join('<br>',
334                    grep { $_ } (
335                            $runnable,
336                            $has_tests,
337                            ( $pod    ? qq|<a class="frey-skip" style="float: left;" href="#___top" title="Skip to POD"    >pod</a>|    : '' ) . ' ' .
338                            ( $source ? qq|<a class="frey-skip" style="float: right;" href="#source" title="Skip to source" >source</a>| : '' )
339                    )
340            );
341    
342            return
343                  qq|                  qq|
344                          <h1>$class</h1>                          <h1>$class</h1>
345                          <div class="frey-introspect">                          <div class="frey-introspect">
# Line 338  sub as_markup { Line 347  sub as_markup {
347                                  <br>$includes                                  <br>$includes
348                          </div>                          </div>
349                          <div class="right">                          <div class="right">
350                                  $runnable                                  $right
                 |,  
                 $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|  
351                          </div>                          </div>
352                          $table                          $table
353                          $pod                          $pod
# Line 351  sub as_markup { Line 355  sub as_markup {
355    
356                          <h1>Source</h1><a name="source"></a>                          <h1>Source</h1><a name="source"></a>
357                          <div class="frey-source">$source</div>                          <div class="frey-source">$source</div>
358                  |,                  |
359          );                  ;
360  }  }
361    
362  =head1 SEE ALSO  =head1 SEE ALSO
Legend:
Removed from v.993  
changed lines
  Added in v.1018
  ViewVC Help
Powered by ViewVC 1.1.26