diff options
Diffstat (limited to 'lib/Travel/Routing/DE/EFA/Route/Part.pm')
| -rw-r--r-- | lib/Travel/Routing/DE/EFA/Route/Part.pm | 217 |
1 files changed, 217 insertions, 0 deletions
diff --git a/lib/Travel/Routing/DE/EFA/Route/Part.pm b/lib/Travel/Routing/DE/EFA/Route/Part.pm new file mode 100644 index 0000000..137581d --- /dev/null +++ b/lib/Travel/Routing/DE/EFA/Route/Part.pm @@ -0,0 +1,217 @@ +package Travel::Routing::DE::EFA::Route::Part; + +use strict; +use warnings; +use 5.010; + +use parent 'Class::Accessor'; + +our $VERSION = '2.04'; + +Travel::Routing::DE::EFA::Route::Part->mk_ro_accessors( + qw(arrival_platform arrival_stop + arrival_date arrival_time arrival_sdate arrival_stime + delay departure_platform departure_stop + departure_date departure_time departure_sdate departure_stime + train_line train_destination + ) +); + +sub new { + my ( $obj, %conf ) = @_; + + my $ref = \%conf; + + return bless( $ref, $obj ); +} + +sub arrival_stop_and_platform { + my ($self) = @_; + + if ( length( $self->arrival_platform ) ) { + return + sprintf( '%s: %s', $self->get(qw(arrival_stop arrival_platform)) ); + } + return $self->arrival_stop; +} + +sub departure_stop_and_platform { + my ($self) = @_; + + if ( length( $self->departure_platform ) ) { + + return + sprintf( '%s: %s', + $self->get(qw(departure_stop departure_platform)) ); + } + return $self->departure_stop; +} + +sub extra { + my ($self) = @_; + + return @{ $self->{extra} // [] }; +} + +sub via { + my ($self) = @_; + + return @{ $self->{via} // [] }; +} + +1; + +__END__ + +=head1 NAME + +Travel::Routing::DE::EFA::Route::Part - Describes one connection between two +points, without interchanges + +=head1 SYNOPSIS + + for my $part ( $route->parts ) { + + if ( $part->extra ) { + say join( "\n", $part->extra ); + } + + printf( + "%s at %s -> %s at %s, via %s to %s", + $part->departure_time, $part->departure_stop, + $part->arrival_time, $part->arrival_stop, + $part->train_line, $part->train_destination, + ); + } + +=head1 VERSION + +version 2.04 + +=head1 DESCRIPTION + +B<Travel::Routing::DE::EFA::Route::Part> holds one specific connection (without +interchanges) between two points. It specifies the start/stop point and time, +the train line and its destination, and optional additional data. + +It is usually obtained by a call to Travel::Routing::DE::EFA::Route(3pm)'s +B<parts> method. + +=head1 METHODS + +=head2 ACCESSORS + +"Actual" in the description means that the delay (if available) is already +included in the calculation, "Scheduled" means it isn't. + +=over + +=item $part->arrival_stop + +arrival stop (city name plus station name) + +=item $part->arrival_platform + +arrival platform (either "Gleis x" or "Bstg. x") + +=item $part->arrival_stop_and_platform + +"stop: platform" concatenation + +=item $part->arrival_date + +Actual arrival date in DD.MM.YYYY format + +=item $part->arrival_time + +Actual arrival time in HH:MM format + +=item $part->arrival_sdate + +Scheduled arrival date in DD.MM.YYYY format + +=item $part->arrival_stime + +Scheduled arrival time in HH:MM format + +=item $part->delay + +delay in minutes, 0 if unknown + +=item $part->departure_stop + +departure stop (city name plus station name) + +=item $part->departure_platform + +departure platform (either "Gleis x" or "Bstg. x") + +=item $part->departure_stop_and_platform + +"stop: platform" concatenation + +=item $part->departure_date + +Actual departure date in DD.MM.YYYY format + +=item $part->departure_time + +Actual departure time in HH:MM format + +=item $part->departure_sdate + +Scheduled departure date in DD.MM.YYYY format + +=item $part->departure_stime + +Scheduled departure time in HH:MM format + +=item $part->extra + +Additional information about the connection. Returns a list of +newline-terminated strings + +=item $part->train_destination + +destination of the line providing the connection + +=item $part->train_line + +name / number of the line + +=item $part->via + +List of stops passed between departure_stop and arrival_stop, as +C<< [ "DD.MM.YYYY", "HH:MM", stop, platform ] >> hashrefs. + +May be empty, these are not always reported by efa.vrr.de. + +=back + +=head1 DIAGNOSTICS + +None. + +=head1 DEPENDENCIES + +=over + +=item * Class::Accessor(3pm) + +=back + +=head1 BUGS AND LIMITATIONS + +$part->via does not work reliably. + +=head1 SEE ALSO + +Travel::Routing::DE::EFA(3pm), Class::Accessor(3pm). + +=head1 AUTHOR + +Copyright (C) 2011-2014 by Daniel Friesel E<lt>derf@finalrewind.orgE<gt> + +=head1 LICENSE + + 0. You just DO WHAT THE FUCK YOU WANT TO. |