| 39 |
push @run, qq|<a href="/Frey-ObjectBrowser?class=$class">collection</a>| if $class->can('collection_table'); |
push @run, qq|<a href="/Frey-ObjectBrowser?class=$class">collection</a>| if $class->can('collection_table'); |
| 40 |
my @class_methods = $self->class_methods( $class ); |
my @class_methods = $self->class_methods( $class ); |
| 41 |
|
|
| 42 |
push @run, qq|<a href="/$class/$_">$_</a>| |
push @run, qq|<a href="/$class/as_$_">$_</a>| |
| 43 |
foreach ( grep { m{^as_} } @class_methods ); |
foreach ( map { s{^as_}{} } $self->class_runnable( $class ) ); |
| 44 |
push @input, $_ |
push @input, $_ |
| 45 |
foreach ( grep { m{^(markup/as_data/as_sponge)$} } @class_methods ); |
foreach $self->class_inputs( $class ); |
| 46 |
|
|
| 47 |
$usage->{$class} ||= 0; |
$usage->{$class} ||= 0; |
| 48 |
$html |
$html |
Parent Directory
| 
Revision Log
| 
Patch