Skip to content
Snippets Groups Projects
Commit 5e15ca49 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

Make WWW::Efa synopsis actually work

parent a0ec8b08
No related branches found
No related tags found
No related merge requests found
......@@ -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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment