34 |
$html .= qq|<a href="/Frey-ObjectDesigner?class=$class">design</a>| if $class->can('collection'); |
$html .= qq|<a href="/Frey-ObjectDesigner?class=$class">design</a>| if $class->can('collection'); |
35 |
} |
} |
36 |
} |
} |
37 |
my @run; |
|
38 |
my @input; |
my @run = map { |
39 |
|
s{^as_}{}; |
40 |
|
qq|<a href="/$class/as_$_" title="$class->as_$_">$_</a>|; |
41 |
|
} $self->class_runnable( $class ); |
42 |
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'); |
43 |
my @class_methods = $self->class_methods( $class ); |
|
44 |
|
my @inputs = $self->class_inputs( $class ); |
|
push @run, qq|<a href="/$class/as_$_">$_</a>| |
|
|
foreach ( map { s{^as_}{} } $self->class_runnable( $class ) ); |
|
|
push @input, $_ |
|
|
foreach $self->class_inputs( $class ); |
|
45 |
|
|
46 |
$usage->{$class} ||= 0; |
$usage->{$class} ||= 0; |
47 |
$html |
$html |
48 |
.= qq|</td><td>| |
.= qq|</td><td>| |
49 |
. join(' ', @run) |
. join(' ', @run) |
50 |
. qq|</td><td>| |
. qq|</td><td>| |
51 |
. ( @input ? '← ' . join(' ', @input) : '' ) |
. ( @inputs ? '← ' . join(' ', @inputs) : '' ) |
52 |
. qq|</td><td>| |
. qq|</td><td>| |
53 |
. ( $usage->{$class} || '' ) |
. ( $usage->{$class} || '' ) |
54 |
. qq|</td></tr>| |
. qq|</td></tr>| |