15 |
documentation => 'Show usage on top of list', |
documentation => 'Show usage on top of list', |
16 |
); |
); |
17 |
|
|
18 |
sub markup { |
sub as_markup { |
19 |
my $self = shift; |
my $self = shift; |
20 |
my $row; |
my $row; |
21 |
|
|
37 |
my @run; |
my @run; |
38 |
my @input; |
my @input; |
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_method = $self->class_methods( $class ); |
my @class_methods = $self->class_methods( $class ); |
41 |
foreach my $try ( Frey::Run->runnable ) { |
|
42 |
next unless $class->can($try); |
push @run, qq|<a href="/$class/$_">$_</a>| |
43 |
if ( $class_method->{ $try } ) { |
foreach ( grep { m{^as_} } @class_methods ); |
44 |
push @run, qq|<a href="/$class/$try">$try</a>|; |
push @input, $_ |
45 |
} else { |
foreach ( grep { m{^(markup/as_data/as_sponge)$} } @class_methods ); |
46 |
push @input, $try; |
|
|
} |
|
|
} |
|
47 |
$usage->{$class} ||= 0; |
$usage->{$class} ||= 0; |
48 |
$html |
$html |
49 |
.= qq|</td><td>| |
.= qq|</td><td>| |