From 5e15ca49a16f44e8229e47e44901180c2add5b18 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Sat, 7 Aug 2010 23:43:12 +0200 Subject: Make WWW::Efa synopsis actually work --- lib/WWW/Efa.pm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'lib/WWW') diff --git a/lib/WWW/Efa.pm b/lib/WWW/Efa.pm index cdd8d62..b5fb724 100644 --- a/lib/WWW/Efa.pm +++ b/lib/WWW/Efa.pm @@ -10,7 +10,7 @@ WWW::Efa - inofficial interface to the efa.vrr.de German itinerary service my $efa = WWW::Efa->new( from => ['Essen', 'HBf'], - to => ['Muelheim', 'HBf'], + to => ['Duisburg', 'HBf'], ); $efa->submit(); @@ -20,10 +20,11 @@ WWW::Efa - inofficial interface to the efa.vrr.de German itinerary service for my $c (@{$con}) { printf( "%-5s ab %-30s %-20s %s\n%-5s an %-30s\n\n",, - @{$c}->{'dep_time', 'dep_stop', 'train_line', 'train_dest'}, - @{$c}->{'arr_time', 'arr_stop'}, + @{$c}{'dep_time', 'dep_stop', 'train_line', 'train_dest'}, + @{$c}{'arr_time', 'arr_stop'}, ); } + print "\n\n"; } =head1 DESCRIPTION -- cgit v1.2.3