From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

#!perl
use 5.006;
use strict; use warnings;
my $min_ver = '0.87';
eval "use Map::Tube::London $min_ver";
plan skip_all => "Map::Tube::London $min_ver required." if $@;
my $map = Map::Tube::London->new;
my $line = 'Bakerloo';
my $exp = $map->get_stations($map->get_line_by_name($line));
my $got = $map->get_line_by_name($line)->get_stations;
is_deeply($exp, $got, "Test index station for line.");
done_testing;