Sponsoring The Perl Toolchain Summit 2025: Help make this important event another success Learn more

SKIM / Map-Tube-Samara-0.08 / examples / print_samara_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::Samara;
# Object.
my $obj = Map::Tube::Samara->new;
# Get XML file.
my $xml_file = $obj->xml;
# Print out XML file.
print "XML file: $xml_file\n";
# Output like:
# XML file: .*/samara-map.xml