t/pod_coverage.t

   1 #!perl -wT\r
   2 # $Id: pod_coverage.t 3236 2007-05-05 16:24:35Z claco $\r
   3 use strict;\r
   4 use warnings;\r
   5 \r
   6 BEGIN {\r
   7     use lib 't/lib';\r
   8     use DBIC::Test;\r
   9 \r
  10     plan skip_all => 'set TEST_AUTHOR to enable this test' unless $ENV{TEST_AUTHOR};\r
  11 \r
  12     eval 'use Test::Pod::Coverage 1.04';\r
  13     plan skip_all => 'Test::Pod::Coverage 1.04' if $@;\r
  14 \r
  15     eval 'use Pod::Coverage 0.14';\r
  16     plan skip_all => 'Pod::Coverage 0.14 not installed' if $@;\r
  17 };\r
  18 \r
  19 my $trustme = {\r
  20     trustme => [qr/^(g|s)et_component_class$/]\r
  21 };\r
  22 \r
  23 all_pod_coverage_ok($trustme);\r