summaryrefslogtreecommitdiff
path: root/lib/WWW
diff options
context:
space:
mode:
authorDaniel Friesel <derf@derf.homelinux.org>2010-08-07 23:07:03 +0200
committerDaniel Friesel <derf@derf.homelinux.org>2010-08-07 23:07:03 +0200
commita0ec8b088f8846f2b2aba657eed0fe9d9216183e (patch)
tree63e3d167169e87c6ef152bdc4ae31a063172ab57 /lib/WWW
parent9059ccee1a66f9d32e1b9e54c6e87bcc82544692 (diff)
Add Test::Synopsis test, rename pod test
Diffstat (limited to 'lib/WWW')
-rw-r--r--lib/WWW/Efa.pm32
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;