From eccf8ca2b1d6625a2d17d12ab2f0dbc5d49fac75 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Thu, 16 Jan 2014 14:57:00 +0100 Subject: Move EFA logic to ::EFA, just set URL in ::VRR --- lib/Travel/Routing/DE/VRR/Route/Part.pm | 217 -------------------------------- 1 file changed, 217 deletions(-) delete mode 100644 lib/Travel/Routing/DE/VRR/Route/Part.pm (limited to 'lib/Travel/Routing/DE/VRR/Route/Part.pm') diff --git a/lib/Travel/Routing/DE/VRR/Route/Part.pm b/lib/Travel/Routing/DE/VRR/Route/Part.pm deleted file mode 100644 index 9a11edc..0000000 --- a/lib/Travel/Routing/DE/VRR/Route/Part.pm +++ /dev/null @@ -1,217 +0,0 @@ -package Travel::Routing::DE::VRR::Route::Part; - -use strict; -use warnings; -use 5.010; - -use parent 'Class::Accessor'; - -our $VERSION = '2.04'; - -Travel::Routing::DE::VRR::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::VRR::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 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::VRR::Route(3pm)'s -B 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::VRR(3pm), Class::Accessor(3pm). - -=head1 AUTHOR - -Copyright (C) 2011-2014 by Daniel Friesel Ederf@finalrewind.orgE - -=head1 LICENSE - - 0. You just DO WHAT THE FUCK YOU WANT TO. -- cgit v1.2.3