/ 
WWW-AzimuthAero-0.2
River stage zero No dependents
/ WWW::AzimuthAero::RouteMap

NAME

WWW::AzimuthAero::RouteMap - Route map representation

VERSION

version 0.2

SYNOPSIS

my $az = WWW::AzimuthAero->new();
$az->get( from => 'ROV', to => 'LED', date => '14.06.2019' ); 
$az->get_lowest_fares( from => 'ROV', to => 'LED', max_date => '14.08.2019' )->print;

DESCRIPTION

https://azimuth.aero/ru/about/flight-map

new

my $rm = WWW::AzimuthAero::RouteMap->new($route_map_raw_hash);

new

Return hash with original route map parsed from site

all_cities

Return sorted list of city names in route map

print $rm->all_cities()    
print join(',' map { "\'". $_ ."\'" } $rm->all_cities() ); # for json array

get

Universal accessor function for route map, wrapper under "all_cities" in WWW::AzimuthAero::RouteMap

$rm->get( $which_property, $by_what_property, $what_property_val )

Examples:

$rm->get('IATA', 'NAME', 'Ростов-на-Дону')
$rm->get('IATA', 'AZO', 'РОВ')

route_map_iata

Return hash with IATA route map

perl -Ilib -MWWW::AzimuthAero -MData::Dumper -e 'my $x = WWW::AzimuthAero->new->route_map->route_map_iata; warn Dumper $x;'

Amount of cities

my $x = WWW::AzimuthAero->new->route_map->route_map_iata; print scalar values %$x;

Amount of all routes

perl -Ilib -MWWW::AzimuthAero -e 'my $x = WWW::AzimuthAero->new->route_map->route_map_iata; my $i = 0; $i+= scalar @$_ for values %$x; print $i;'

neighbor_airports

Return hash of airports that are no more than 4 hours by train from each other

For now it's manually hardcoded

{
    'Ростов-на-Дону'    => [qw/Краснодар/],
    'Москва'            => [qw/Калуга/],  
    'Санкт-Петербург'   => [qw/Псков/]
};

Cities are set by name, not IATA code, for convenience

When you set new city please check it's availability at "all_cities" in WWW::AzimuthAero::RouteMap

TO-DO: check correctness with Yandex Maps API and RZD API

get_neighbor_airports_iata

Return list of IATA codes of neighbor airports based on "neighbor_airports" in WWW::AzimuthAero::RouteMap

$rm->get_neighbor_airports_iata('LED') # ( 'PKV' )

transfer_routes

Convert route map to Graph object and return ARRAYref of routes with one transfer maximum

perl -Ilib -MData::Dumper -MWWW::AzimuthAero -e 'my $x = WWW::AzimuthAero->new->route_map->transfer_routes; warn Dumper $x;'

Params:

# graph processing options :
# $params{max_edges} - 2 by default, hardcoded for now
# $params{check_neighbors}

# source and destination cities :
# $params{from} +
# $params{to} +

# schedule processing :
# $params{min}
# $params{max}
# $params{max_delay_days}

AUTHOR

Pavel Serikov <pavelsr@cpan.org>

COPYRIGHT AND LICENSE

This software is copyright (c) 2019 by Pavel Serikov.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.