view release on metacpan or  search on metacpan

script/app-map-metro  view on Meta::CPAN

};

sub map_checker {
    my $c = shift;
    my $city = shift;
    my $map = $maps{ $city };

    if(!defined $map) {
        $map = Map::Metro->new($city)->parse;
        if(!defined $map) {
            return $c->app->send_error(404, sprintf 'No such map <%s>', $city);
        }
        $maps{ $city } = $map;
    }
    return 0;
}

sub sorted_stations_in {
    my $city = shift;

    return sort { $a->name cmp $b->name } $maps{ $city }->all_stations;