summaryrefslogtreecommitdiff
path: root/lib/Travel/Status/DE/IRIS.pm
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2014-01-07 20:01:28 +0100
committerDaniel Friesel <derf@finalrewind.org>2014-01-07 20:01:28 +0100
commita99466f6b08f20d38b9de285223304e4b71f8fe4 (patch)
treef59252fa1fae7f2522d5b8f9fb9dbb06a6d59348 /lib/Travel/Status/DE/IRIS.pm
parent117c4d98c2f3d763358e922c05f3d9dc1ded6ad5 (diff)
very limited date/time support (IRIS does not provide much past/future data)
Diffstat (limited to 'lib/Travel/Status/DE/IRIS.pm')
-rw-r--r--lib/Travel/Status/DE/IRIS.pm7
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;