Map::Tube::Graph - Graph output for Map::Tube.
use Map::Tube::Graph; my $obj = Map::Tube::GraphViz->new(%params); my $graph = $obj->graph;
new(%params)
Constructor.
callback_edge
Edge callback. Default value is this: sub { my ($self, $node, $link) = @_; $self->{'graph'}->add_edge($node->id, $link); return; }
callback_vertex
Vertex callback. Default value is this: sub { my ($self, $node) = @_; $self->{'graph'}->add_vertex($node->id); return; }
graph
Graph object. Default value is Graph->new.
tube
Map::Tube object. It is required. Default value is undef.
graph()
Get Graph object. Returns Graph object.
new(): Cannot load UNIVERSAL::DOES module. Parameter 'tube' is required. Parameter 'tube' must be 'Map::Tube' object. From Class::Utils::set_params(): Unknown parameter '%s'.
use strict; use warnings; use English; use Error::Pure qw(err); use Map::Tube::Graph; # Arguments. if (@ARGV < 1) { print STDERR "Usage: $0 metro\n"; exit 1; } my $metro = $ARGV[0]; # Object. my $class = 'Map::Tube::'.$metro; eval "require $class;"; if ($EVAL_ERROR) { err "Cannot load '$class' class.", 'Error', $EVAL_ERROR; } # Metro object. my $tube = eval "$class->new"; if ($EVAL_ERROR) { err "Cannot create object for '$class' class.", 'Error', $EVAL_ERROR; } # GraphViz object. my $g = Map::Tube::Graph->new( 'tube' => $tube, ); # Get graph. my $graph = $g->graph; # Output. print $graph."\n"; # Output without arguments like: # Usage: /tmp/SZXfa2g154 metro # Output with 'Prague' argument like: # A02-A01,A02-A03,A04-A03,A04-MUSTEK,A07-A08,A07-MUZEUM,A08-A09,A09-A10,A11-A10,A11-A12,A13-A12,B01-B02,B03-B02,B03-B04,B05-B04,B05-B06,B07-B06,B08-B07,B08-B09,B10-B09,B10-B11,B11-B12,B17-B16,B17-B18,B18-B19,B19-B20,B21-B20,B21-B22,B22-B23,B24-B23,C01-C02,C03-C02,C04-C03,C04-C05,C06-C05,C06-C07,C09-MUZEUM,C11-C12,C11-MUZEUM,C13-C12,C13-C14,C14-C15,C16-C15,C16-C17,C18-C17,C18-C19,C20-C19,FLORENC-B14,FLORENC-B16,FLORENC-C07,FLORENC-C09,MUSTEK-B12,MUSTEK-B14,MUSTEK-MUZEUM
Class::Utils, English, Error::Pure, Graph, List::Util, Scalar::Util.
UNIVERSAL::DOES if doesn't exists in Perl.
Core library as Role (Moo) to process map data.
GraphViz output for Map::Tube.
Graph plugin for Map::Tube.
Table output for Map::Tube.
Install the Map::Tube modules.
https://github.com/michal-josef-spacek/Map-Tube-Graph
Michal Josef Špaček mailto:skim@cpan.org
http://skim.cz
© 2014-2023 Michal Josef Špaček
Artistic License
BSD 2-Clause License
0.06
To install Map::Tube::Graph, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Map::Tube::Graph
CPAN shell
perl -MCPAN -e shell install Map::Tube::Graph
For more information on module installation, please visit the detailed CPAN module installation guide.