--- trunk/lib/Frey/ClassBrowser.pm 2008/11/19 16:53:13 457
+++ trunk/lib/Frey/ClassBrowser.pm 2008/11/26 05:14:27 531
@@ -22,8 +22,17 @@
my $usage = $self->session_dump( $self->usage );
#warn "# usage ",dump( $usage );
foreach my $class ( $self->classes ) {
+
+ my $icon = '';
+ if ( $self->can('icon_path') ) {
+ $icon = $self->icon_path( $class );
+ $icon = qq|| if $icon;
+ } else {
+ warn "## $self doesn't know how to return icon_path";
+ }
+
my $html
- = qq|
$class | |
;
@@ -31,25 +40,24 @@
if ( $class->meta->isa('Moose::Meta::Role') ) {
$html .= qq|role|;
} else {
- $html .= qq|design| if $class->can('collection');
+ $html .= qq|design| if $class->can('collection');
}
}
- my @run;
- my @input;
- push @run, qq|collection| if $class->can('collection_table');
- my @class_methods = $self->class_methods( $class );
-
- push @run, qq|$_|
- foreach ( map { s{^as_}{} } $self->class_runnable( $class ) );
- push @input, $_
- foreach $self->class_inputs( $class );
+
+ my @run = map {
+ s{^as_}{};
+ qq|$_|;
+ } $self->class_runnable( $class );
+ push @run, qq|collection| if $class->can('collection_table');
+
+ my @inputs = $self->class_inputs( $class );
$usage->{$class} ||= 0;
$html
.= qq| | |
. join(' ', @run)
. qq| | |
- . ( @input ? '← ' . join(' ', @input) : '' )
+ . ( @inputs ? '← ' . join(' ', @inputs) : '' )
. qq| | |
. ( $usage->{$class} || '' )
. qq| |
|