####################################################################### # $URL: http://perlcritic.tigris.org/svn/perlcritic/tags/Test-Perl-Critic-Progressive-0.03/t/99_pod_coverage.t $ # $Date: 2008-07-27 16:01:56 -0700 (Sun, 27 Jul 2008) $ # $Author: thaljef $ # $Revision: 2620 $ ######################################################################## use strict; use warnings; use Test::More; eval 'use Test::Pod::Coverage 1.00'; plan skip_all => 'Test::Pod::Coverage 1.00 requried to test POD' if $@; my $trustme = { trustme => [ qr{ \A (?: new | violations ) \z }x ] }; all_pod_coverage_ok($trustme);