From a0ec8b088f8846f2b2aba657eed0fe9d9216183e Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@derf.homelinux.org>
Date: Sat, 7 Aug 2010 23:07:03 +0200
Subject: Add Test::Synopsis test, rename pod test

---
 lib/WWW/Efa.pm | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)

(limited to 'lib')

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;
-- 
cgit v1.2.3