X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=lib%2FCatalyst%2FHelper.pm;h=d4fd807cd2c7874bd2aeadbb27065e002e15840a;hp=d50fb163222de3a99c1632f4e4a2671596521561;hb=1df125c95d52bba7c3e2f5d01337c98e50172a7b;hpb=3e53f0cdd06d090d5d93dd085dce0889ddd2ad02

diff --git a/lib/Catalyst/Helper.pm b/lib/Catalyst/Helper.pm
index d50fb16..d4fd807 100644
--- a/lib/Catalyst/Helper.pm
+++ b/lib/Catalyst/Helper.pm
@@ -150,6 +150,17 @@ use_ok( Catalyst::Test, '$name' );
 
 ok( request('/')->is_success );
 EOF
+    my $pc = IO::File->new("> $t/02podcoverage.t")
+      or die qq/Couldn't open "$t\/02podcoverage.t", "$!"/;
+    print $pc <<"EOF";
+use Test::More;
+
+eval "use Test::Pod::Coverage 1.04";
+plan skip_all => 'Test::Pod::Coverage 1.04 required' if \$@;
+plan skip_all => 'set TEST_POD to enable this test' unless \$ENV{TEST_POD};
+
+all_pod_coverage_ok();
+EOF
 }
 
 sub _mk_server {