diff options
| author | Daniel Friesel <derf@derf.homelinux.org> | 2010-08-07 23:43:12 +0200 |
|---|---|---|
| committer | Daniel Friesel <derf@derf.homelinux.org> | 2010-08-07 23:43:12 +0200 |
| commit | 5e15ca49a16f44e8229e47e44901180c2add5b18 (patch) | |
| tree | 6995e7d3bffba26d5f2167b7015389104242c374 | |
| parent | a0ec8b088f8846f2b2aba657eed0fe9d9216183e (diff) | |
Make WWW::Efa synopsis actually work
| -rw-r--r-- | lib/WWW/Efa.pm | 7 |
1 files changed, 4 insertions, 3 deletions
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 |