Yet Another CPAN Grep

WWW-AzimuthAero ( P/PA/PAVELSR/WWW-AzimuthAero-0.4.tar.gz, PAVELSR, 2019; MetaCPAN )

WWW-AzimuthAero/lib/WWW/AzimuthAero.pm ( view source; MetaCPAN )

= $self->{ua}->get($url);
    $self->{last_transaction} = $get_req;

    my $res = $get_req->res->json;

    if ( ref( $res->{available_to} ) eq 'ARRAY' ) {

        my @dates;
        for my $interva

aero/ru/flights?from=' . $from . '&to=' . $to;
            my $res = $self->{ua}->get($url)->res->json;
            say $i;
            $res{$from} = $to if ( ref( $res->{available_to} ) ne 'ARRAY' );

WWW-AzimuthAero ( P/PA/PAVELSR/WWW-AzimuthAero-0.4.tar.gz, PAVELSR, 2019; MetaCPAN )

WWW-AzimuthAero/lib/WWW/AzimuthAero/Mock.pm ( view source; MetaCPAN )

 'MOW',
            date => '23.06.2019'
        }
    };
}

sub filename {
    return 't/ua_mock.json';
}


sub generate {
    my $self      = shift;
    my $mock_data = $self->mock_data->{get};

cks

=head2 mock_data

Return data that is used for mock at unit tests

=head2 generate

Generate json mock data

=head1 AUTHOR

Pavel Serikov <pavelsr@cpan.org>

=head1 COPYRIGHT AND LICENSE

This so

WWW-AzimuthAero ( P/PA/PAVELSR/WWW-AzimuthAero-0.4.tar.gz, PAVELSR, 2019; MetaCPAN )

WWW-AzimuthAero/lib/WWW/AzimuthAero/RouteMap.pm ( view source; MetaCPAN )

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

=head2 get

Universal accessor function for route map, wrapper under L<WWW::AzimuthAero::R