diff options
| author | Birte Kristina Friesel <derf@finalrewind.org> | 2024-05-19 19:56:56 +0200 |
|---|---|---|
| committer | Birte Kristina Friesel <derf@finalrewind.org> | 2024-05-19 19:56:56 +0200 |
| commit | 2dab71fdefc2d4f449d41437588b7a56d701ed68 (patch) | |
| tree | d5c9308aa3af085bb6babe1887f2ddc2c04c9393 /lib | |
| parent | 47f45a0048225a51e75310a737941fd03087325d (diff) | |
EFA->new: Add datetime option
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Travel/Status/DE/EFA.pm | 8 |
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 |