diff options
Diffstat (limited to 'lib')
-rw-r--r-- | lib/WWW/Efa.pm | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/lib/WWW/Efa.pm b/lib/WWW/Efa.pm index adbf5c7..cdd8d62 100644 --- a/lib/WWW/Efa.pm +++ b/lib/WWW/Efa.pm @@ -1,5 +1,37 @@ package WWW::Efa; +=head1 NAME + +WWW::Efa - inofficial interface to the efa.vrr.de German itinerary service + +=head1 SYNOPSIS + + use WWW::Efa; + + my $efa = WWW::Efa->new( + from => ['Essen', 'HBf'], + to => ['Muelheim', 'HBf'], + ); + + $efa->submit(); + $efa->parse(); + + for my $con ($efa->connections()) { + 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'}, + ); + } + } + +=head1 DESCRIPTION + +Foo bar + +=cut + use strict; use warnings; use 5.010; |