#!/usr/bin/perl -w use Test::More; use strict; my $tests; BEGIN { $tests = 1; plan tests => $tests; chdir 't' if -d 't'; use lib '../lib'; }; SKIP: { skip("Test::Pod::Coverage 1.00 required for testing POD coverage", $tests) unless do { eval "use Test::Pod::Coverage 1.00"; $@ ? 0 : 1; }; # Define the global CONSTANTS for internal usage my $trustme = { trustme => [ qr/^( LINK_USE| LINK_REQUIRE )\z/x ] }; pod_coverage_ok( "Graph::Usage", $trustme ); }