http://qs321.pair.com?node_id=824690

Your Mother has asked for the wisdom of the Perl Monks concerning the following question:

Pod::Coverage::Moose (0.02). Why The Following-

Test file

use strict; use warnings; use Test::Pod::Coverage; use Test::More "no_plan"; pod_coverage_ok( "IsMoose", { coverage_class => "Pod::Coverage::Moose" } );

IsMoose package file

package IsMoose; use Moose; has [qw( moo cow )] => is => "rw", isa => "Str" ; 1; # (Update, added.) =pod =cut

Test output

> prove test-moose-pod.t -v test-moose-pod.t .. ok 1 - Pod coverage on IsMoose 1..1 ok All tests successful. Files=1, Tests=1, 0 wallclock secs ( 0.02 usr 0.00 sys + 0.21 cusr + 0.01 csys = 0.24 CPU) Result: PASS

Why isn't that failing? moo and cow are uncovered. This is a boiled down example. I tried several other permutations and my real code with Moose attribute methods and Roles and such are also passing as if it were being tested with plain Test::Pod::Coverage; e.g., only sub named {} are being checked at all.

Do I misunderstand what this does? Am I suffering from PEBCAK?