#!/usr/bin/perl -w

#####################
# object oriented way

use strict;

use SpringGraph;

my $graph = new SpringGraph;
my $filename = 'testgraph_oo.png';

$graph->add_node('london', label=>'London (Waterloo)');
$graph->add_node('paris', label =>'Paris (Garde du Norde)');
$graph->add_node('brussels',label => "Brussels");

$graph->add_edge(london=>'paris');
#$graph->add_edge(paris=>'brussels');

warn "..getting as png\n";

$graph->as_png($filename);


warn "all done\n";