2 |
use Moose; |
use Moose; |
3 |
|
|
4 |
extends 'Frey'; |
extends 'Frey'; |
5 |
with 'Frey::Web'; |
with 'Frey::Web', 'Frey::File', 'Frey::Storage'; |
|
with 'Frey::File'; |
|
|
with 'Frey::Storage'; |
|
6 |
|
|
7 |
use GraphViz; |
use GraphViz; |
8 |
|
|
162 |
foreach my $role ( keys %{ $data->{roles} } ) { |
foreach my $role ( keys %{ $data->{roles} } ) { |
163 |
next if $filter && $self->filter_roles && $role !~ m{$filter}; |
next if $filter && $self->filter_roles && $role !~ m{$filter}; |
164 |
warn "# $class\trole\t$role\n"; |
warn "# $class\trole\t$role\n"; |
165 |
$g->add_edge( $role => $class, label => 'role', color => 'yellow' ); |
$g->add_edge( $role => $class, label => 'with', color => 'yellow' ); |
166 |
# $g->add_node( $role, rank => 'role' ); |
$g->add_node( $role, shape => 'diamond' ); |
167 |
$count->{$class}++; |
$count->{$class}++; |
168 |
$count->{$role}++; |
$count->{$role}++; |
169 |
} |
} |
215 |
|
|
216 |
} |
} |
217 |
|
|
218 |
|
__PACKAGE__->meta->make_immutable; |
219 |
|
no Moose; |
220 |
|
|
221 |
1; |
1; |