16 |
documentation => 'Show usage on top of list', |
documentation => 'Show usage on top of list', |
17 |
); |
); |
18 |
|
|
19 |
|
our $usage; |
20 |
|
|
21 |
sub as_markup { |
sub as_markup { |
22 |
my $self = shift; |
my $self = shift; |
23 |
my $row; |
my $row; |
24 |
my @icons; |
my @icons; |
25 |
|
|
26 |
my $usage = $self->session_dump( $self->usage ); |
$usage ||= $self->session_dump( $self->usage ); |
27 |
#warn "# usage ",dump( $usage ); |
#warn "# usage ",dump( $usage ); |
28 |
foreach my $class ( $self->classes ) { |
foreach my $class ( $self->classes ) { |
29 |
|
|
82 |
$icons_html->{ $path } || die "can't find $path in ",dump($icons_html); |
$icons_html->{ $path } || die "can't find $path in ",dump($icons_html); |
83 |
}; |
}; |
84 |
|
|
85 |
|
$self->title('Frey'); |
86 |
|
|
87 |
return |
return |
88 |
qq|<table>| . join("\n", |
qq|<table>| . join("\n", |
89 |
map { |
map { |