/[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 1021 by dpavlin, Mon Jan 26 23:09:38 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                            join('&nbsp;',
338                                    $pod    ? qq|<a class="frey-skip" style="float: left;" href="#___top" title="Skip to POD"    >pod</a>|    : '',
339                                    $source ? qq|<a class="frey-skip" style="float: right;" href="#source" title="Skip to source" >source</a>| : ''
340                            )
341                    )
342            );
343    
344            return
345                  qq|                  qq|
346                          <h1>$class</h1>                          <h1>$class</h1>
347                          <div class="frey-introspect">                          <div class="frey-introspect">
# Line 338  sub as_markup { Line 349  sub as_markup {
349                                  <br>$includes                                  <br>$includes
350                          </div>                          </div>
351                          <div class="right">                          <div class="right">
352                                  $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|  
353                          </div>                          </div>
354                          $table                          $table
355                          $pod                          $pod
# Line 351  sub as_markup { Line 357  sub as_markup {
357    
358                          <h1>Source</h1><a name="source"></a>                          <h1>Source</h1><a name="source"></a>
359                          <div class="frey-source">$source</div>                          <div class="frey-source">$source</div>
360                  |,                  |
361          );                  ;
362  }  }
363    
364  =head1 SEE ALSO  =head1 SEE ALSO
Legend:
Removed from v.993  
changed lines
  Added in v.1021
  ViewVC Help
Powered by ViewVC 1.1.26