6 |
with 'Frey::Session'; |
with 'Frey::Session'; |
7 |
with 'Frey::Web::CombineImages'; |
with 'Frey::Web::CombineImages'; |
8 |
|
|
9 |
|
use lib 'lib'; |
10 |
|
|
11 |
use Frey::Run; |
use Frey::Run; |
12 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
13 |
|
|
55 |
my $html |
my $html |
56 |
= qq|<tr><td>$icon</td><td><a target="$class" href="/$class" title="| |
= qq|<tr><td>$icon</td><td><a target="$class" href="/$class" title="| |
57 |
. $self->class_path( $class ) |
. $self->class_path( $class ) |
58 |
. qq|">$class</a></td><td>| |
. qq|">$class</a> |
59 |
|
<a target="Frey::Class::Graph" title="show class graph" href="/Frey::Class::Graph/as_markup?filter=$class&filter_class=1&filter_extends=0&filter_includes=0&filter_roles=0&show_extends=1&show_includes=1&show_roles=1&layout=dot" style="color: #ccc">☍</a> |
60 |
|
</td><td>| |
61 |
; |
; |
62 |
if ( $class->can('meta') ) { |
if ( $class->can('meta') ) { |
63 |
if ( $class->meta->isa('Moose::Meta::Role') ) { |
if ( $class->meta->isa('Moose::Meta::Role') ) { |