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

#!perl -wT
# $Id$
use strict;
use warnings;

BEGIN {
    use lib 't/lib';
    use DBIC::Test;

    plan skip_all => 'set TEST_AUTHOR to enable this test' unless $ENV{TEST_AUTHOR};

    eval 'use Test::Pod::Coverage 1.04';
    plan skip_all => 'Test::Pod::Coverage 1.04' if $@;

    eval 'use Pod::Coverage 0.14';
    plan skip_all => 'Pod::Coverage 0.14 not installed' if $@;
};

my $trustme = {
    trustme => [qr/^(g|s)et_component_class$/]
};

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