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 |