diff options
author | Daniel Friesel <derf@finalrewind.org> | 2015-10-09 18:26:41 +0200 |
---|---|---|
committer | Daniel Friesel <derf@finalrewind.org> | 2015-10-09 18:26:41 +0200 |
commit | 6b2932cd9b7df92ec8a35326fa861fa4291f0fb4 (patch) | |
tree | 32b3a628941bc765903e06f0020f266df1f82f3a /lib/Travel/Status/DE/URA.pm | |
parent | a68cadc24bcdceb6b141cc689589bf8741392fa9 (diff) |
use Stop.pm for stop data instead of arrayrefs
Diffstat (limited to 'lib/Travel/Status/DE/URA.pm')
-rw-r--r-- | lib/Travel/Status/DE/URA.pm | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/lib/Travel/Status/DE/URA.pm b/lib/Travel/Status/DE/URA.pm index f86d05c..5eee5d8 100644 --- a/lib/Travel/Status/DE/URA.pm +++ b/lib/Travel/Status/DE/URA.pm @@ -15,6 +15,7 @@ use List::MoreUtils qw(firstval none uniq); use LWP::UserAgent; use Text::CSV; use Travel::Status::DE::URA::Result; +use Travel::Status::DE::URA::Stop; sub new { my ( $class, %opt ) = @_; @@ -188,22 +189,22 @@ sub results { map { [ $_, $_->[0] ] } @route_post; @route_pre = map { - [ - DateTime->from_epoch( + Travel::Status::DE::URA::Stop->new( + datetime => DateTime->from_epoch( epoch => $_->[0], time_zone => 'Europe/Berlin' ), - decode( 'UTF-8', $_->[1] ) - ] + name => decode( 'UTF-8', $_->[1] ) + ) } @route_pre; @route_post = map { - [ - DateTime->from_epoch( + Travel::Status::DE::URA::Stop->new( + datetime => DateTime->from_epoch( epoch => $_->[0], time_zone => 'Europe/Berlin' ), - decode( 'UTF-8', $_->[1] ) - ] + name => decode( 'UTF-8', $_->[1] ) + ) } @route_post; } |