diff options
author | Daniel Friesel <derf@finalrewind.org> | 2011-11-16 09:47:38 +0100 |
---|---|---|
committer | Daniel Friesel <derf@finalrewind.org> | 2011-11-16 09:47:38 +0100 |
commit | 6b8626fd76efa0c779c2a3d4944279ba7a4827df (patch) | |
tree | c1a130ab220e3d9e11bb2b2b79466ebeace0c9ca /lib/Travel/Status/DE/VRR.pm | |
parent | d668c5680d983495ef165e4b464f7d3f3e11d358 (diff) |
Update tests
Diffstat (limited to 'lib/Travel/Status/DE/VRR.pm')
-rw-r--r-- | lib/Travel/Status/DE/VRR.pm | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/lib/Travel/Status/DE/VRR.pm b/lib/Travel/Status/DE/VRR.pm index 4e647c2..156e815 100644 --- a/lib/Travel/Status/DE/VRR.pm +++ b/lib/Travel/Status/DE/VRR.pm @@ -110,7 +110,7 @@ sub new { return $self; } -sub new_from_html { +sub new_from_xml { my ( $class, %opt ) = @_; my $self = { xml => $opt{xml}, }; @@ -156,10 +156,11 @@ sub results { $e_time->getAttribute('hour'), $e_time->getAttribute('minute'), ); - my $platform = $e->getAttribute('platform'); - my $line = $e_line->getAttribute('number'); - my $dest = $e_line->getAttribute('direction'); - my $info = undef; + my $platform = $e->getAttribute('platform'); + my $line = $e_line->getAttribute('number'); + my $dest = $e_line->getAttribute('direction'); + my $info = undef; + my $countdown = $e->getAttribute('countdown'); push( @results, @@ -169,6 +170,7 @@ sub results { platform => $platform, line => $line, destination => $dest, + countdown => $countdown, info => $info, ) ); |