#!/usr/bin/env perl
use
strict;
use
warnings;
use
Map::Tube::GraphViz;
# Object.
my
$obj
= Map::Tube::SaintPetersburg->new;
# GraphViz object.
my
$g
= Map::Tube::GraphViz->new(
'callback_node'
=> \
&node_color_without_label
,
'tube'
=>
$obj
,
);
# Get graph to file.
$g
->graph(
'SaintPetersburg.png'
);
# Print file.
system
"ls -l SaintPetersburg.png"
;
# Output like:
# -rw-r--r-- 1 skim skim 207926 Feb 18 07:13 SaintPetersburg.png