diff options
| author | Daniel Friesel <derf@finalrewind.org> | 2014-01-07 20:01:28 +0100 |
|---|---|---|
| committer | Daniel Friesel <derf@finalrewind.org> | 2014-01-07 20:01:28 +0100 |
| commit | a99466f6b08f20d38b9de285223304e4b71f8fe4 (patch) | |
| tree | f59252fa1fae7f2522d5b8f9fb9dbb06a6d59348 /lib/Travel | |
| parent | 117c4d98c2f3d763358e922c05f3d9dc1ded6ad5 (diff) | |
very limited date/time support (IRIS does not provide much past/future data)
Diffstat (limited to 'lib/Travel')
| -rw-r--r-- | lib/Travel/Status/DE/IRIS.pm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lib/Travel/Status/DE/IRIS.pm b/lib/Travel/Status/DE/IRIS.pm index 6cec7d7..e6bccaf 100644 --- a/lib/Travel/Status/DE/IRIS.pm +++ b/lib/Travel/Status/DE/IRIS.pm @@ -26,7 +26,8 @@ sub new { } my $self = { - dt_now => DateTime->now( time_zone => 'Europe/Berlin' ), + datetime => $opt{datetime} + // DateTime->now( time_zone => 'Europe/Berlin' ), station => $opt{station}, user_agent => $ua, }; @@ -47,7 +48,7 @@ sub new { $self->{nodes}{station} = ( $xml_st->findnodes('//station') )[0]; - my $dt_req = $self->{dt_now}->clone; + my $dt_req = $self->{datetime}->clone; for ( 1 .. 3 ) { $self->get_timetable( $self->{nodes}{station}->getAttribute('eva'), $dt_req ); @@ -231,7 +232,7 @@ sub errstr { sub results { my ($self) = @_; - return @{ $self->{results} }; + return @{ $self->{results} // [] }; } 1; |