From: Peter Rabbitson <ribasushi@cpan.org>
Date: Sun, 31 May 2009 07:21:10 +0000 (+0000)
Subject: Add POD checker and fix a couple of POD errors
X-Git-Tag: v0.11008~169
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0e42fda65b02f181c78011a4aa4cb43f3b7249ad;p=dbsrgits%2FSQL-Translator.git

Add POD checker and fix a couple of POD errors
---

diff --git a/lib/SQL/Translator/Producer.pm b/lib/SQL/Translator/Producer.pm
index c80d804..b2ba10e 100644
--- a/lib/SQL/Translator/Producer.pm
+++ b/lib/SQL/Translator/Producer.pm
@@ -100,6 +100,8 @@ by the parser.  It is expected to return a string.
 
 =item drop_field($table, $old_field)
 
+=back
+
 =head1 AUTHORS
 
 Darren Chamberlain E<lt>darren@cpan.orgE<gt>,
diff --git a/lib/SQL/Translator/Schema.pm b/lib/SQL/Translator/Schema.pm
index 926cf7c..73c628d 100644
--- a/lib/SQL/Translator/Schema.pm
+++ b/lib/SQL/Translator/Schema.pm
@@ -716,7 +716,7 @@ the joins from primary keys to fields of the same name in other tables
 
 A list of fields to skip in the joins
 
-=back 4
+=back
 
   $schema->make_natural_joins(
       join_pk_only => 1,
diff --git a/t/01pod.t b/t/01pod.t
new file mode 100644
index 0000000..ddc2905
--- /dev/null
+++ b/t/01pod.t
@@ -0,0 +1,6 @@
+use Test::More;
+
+eval "use Test::Pod 1.14";
+plan skip_all => 'Test::Pod 1.14 required' if $@;
+
+all_pod_files_ok();