4 |
use lib 'lib'; |
use lib 'lib'; |
5 |
|
|
6 |
extends 'Frey::Class::Loader'; |
extends 'Frey::Class::Loader'; |
7 |
with 'Frey::Web'; |
with 'Frey::Web', 'Frey::Session', 'Frey::Web::CombineImages', 'Frey::Class::Icon'; |
|
with 'Frey::Session'; |
|
|
with 'Frey::Web::CombineImages'; |
|
|
with 'Frey::Class::Icon'; |
|
8 |
|
|
9 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
10 |
|
|
93 |
$icons_html->{ $path } || die "can't find $path in ",dump($icons_html); |
$icons_html->{ $path } || die "can't find $path in ",dump($icons_html); |
94 |
}; |
}; |
95 |
|
|
96 |
$self->title('Frey') if $self->can('title'); # FIXME |
eval { |
97 |
|
|
98 |
|
$self->title('Frey'); |
99 |
|
|
100 |
$self->add_css(qq| |
$self->add_css(qq| |
101 |
a.graph { |
a.graph { |
104 |
} |
} |
105 |
|); |
|); |
106 |
|
|
107 |
|
}; |
108 |
|
warn "FIXME: $@" if $@; |
109 |
|
|
110 |
return |
return |
111 |
qq|<table>| . join("\n", |
qq|<table>| . join("\n", |
112 |
map { |
map { |
125 |
) . qq|</table>|; |
) . qq|</table>|; |
126 |
} |
} |
127 |
|
|
128 |
|
__PACKAGE__->meta->make_immutable; |
129 |
|
no Moose; |
130 |
|
|
131 |
1; |
1; |