Add Test::Synopsis test, rename pod test

4 files changed, 51 insertions, 0 deletions

diff --git a/Build.PL b/Build.PL
index 2112f7d..2c4cdba 100644
--- a/Build.PL
+++ b/Build.PL
@@ -10,6 +10,7 @@ my $build = Module::Build->new(
 		'Test::Compile' => 0,
 		'Test::Pod' => 0,
 		'Test::Command' => 0,
+		'Test::Synopsis' => 0,
 	},
 	module_name => 'WWW::Efa',
 	license => 'unrestricted',
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;
diff --git a/t/02-synopsis.t b/t/02-synopsis.t
new file mode 100644
index 0000000..3b5f0c8
--- /dev/null
+++ b/t/02-synopsis.t
@@ -0,0 +1,18 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+
+use Test::More;
+
+eval "use Test::Synopsis";
+
+if ($@) {
+	plan skip_all => 'Test::Synopsis required for testing';
+}
+else {
+	plan tests => 1;
+}
+
+for my $m (qw(lib/WWW/Efa.pm)) {
+	synopsis_ok($m);
+}
diff --git a/t/10-pod-coverage.t b/t/10-pod.t
index 5fe4faa..5fe4faa 100755
--- a/t/10-pod-coverage.t
+++ b/t/10-pod.t