[dbsrgits/DBIx-Class-UUIDColumns.git] / t / pod_coverage.t

#!perl -wT\r
# $Id: pod_coverage.t 3236 2007-05-05 16:24:35Z claco $\r
use strict;\r
use warnings;\r
\r
BEGIN {\r
    use lib 't/lib';\r
    use DBIC::Test;\r
\r
    plan skip_all => 'set TEST_AUTHOR to enable this test' unless $ENV{TEST_AUTHOR};\r
\r
    eval 'use Test::Pod::Coverage 1.04';\r
    plan skip_all => 'Test::Pod::Coverage 1.04' if $@;\r
\r
    eval 'use Pod::Coverage 0.14';\r
    plan skip_all => 'Pod::Coverage 0.14 not installed' if $@;\r
};\r
\r
my $trustme = {\r
    trustme => [qr/^(g|s)et_component_class$/]\r
};\r
\r
all_pod_coverage_ok($trustme);\r
Commit	Line	Data
3469b243	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