22 |
my $usage = $self->session_dump( $self->usage ); |
my $usage = $self->session_dump( $self->usage ); |
23 |
#warn "# usage ",dump( $usage ); |
#warn "# usage ",dump( $usage ); |
24 |
foreach my $class ( $self->classes ) { |
foreach my $class ( $self->classes ) { |
25 |
|
my $icon_path; |
26 |
|
eval { $icon_path = $self->icon_path( $class ); }; |
27 |
my $html |
my $html |
28 |
= qq|<tr><td><a target="introspect" href="/$class" title="| |
= qq|<tr><td>| |
29 |
|
. ( $icon_path ? qq|<img src="/$icon_path" alt="$class">| : '?' ) |
30 |
|
. qq|</td><td><a target="introspect" href="/$class" title="| |
31 |
. $self->class_path( $class ) |
. $self->class_path( $class ) |
32 |
. qq|">$class</a></td><td>| |
. qq|">$class</a></td><td>| |
33 |
; |
; |