3 use Test::More tests => 10;
7 use_ok( 'Pod::Coverage' );
8 use_ok( 'Pod::Coverage::ExportOnly' );
11 my $obj = new Pod::Coverage package => 'Trustme';
12 isa_ok( $obj, 'Pod::Coverage' );
13 is($obj->coverage, 3/7, "without private or trustme it gets it right");
15 $obj = new Pod::Coverage package => 'Trustme', private => [qr/^private$/];
16 isa_ok( $obj, 'Pod::Coverage' );
17 is($obj->coverage, 3/6, "with just private it gets it right");
19 $obj = new Pod::Coverage
21 private => [qr/^private$/],
23 isa_ok( $obj, 'Pod::Coverage' );
24 is($obj->coverage, 5/6, "with private and trustme it gets it right");
26 $obj = new Pod::Coverage
29 isa_ok( $obj, 'Pod::Coverage' );
30 is($obj->coverage, 5/7, "with just trustme it gets it right");