summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lib/Travel/Status/DE/EFA.pm8
1 files changed, 7 insertions, 1 deletions
diff --git a/lib/Travel/Status/DE/EFA.pm b/lib/Travel/Status/DE/EFA.pm
index 79be16b..f42e0a0 100644
--- a/lib/Travel/Status/DE/EFA.pm
+++ b/lib/Travel/Status/DE/EFA.pm
@@ -175,7 +175,8 @@ sub new {
if ( not $opt{efa_url} ) {
confess('service or efa_url must be specified');
}
- my $now = DateTime->now( time_zone => $opt{time_zone} // 'Europe/Berlin' );
+ my $dt = $opt{datetime}
+ // DateTime->now( time_zone => $opt{time_zone} // 'Europe/Berlin' );
## no critic (RegularExpressions::ProhibitUnusedCapture)
## no critic (Variables::ProhibitPunctuationVars)
@@ -789,6 +790,11 @@ B<stop> (stop/station name).
address / poi / stop name to list departures for.
+=item B<datetime> => I<DateTime object>
+
+Request departures for the date/time specified by I<DateTime object>.
+Default: now.
+
=item B<efa_encoding> => I<encoding>
Some EFA servers do not correctly specify their response encoding. If you