--- trunk/lib/Frey/ClassBrowser.pm 2008/11/26 20:47:13 545
+++ trunk/lib/Frey/ClassBrowser.pm 2008/11/26 22:38:45 550
@@ -24,12 +24,12 @@
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";
+ if ( ! $self->can('icon_path') ) {
+ warn "FIXME: re-apply Frey::Web on $self";
+ Frey::Web->meta->apply( $self );
}
+ $icon = $self->icon_path( $class );
+ $icon = qq|
| if $icon;
my $html
= qq|