/[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 311 by dpavlin, Wed Nov 5 19:57:49 2008 UTC revision 312 by dpavlin, Wed Nov 5 20:05:35 2008 UTC
# Line 208  warn $attr->dump(3); Line 208  warn $attr->dump(3);
208                  } sort $meta->get_attribute_list                  } sort $meta->get_attribute_list
209          }          }
210    
211          my $table = qq|<table class="frey-object-browser"><tr><th class="m">Methods</th><th class="a">Attributes</th><th>Type</th><th class="p">Properties</th></tr>|;          my $table = qq|<table class="frey-introspect"><tr><th class="m">Methods</th><th class="a">Attributes</th><th>Type</th><th class="p">Properties</th></tr>|;
212          while ( @methods || @attributes ) {          while ( @methods || @attributes ) {
213                  my ($m,$a) = ( shift @methods, shift @attributes );                  my ($m,$a) = ( shift @methods, shift @attributes );
214                  $m ||= '<td></td>';                  $m ||= '<td></td>';
# Line 226  warn $attr->dump(3); Line 226  warn $attr->dump(3);
226          my $html = $self->page(          my $html = $self->page(
227                  title => "Introspect $class",                  title => "Introspect $class",
228                  body => qq|<h1>$class</h1>|                  body => qq|<h1>$class</h1>|
229                          . qq|<div class="frey-object-browser">$superclasses\n$roles\n$execute\n|                          . qq|<div class="frey-introspect">$superclasses\n$roles\n$execute\n|
230                          . ( $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>| : '' )
231                          . qq|$table\n$pod</div>|                          . qq|$table\n$pod</div>|
232    
Legend:
Removed from v.311  
changed lines
  Added in v.312
  ViewVC Help
Powered by ViewVC 1.1.26