/[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 357 by dpavlin, Sat Nov 8 16:12:39 2008 UTC revision 358 by dpavlin, Sun Nov 16 16:36:53 2008 UTC
# Line 233  warn $attr->dump(3); Line 233  warn $attr->dump(3);
233          my $runnable = join("\n", map { qq|<a href="/$class/$_">$_</a>| } grep { $class->can($_) } Frey::Run->runnable );          my $runnable = join("\n", map { qq|<a href="/$class/$_">$_</a>| } grep { $class->can($_) } Frey::Run->runnable );
234          $runnable = " runnable: $runnable" if $runnable;          $runnable = " runnable: $runnable" if $runnable;
235    
236          my $html = $self->page(          my $html = {
237                  title => "Introspect $class",                  title => "Introspect $class",
238                  body => qq|<h1>$class</h1>|                  body => qq|<h1>$class</h1>|
239                          . qq|<div class="frey-introspect">$superclasses\n$roles\n$runnable\n|                          . qq|<div class="frey-introspect">$superclasses\n$roles\n$runnable\n|
240                          . ( $pod ? qq|<a href="#___top" title="Skip to POD" style="font-size: 80%; color: #aaa;">&darr;pod&darr</a>| : '' )                          . ( $pod ? qq|<a href="#___top" title="Skip to POD" style="font-size: 80%; color: #aaa;">&darr;pod&darr</a>| : '' )
241                          . qq|$table\n$pod</div>|                          . qq|$table\n$pod</div>|
242    
243          );          };
244    
245          return $html;          return $html;
246  }  }
Legend:
Removed from v.357  
changed lines
  Added in v.358
  ViewVC Help
Powered by ViewVC 1.1.26