73 |
} |
} |
74 |
} |
} |
75 |
|
|
76 |
|
=for later |
77 |
|
|
78 |
|
foreach my $role ( keys %{ $data->{roles} } ) { |
79 |
|
next if $filter && $role !~ m{$filter}; |
80 |
|
$g->add_edge( $role => $class, label => 'role' ); |
81 |
|
} |
82 |
|
|
83 |
|
=cut |
84 |
|
|
85 |
} |
} |
86 |
|
|
87 |
warn "# count ",$self->dump( $count ); |
warn "# count ",$self->dump( $count ); |
88 |
|
|
|
$self->store( 'var/classes.dot', $g->as_text ); |
|
89 |
|
|
90 |
if ( $self->produce_dot ) { |
if ( $self->produce_dot ) { |
91 |
$self->content_type( 'text/plain' ); |
$self->content_type( 'text/plain' ); |
92 |
|
$self->store( 'var/classes.dot', $g->as_canon ); |
93 |
return $g->as_canon; |
return $g->as_canon; |
94 |
} |
} |
95 |
|
|