5 use Test::More tests=>4;
6 use Test::Builder::Tester;
9 use_ok( 'Test::Pod::Coverage' );
13 test_out( "not ok 1 - Privates fails" );
15 test_diag( "Coverage for Privates is 60.0%, with 2 naked subroutines:" );
16 test_diag( "\tINTERNAL_DOODAD" );
17 test_diag( "\tINTERNAL_THING" );
18 pod_coverage_ok( "Privates", "Privates fails" );
19 test_test( "Should fail at 60%" );
23 test_out( "ok 1 - Privates works w/a custom PC object" );
26 { also_private => [ qr/^[A-Z_]+$/ ], },
27 "Privates works w/a custom PC object"
29 test_test( "Trying to pass PC object" );
32 SPECIFIED_PRIVATES_NAKED: {
35 { also_private => [ qr/^[A-Z_]+$/ ], },