NAME Map::Tube::Singapore - Interface to the Singapore Metro Map. SYNOPSIS use Map::Tube::Singapore; my $obj = Map::Tube::Singapore->new; my $routes_ar = $obj->get_all_routes($from, $to); my $lines_ar = $obj->get_lines; my $station = $obj->get_node_by_id($station_id); my $station = $obj->get_node_by_name($station_name); my $route = $obj->get_shortest_route($from, $to); my $stations_ar = $obj->get_stations($line); my $metro_name = $obj->name; my $xml_file = $obj->xml; DESCRIPTION It currently provides functionality to find the shortest route between the two given nodes. For more information about Singapore Map, click here . METHODS "new()" Constructor. "get_all_routes($from, $to)" [EXPERIMENTAL] Get all routes from station to station. Returns reference to array with Map::Tube::Route objects. "get_lines()" Get lines in metro map. Returns reference to array with Map::Tube::Line objects. "get_node_by_id($station_id)" Get station node by id. Returns Map::Tube::Node object. "get_node_by_name($station_name)" Get station node by name. Returns Map::Tube::Node object. "get_shortest_route($from, $to)" Get shortest route between $from and $to node names. Node names in $from and $to are case insensitive. Returns Map::Tube::Route object. "get_stations($line)" Get list of stations for concrete metro line. Returns reference to array with Map::Tube::Node objects. "name()" Get metro name. Returns string with metro name. "xml()" Get XML specification of Singapore metro. Returns string with XML. EXAMPLE1 # Pragmas. use strict; use warnings; # Modules. use Map::Tube::Singapore; # Object. my $obj = Map::Tube::Singapore->new; # Get route. my $route = $obj->get_shortest_route('Admiralty', 'Tampines'); # Print out type. print "Route: ".$route."\n"; # Output: # Route: Admiralty (North South MRT Line), Sembawang (North South MRT Line), Canberra (North South MRT Line), Yishun (North South MRT Line), Khatib (North South MRT Line), Yio Chu Kang (North South MRT Line), Ang Mo Kio (North South MRT Line), Bishan (North South MRT Line), Bishan (Circle MRT Line), Lorong Chuan (Circle MRT Line), Serangoon (Circle MRT Line), Bartley (Circle MRT Line), Tai Seng (Circle MRT Line), MacPherson (Circle MRT Line), Paya Lebar (Circle MRT Line), Paya Lebar (East West MRT Line), Eunos (East West MRT Line), Kembangan (East West MRT Line), Bedok (East West MRT Line), Tanah Merah (East West MRT Line), Simei (East West MRT Line), Tampines (East West MRT Line) EXAMPLE2 # Pragmas. use strict; use warnings; # Modules. use Map::Tube::Singapore; # Object. my $obj = Map::Tube::Singapore->new; # Get XML file. my $xml_file = $obj->xml; # Print out XML file. print "XML file: $xml_file\n"; # Output like: # XML file: .*/singapore-map.xml EXAMPLE3 # Pragmas. use strict; use warnings; # Modules. use Map::Tube::GraphViz; use Map::Tube::GraphViz::Utils qw(node_color_without_label); use Map::Tube::Singapore; # Object. my $obj = Map::Tube::Singapore->new; # GraphViz object. my $g = Map::Tube::GraphViz->new( 'callback_node' => \&node_color_without_label, 'tube' => $obj, ); # Get graph to file. $g->graph('Singapore.png'); # Print file. system "ls -l Singapore.png"; # Output like: # -rw-r--r-- 1 skim skim 340307 Feb 15 15:09 Singapore.png DEPENDENCIES File::Share, Map::Tube, Moo, namespace::clean. SEE ALSO Map::Tube, Map::Tube::Graph, Map::Tube::GraphViz, Map::Tube::Plugin::Graph, Map::Tube::Text::Table, Task::Map::Tube. Map::Tube::Barcelona, Map::Tube::Berlin, Map::Tube::Bucharest, Map::Tube::Delhi, Map::Tube::Dnipropetrovsk, Map::Tube::Kazan, Map::Tube::Kharkiv, Map::Tube::Kiev, Map::Tube::London, Map::Tube::Minsk, Map::Tube::Moscow, Map::Tube::Novosibirsk, Map::Tube::NYC, Map::Tube::Prague, Map::Tube::SaintPetersburg, Map::Tube::Samara, Map::Tube::Sofia, Map::Tube::Tbilisi, Map::Tube::Tokyo, Map::Tube::Vienna, Map::Tube::Warsaw, Map::Tube::Yekaterinburg. REPOSITORY AUTHOR Michal Špaček LICENSE AND COPYRIGHT © 2014-2015 Michal Špaček Artistic License BSD 2-Clause License VERSION 0.01