Unverified Commit f4c810ae authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

IRIS(3pm): new and new_p also accept station names

parent 086e9d2e

lib/Travel/Status/DE/IRIS.pm

+2 −11
Original line number Diff line number Diff line
@@ -931,13 +931,8 @@ Travel::Status::DE::IRIS - Interface to IRIS based web departure monitors. 
Blocking variant:



    use Travel::Status::DE::IRIS;

    use Travel::Status::DE::IRIS::Stations;



    # Get station code for "Essen Hbf" (-> "EE")

    my $station = (Travel::Status::DE::IRIS::Stations::get_station_by_name(

        'Essen Hbf'))[0][0];

    

    my $status = Travel::Status::DE::IRIS->new(station => $station);

    my $status = Travel::Status::DE::IRIS->new(station => "Essen Hbf");

    for my $r ($status->results) {

        printf(

            "%s %s +%-3d %10s -> %s\n",
@@ -952,11 +947,7 @@ Non-blocking variant: 
    use Travel::Status::DE::IRIS;

    use Travel::Status::DE::IRIS::Stations;

    

    # Get station code for "Essen Hbf" (-> "EE")

    my $station = (Travel::Status::DE::IRIS::Stations::get_station_by_name(

        'Essen Hbf'))[0][0];

    

    Travel::Status::DE::IRIS->new_p(station => $station,

    Travel::Status::DE::IRIS->new_p(station => "Essen Hbf",

            promise => 'Mojo::Promise', user_agent => Mojo::UserAgent->new,

            get_station => \&Travel::Status::DE::IRIS::Stations::get_station,

            meta => Travel::Status::DE::IRIS::Stations::get_meta())->then(sub {