--- trunk/lib/Frey/ClassBrowser.pm 2008/11/26 04:27:00 530
+++ trunk/lib/Frey/ClassBrowser.pm 2008/11/26 05:14:27 531
@@ -22,12 +22,17 @@
my $usage = $self->session_dump( $self->usage );
#warn "# usage ",dump( $usage );
foreach my $class ( $self->classes ) {
- my $icon_path;
- eval { $icon_path = $self->icon_path( $class ); };
+
+ 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|