From c446317a5db8c79f57fa5b057891abe11c559435 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Fri, 20 Dec 2013 23:24:12 +0100 Subject: Add Build.PL, list ::Result accessors in documenattion --- lib/Travel/Status/DE/IRIS.pm | 28 +++++++++ lib/Travel/Status/DE/IRIS/Result.pm | 114 ++++++++++-------------------------- 2 files changed, 58 insertions(+), 84 deletions(-) (limited to 'lib') diff --git a/lib/Travel/Status/DE/IRIS.pm b/lib/Travel/Status/DE/IRIS.pm index 508ed28..7cb35ea 100644 --- a/lib/Travel/Status/DE/IRIS.pm +++ b/lib/Travel/Status/DE/IRIS.pm @@ -133,3 +133,31 @@ sub results { } 1; + +__END__ + +=head1 NAME + +Travel::Status::DE::IRIS - Interface to IRIS based web departure monitors. + +=head1 SYNOPSIS + +TODO + +=head1 VERSION + +version 0.00 + +=head1 DESCRIPTION + +TraveL::Status::DE::IRIS is an unofficial interface to IRIS based web +departure monitors such as +L. + +=head1 AUTHOR + +Copyright (C) 2013 by Daniel Friesel Ederf@finalrewind.orgE + +=head1 LICENSE + +This module is licensed under the same terms as Perl itself. diff --git a/lib/Travel/Status/DE/IRIS/Result.pm b/lib/Travel/Status/DE/IRIS/Result.pm index 665be76..a952cd9 100644 --- a/lib/Travel/Status/DE/IRIS/Result.pm +++ b/lib/Travel/Status/DE/IRIS/Result.pm @@ -15,9 +15,9 @@ our $VERSION = '0.00'; Travel::Status::DE::IRIS::Result->mk_ro_accessors( qw(arrival_date arrival_datetime arrival_time date datetime - departure_date departure_datetime departure_time line_no + departure_date departure_datetime departure_time line_no raw_id start_date start_datetime start_time stop_no - raw_id stop_no time train_id train_no + time train_id train_no type unknown_t unknown_o) ); @@ -152,8 +152,8 @@ __END__ =head1 NAME -Travel::Status::DE::DeutscheBahn::Result - Information about a single -arrival/departure received by Travel::Status::DE::DeutscheBahn +Travel::Status::DE::IRIS::Result - Information about a single +arrival/departure received by Travel::Status::DE::IRIS =head1 SYNOPSIS @@ -184,8 +184,8 @@ version 1.02 =head1 DESCRIPTION -Travel::Status::DE::DeutscheBahn::Result describes a single arrival/departure -as obtained by Travel::Status::DE::DeutscheBahn. It contains information about +Travel::Status::DE::IRIs::Result describes a single arrival/departure +as obtained by Travel::Status::DE::IRIS. It contains information about the platform, time, route and more. =head1 METHODS @@ -194,79 +194,45 @@ the platform, time, route and more. =over -=item $result->date - -Arrival/Departure date in "dd.mm.yyyy" format. - -=item $result->delay - -Returns the train's delay in minutes, or undef if it is unknown. - -=item $result->info - -Returns additional information, for instance the reason why the train is -delayed. May be an empty string if no (useful) information is available. - -=item $result->line +=item $result->arrival_date -=item $result->train +=item $result->arrival_datetime -Returns the line name, either in a format like "S 1" (S-Bahn line 1) -or "RE 10111" (RegionalExpress train 10111, no line information). +=item $result->arrival_time -=item $result->platform - -Returns the platform from which the train will depart / at which it will -arrive. - -=item $result->route - -Returns a list of station names the train will pass between the selected -station and its origin/destination. - -=item $result->route_end +=item $result->date -Returns the last element of the route. Depending on how you set up -Travel::Status::DE::DeutscheBahn (arrival or departure listing), this is -either the train's destination or its origin station. +=item $result->datetime -=item $result->destination +=item $result->departure_date -=item $result->origin +=item $result->departure_datetime -Convenience aliases for $result->route_end. +=item $result->departure_time -=item $result->route_interesting([I]) +=item $result->line_no -Returns a list of up to I (default: 3) interesting stations the train -will pass on its journey. Since deciding whether a station is interesting or -not is somewhat tricky, this feature should be considered experimental. +=item $result->raw_id -The first element of the list is always the train's next stop. The following -elements contain as many main stations as possible, but there may also be -smaller stations if not enough main stations are available. +=item $result->start_date -In future versions, other factors may be taken into account as well. For -example, right now airport stations are usually not included in this list, -although they should be. +=item $result->start_datetime -Note that all main stations will be stripped of their "Hbf" suffix. +=item $result->start_time -=item $result->route_raw +=item $result->stop_no -Returns the raw string used to create the route array. +=item $result->time -Note that canceled stops are filtered from B, but still present in -B. +=item $result->train_id -=item $result->route_timetable +=item $result->train_no -Similar to B. however, this function returns a list of array -references of the form C<< [ arrival time, station name ] >>. +=item $result->type -=item $result->time +=item $result->unknown_t -Returns the arrival/departure time as string in "hh:mm" format. +=item $result->unknown_o =back @@ -274,31 +240,11 @@ Returns the arrival/departure time as string in "hh:mm" format. =over -=item $result = Travel::Status::DE::DeutscheBahn::Result->new(I<%data>) +=item $result = Travel::Status::DE::IRIS::Result->new(I<%data>) -Returns a new Travel::Status::DE::DeutscheBahn::Result object. +Returns a new Travel::Status::DE::IRIS::Result object. You usually do not need to call this. -Required I: - -=over - -=item B