GWS / Map-Tube-Chicago-v0.1.0 / lib / Map / Tube / Chicago.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
—
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
—
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92

              
# -*- perl -*-
#
# Author: Gisbert W. Selke, TapirSoft Selke & Selke GbR.
#
# Copyright (C) 2025 Gisbert W. Selke. All rights reserved.
# This package is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.
#
# Mail: gws@cpan.org
#
package Map::Tube::Chicago;
use 5.12.0;
use version 0.77 ( );
use strict;
use warnings;
our $VERSION = version->declare('v0.1.0');
=encoding utf8
=head1 NAME
Map::Tube::Chicago - Interface to the Chicago L system map
=cut
use File::Share ':all';
use Moo;
use namespace::clean;
has xml => ( is => 'ro', default => sub { return dist_file('Map-Tube-Chicago', 'chicago-map.xml') } );
with 'Map::Tube';
=head1 SYNOPSIS
        use Map::Tube::Chicago;
        my $tube = Map::Tube::Chicago->new();
        my $route = $tube->get_shortest_route( 'Fullerton', 'Library');
    print "Route: $route\n";
=head1 DESCRIPTION
This module allows to find the shortest route between any two given tube or tram
stations in Chicago. All interesting methods are provided by the role L<Map::Tube>.
Since many stations in Chicago haaving the same name are in fact different stations,
this module disambiguates the names by attaching (A), (B) etc. This also applies to
stations of the same name where an interchange is possible but requires a walk
checking out from one station and checking in at another (of the same name).
=head1 METHODS
=head2 CONSTRUCTOR
        use Map::Tube::Chicago;
        my $tube = Map::Tube::Chicago->new();
The only argument, C<xml>, is optional; if specified, it should be a code ref
to a function that returns either the path the XML map file, or a string
containing this XML content. The default is the path to F<chicago-map.xml>
that is a part of this distribution. For further information see L<Map::Tube>.
=head2 xml()
This read-only accessor returns whatever was specified as the XML source at
construction.
=head1 ERRORS
If something goes wrong, maybe because the map information file was corrupted,
the constructor will die.
=head1 AUTHOR
Gisbert W. Selke, TapirSoft Selke & Selke GbR.
=head1 COPYRIGHT AND LICENCE
The data for the XML file were taken from https://en.wikipedia.org/wiki/Chicago_%22L%22
and some pages linked from there.
The module itself is free software; you may redistribute and/or modify
it under the same terms as Perl itself.
=head1 SEE ALSO
L<Map::Tube>, L<Map::Tube::GraphViz>.
=cut
1;