$ perl -I. -MPod::Coverage -e 'my $pc = Pod::Coverage::->new(package => "XYZ"); print $pc->coverage ? "Y" : "N"'

##</code><code>##

$ cat X5.pm
package Y5 {
sub fred { 2 }

=head1 NAME

Y5

=head2 fred

fred() returns 2

=cut

};

1;

package X5 {
sub fred { 1 }
};

1;

$ perl -I. -MPod::Coverage -e 'my $pc = Pod::Coverage::->new(package => "X5"); print $pc->coverage ? "Y" : "N"'
Y

$ perl -I. -MPod::Coverage -e 'my $pc = Pod::Coverage::->new(package => "Y5"); print $pc->coverage ? "Y" : "N"'
N