summaryrefslogtreecommitdiff
path: root/lib/WWW
diff options
context:
space:
mode:
authorDaniel Friesel <derf@derf.homelinux.org>2010-08-07 23:43:12 +0200
committerDaniel Friesel <derf@derf.homelinux.org>2010-08-07 23:43:12 +0200
commit5e15ca49a16f44e8229e47e44901180c2add5b18 (patch)
tree6995e7d3bffba26d5f2167b7015389104242c374 /lib/WWW
parenta0ec8b088f8846f2b2aba657eed0fe9d9216183e (diff)
Make WWW::Efa synopsis actually work
Diffstat (limited to 'lib/WWW')
-rw-r--r--lib/WWW/Efa.pm7
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