--- trunk/lib/Frey/Class/Graph.pm	2009/01/09 19:45:26	973
+++ trunk/lib/Frey/Class/Graph.pm	2009/01/09 19:48:30	974
@@ -73,14 +73,23 @@
 			}
 		}
 
+=for later
+
+		foreach my $role ( keys %{ $data->{roles} } ) {
+			next if $filter && $role !~ m{$filter};
+			$g->add_edge( $role => $class, label => 'role' );
+		}
+
+=cut
+
 	}
 
 	warn "# count ",$self->dump( $count );
 
-	$self->store( 'var/classes.dot', $g->as_text );
 
 	if ( $self->produce_dot ) {
 		$self->content_type( 'text/plain' );
+		$self->store( 'var/classes.dot', $g->as_canon );
 		return $g->as_canon;
 	}