The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

SKIM / Map-Tube-Singapore-0.05 / examples / print_singapore_def_xml_file.pl 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

              
#!/usr/bin/env perl
use strict;
use warnings;
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