NAME
Map::Tube::Malaga - Interface to the Málaga Metro Map.
SYNOPSIS
use
Map::Tube::Malaga;
my
$obj
= Map::Tube::Malaga->new;
my
$routes_ar
=
$obj
->get_all_routes(
$from
,
$to
);
my
$line
=
$obj
->get_line_by_id(
$line_id
);
my
$line
=
$obj
->get_line_by_name(
$line_name
);
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 Málaga Map, click here.
METHODS
new
my
$obj
= Map::Tube::Malaga->new;
Constructor.
Returns instance of object.
get_all_routes
[EXPERIMENTAL]
my
$routes_ar
=
$obj
->get_all_routes(
$from
,
$to
);
Get all routes from station to station.
Returns reference to array with Map::Tube::Route objects.
get_line_by_id
my
$line
=
$obj
->get_line_by_id(
$line_id
);
Get line object defined by id.
Returns Map::Tube::Line object.
get_line_by_name
my
$line
=
$obj
->get_line_by_name(
$line_name
);
Get line object defined by name.
Returns Map::Tube::Line object.
get_lines
my
$lines_ar
=
$obj
->get_lines;
Get lines in metro map.
Returns reference to unsorted array with Map::Tube::Line objects.
get_node_by_id
my
$station
=
$obj
->get_node_by_id(
$station_id
);
Get station node by id.
Returns Map::Tube::Node object.
get_node_by_name
my
$station
=
$obj
->get_node_by_name(
$station_name
);
Get station node by name.
Returns Map::Tube::Node object.
get_shortest_route
my
$route
=
$obj
->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
my
$stations_ar
=
$obj
->get_stations(
$line
);
Get list of stations for concrete metro line.
Returns reference to array with Map::Tube::Node objects.
name
my
$metro_name
=
$obj
->name;
Get metro name.
Returns string with metro name.
xml
my
$xml_file
=
$obj
->xml;
Get XML specification of Málaga metro.
Returns string with XML.
EXAMPLE1
use
strict;
use
warnings;
use
Map::Tube::Malaga;
# Object.
my
$obj
= Map::Tube::Malaga->new;
# Get route.
my
$route
=
$obj
->get_shortest_route(
'Princesa-Huelin'
,
'Barbarela'
);
# Print out type.
"Route: "
.encode_utf8(
$route
).
"\n"
;
# Output:
# Route: Princesa-Huelin (Línea 2), La Isla (Línea 2), El Perchel (Línea 2), El Perchel (Línea 1), La Unión (Línea 1), Barbarela (Línea 1)
EXAMPLE2
use
strict;
use
warnings;
use
Map::Tube::Malaga;
# Object.
my
$obj
= Map::Tube::Malaga->new;
# Get XML file.
my
$xml_file
=
$obj
->xml;
# Print out XML file.
"XML file: $xml_file\n"
;
# Output like:
# XML file: .*/malaga-map.xml
EXAMPLE3
use
strict;
use
warnings;
use
Map::Tube::GraphViz;
use
Map::Tube::Malaga;
# Object.
my
$obj
= Map::Tube::Malaga->new;
# GraphViz object.
my
$g
= Map::Tube::GraphViz->new(
'callback_node'
=> \
&node_color_without_label
,
'tube'
=>
$obj
,
);
# Get graph to file.
$g
->graph(
'Malaga.png'
);
# Print file.
system
"ls -l Malaga.png"
;
# Output like:
# -rw-r--r-- 1 skim skim 51733 Sep 1 14:00 Malaga.png

EXAMPLE4
use
strict;
use
warnings;
use
Map::Tube::Malaga;
# Object.
my
$obj
= Map::Tube::Malaga->new;
# Get lines.
my
$lines_ar
=
$obj
->get_lines;
# Print out.
map
{
encode_utf8(
$_
->name).
"\n"
; }
sort
@{
$lines_ar
};
# Output:
# Línea 1
# Línea 2
EXAMPLE5
use
strict;
use
warnings;
use
Map::Tube::Malaga;
# Arguments.
if
(
@ARGV
< 1) {
STDERR
"Usage: $0 line\n"
;
exit
1;
}
my
$line
= decode_utf8(
$ARGV
[0]);
# Object.
my
$obj
= Map::Tube::Malaga->new;
# Get stations for line.
my
$stations_ar
=
$obj
->get_stations(
$line
);
# Print out.
map
{
encode_utf8(
$_
->name).
"\n"
; } @{
$stations_ar
};
# Output:
# Usage: __PROG__ line
# Output with 'foo' argument.
# Map::Tube::get_stations(): ERROR: Invalid Line Name [foo]. (status: 105) file __PROG__ on line __LINE__
# Output with 'Línea 1' argument.
# El Perchel
# La Unión
# Barbarela
# Carranque
# Portada Alta
# Ciudad de la Justicia
# Universidad
# Clínico
# El Cónsul
# Paraninfo
# Andalucía Tech
DEPENDENCIES
File::Share, Map::Tube, Moo, namespace::clean.
SEE ALSO
- Map::Tube
-
Core library as Role (Moo) to process map data.
- Task::Map::Tube
-
Install the Map::Tube modules.
- Task::Map::Tube::Metro
-
Install the Map::Tube concrete metro modules.
REPOSITORY
https://github.com/michal-josef-spacek/Map-Tube-Malaga
AUTHOR
Michal Josef Špaček mailto:skim@cpan.org
DEDICATION
I dedicate this module to my visit in Málaga.
LICENSE AND COPYRIGHT
© 2015-2025 Michal Josef Špaček
Artistic License
BSD 2-Clause License
VERSION
0.18