diff options
Diffstat (limited to 'lib/Travel/Routing/DE')
| -rw-r--r-- | lib/Travel/Routing/DE/DBRIS.pm | 4 | ||||
| -rw-r--r-- | lib/Travel/Routing/DE/DBRIS/Connection.pm | 2 | ||||
| -rw-r--r-- | lib/Travel/Routing/DE/DBRIS/Connection/Segment.pm | 3 |
3 files changed, 5 insertions, 4 deletions
diff --git a/lib/Travel/Routing/DE/DBRIS.pm b/lib/Travel/Routing/DE/DBRIS.pm index c6f8e25..fceec0f 100644 --- a/lib/Travel/Routing/DE/DBRIS.pm +++ b/lib/Travel/Routing/DE/DBRIS.pm @@ -17,7 +17,7 @@ use LWP::UserAgent; use Travel::Status::DE::DBRIS; use Travel::Routing::DE::DBRIS::Connection; -our $VERSION = '0.02'; +our $VERSION = '0.03'; Travel::Routing::DE::DBRIS->mk_ro_accessors(qw(earlier later)); @@ -352,7 +352,7 @@ Travel::Routing::DE::DBRIS - Interface to the bahn.de itinerary service =head1 VERSION -version 0.02 +version 0.03 =head1 DESCRIPTION diff --git a/lib/Travel/Routing/DE/DBRIS/Connection.pm b/lib/Travel/Routing/DE/DBRIS/Connection.pm index 40bce91..82373a6 100644 --- a/lib/Travel/Routing/DE/DBRIS/Connection.pm +++ b/lib/Travel/Routing/DE/DBRIS/Connection.pm @@ -10,7 +10,7 @@ use parent 'Class::Accessor'; use DateTime::Duration; use Travel::Routing::DE::DBRIS::Connection::Segment; -our $VERSION = '0.02'; +our $VERSION = '0.03'; Travel::Routing::DE::DBRIS::Connection->mk_ro_accessors( qw(changes feasibility is_cancelled is_unscheduled is_unlikely diff --git a/lib/Travel/Routing/DE/DBRIS/Connection/Segment.pm b/lib/Travel/Routing/DE/DBRIS/Connection/Segment.pm index 1f6e598..11e0bf5 100644 --- a/lib/Travel/Routing/DE/DBRIS/Connection/Segment.pm +++ b/lib/Travel/Routing/DE/DBRIS/Connection/Segment.pm @@ -9,7 +9,7 @@ use parent 'Class::Accessor'; use DateTime::Duration; use Travel::Status::DE::DBRIS::Location; -our $VERSION = '0.02'; +our $VERSION = '0.03'; Travel::Routing::DE::DBRIS::Connection::Segment->mk_ro_accessors( qw( @@ -43,6 +43,7 @@ sub new { direction => $json->{verkehrsmittel}{richtung}, distance_m => $json->{distanz}, feasibility => $json->{anschlussBewertungCode}, + journey_id => $json->{journeyId}, }; if ( my $ts = $json->{abfahrtsZeitpunkt} ) { |