#!/usr/pkg/bin/perl -w
#
# This is a simple idea which illustrates the use
# of clusters to, well, cluster nodes together

use strict;
use lib '../lib';
use GraphViz;

my $g = GraphViz->new();

$g->add_node('London', cluster => 'Europe');
$g->add_node('Paris', label => 'City of\nlurve', cluster => 'Europe');
$g->add_node('New York');

$g->add_edge('London' => 'Paris');
$g->add_edge('London' => 'New York', label => 'Far');
$g->add_edge('Paris' => 'London');

#print $g->_as_debug;
#print $g->as_text;
$g->as_png("clusters.png");

