From 8828e04824562d2b9de138b218477541fc130e1d Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Tue, 24 May 2011 08:59:28 +0200 Subject: VRR.pm: Fix SYNOPSIS --- lib/Net/Travel/DE/VRR.pm | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/lib/Net/Travel/DE/VRR.pm b/lib/Net/Travel/DE/VRR.pm index 6f7af12..652bf15 100644 --- a/lib/Net/Travel/DE/VRR.pm +++ b/lib/Net/Travel/DE/VRR.pm @@ -492,18 +492,19 @@ Net::Travel::DE::VRR - inofficial interface to the efa.vrr.de German itinerary s use Net::Travel::DE::VRR; my $efa = Net::Travel::DE::VRR->new( - from => ['Essen', 'HBf'], - to => ['Duisburg', 'HBf'], + from => [ 'Essen', 'HBf' ], + to => [ 'Duisburg', 'HBf' ], ); $efa->submit(); - for my $route ($efa->routes()) { - for my $part (@{$route}) { + for my $route ( $efa->routes() ) { + for my $part ( $route->parts() ) { printf( - "%-5s ab %-30s %-20s %s\n%-5s an %-30s\n\n", - $part->dep_time, $part->dep_stop, $part->train_line, - $part->train_dest, $part->arr_time, $part->arr_stop, + "%s at %s -> %s at %s, via %s to %s", + $part->departure_time, $part->departure_stop, + $part->arrival_time, $part->arrival_stop, + $part->train_line, $part->train_destination, ); } print "\n\n"; -- cgit v1.2.3