finally found which file contained the POD errors that

http://cpants.perl.org/kwalitee/Imager was complaining about

modified t/t91pod.t to check every pl/pod/pm/PL file

diff --git a/samples/slant_text.pl b/samples/slant_text.pl
index 97bec23d08a3af75dadfd4c13a0f0cadb32b6ed2..b7cb1367edafaf9a9a1234b660acc4e009ec0af7 100644 (file)
--- a/samples/slant_text.pl
+++ b/samples/slant_text.pl
@@ -85,19 +85,6 @@ $img->string(text => $text,
 $img->write(file=>$outfile)
   or die "Cannot save $outfile: ",$img->errstr,"\n";
 
-=item transformed_bounds
-
-Returns a list of bounds:
-  (minx, miny, maxx, maxy)
-
-These are offsets from the text's starting point in font co-ordinates
-- so positive y is I<up>.
-
-Note: this returns the bounds of the transformed bounding box, in most
-cases the actual text will not be touching these boundaries.
-
-=cut
-
 sub transformed_bounds {
   my ($bbox, $matrix) = @_;
 
@@ -196,6 +183,25 @@ then draw the text as normal:
 But if you do need the bounds, the code above does show you how to do
 it.
 
+=head1 FUNCTIONS
+
+=over
+
+=item transformed_bounds
+
+Returns a list of bounds:
+  (minx, miny, maxx, maxy)
+
+These are offsets from the text's starting point in font co-ordinates
+- so positive y is I<up>.
+
+Note: this returns the bounds of the transformed bounding box, in most
+cases the actual text will not be touching these boundaries.
+
+=cut
+
+=back
+
 =head1 AUTHOR
 
 Tony Cook <tony@imager.perl.org>

diff --git a/t/t91pod.t b/t/t91pod.t
index baf812a4b7a329bf21f26f958d366567e5909d1d..34c0153851f6df90b48fe87d6a7df87c8646f9b3 100644 (file)
--- a/t/t91pod.t
+++ b/t/t91pod.t
@@ -2,6 +2,12 @@
 use strict;
 use lib 't';
 use Test::More;
+use ExtUtils::Manifest qw(maniread);
 eval "use Test::Pod 1.00;";
 plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
-all_pod_files_ok();
+my $manifest = maniread();
+my @pod = grep /\.(pm|pl|pod|PL)$/, keys %$manifest;
+plan tests => scalar(@pod);
+for my $file (@pod) {
+  pod_file_ok($file, "pod ok in $file");
+}