The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

GWS / Map-Tube-Stuttgart-v0.1.0 / lib / Map / Tube / Stuttgart.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
93

              
# -*- 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::Stuttgart;
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::Stuttgart - Interface to the Stuttgart tube map
=cut
use File::Share ':all';
use Moo;
use namespace::clean;
has xml => ( is => 'ro', default => sub { return dist_file('Map-Tube-Stuttgart', 'stuttgart-map.xml') } );
with 'Map::Tube';
=head1 SYNOPSIS
        use Map::Tube::Stuttgart;
        my $tube = Map::Tube::Stuttgart->new( );
        my $route = $tube->get_shortest_route('Wilhelma', 'Bopser')->preferred( );
        print "Route: $route\n";
=head1 DESCRIPTION
This module allows to find the shortest route between any two given tube
stations in Stuttgart. All interesting methods are provided by the role
L<Map::Tube>.
=head1 METHODS
=head2 CONSTRUCTOR
        use Map::Tube::Stuttgart;
        my $tube = Map::Tube::Stuttgart->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<stuttgart-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 L<www.vvs.de>.
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;