finally found which file contained the POD errors that
authorTony Cook <tony@develop=help.com>
Thu, 10 Aug 2006 01:53:19 +0000 (01:53 +0000)
committerTony Cook <tony@develop=help.com>
Thu, 10 Aug 2006 01:53:19 +0000 (01:53 +0000)
http://cpants.perl.org/kwalitee/Imager was complaining about

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

samples/slant_text.pl
t/t91pod.t

index 97bec23..b7cb136 100644 (file)
@@ -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>
index baf812a..34c0153 100644 (file)
@@ -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");
+}