6 use Text::Tradition::Graph;
8 # First: read the base. Make a graph, but also note which
9 # nodes represent line beginnings.
11 open( GRAPH, $ARGV[0] ) or die "Could not read file $ARGV[0]";
14 my $graphml_str = join( '', @lines );
16 my $collation_graph = Text::Tradition::Graph->new(
17 'GraphML' => $graphml_str,
20 print $collation_graph->as_svg();
21 print STDERR "DONE\n";