--- a
+++ b/SOAP-Transport-TCP/trunk/t/098_pod.t
@@ -0,0 +1,34 @@
+use strict;
+if ( not $ENV{TEST_AUTHOR} ) {
+    my $msg = 'Author test.  Set $ENV{TEST_AUTHOR} to a true value to run.';
+    print "1..0 
+# $msg";
+    exit 0;
+}
+require Test::More;
+Test::More->import();
+
+eval "use Test::Pod 1.00";
+if ($@) { 
+    print "# Test::Pod 1.00 required for testing POD";
+    plan(tests => 0);
+    exit 0;
+}
+
+my @directories;
+
+# perl Build test or make test run from top-level dir. 
+if ( -d '../t/' ) {
+    @directories = ('../lib/', '../bin');
+}
+else {
+    @directories = (); # empty - will work automatically
+}
+
+my @files = all_pod_files(@directories);
+
+plan(tests => scalar(@files) );
+
+foreach my $module (@files){
+    pod_file_ok( $module )
+}