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>'; |
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;">↓pod&darr</a>| : '' ) |
. ( $pod ? qq|<a href="#___top" title="Skip to POD" style="font-size: 80%; color: #aaa;">↓pod&darr</a>| : '' ) |
231 |
. qq|$table\n$pod</div>| |
. qq|$table\n$pod</div>| |
232 |
|
|