File Coverage

blib/lib/Pod/Coverage/CountParents.pm

Criterion	Covered	Total	%
statement	0	23	0.0
branch	0	6	0.0
condition			n/a
subroutine	0	2	0.0
pod			n/a
total	0	31	0.0

package Pod::Coverage::CountParents;
use strict;
use Pod::Coverage ();
use base 'Pod::Coverage';

# this code considered lightly fugly :)

sub _get_pods {
    my $self = shift;
    my $package = $self->{package};

    eval qq{ require $package };
    if ($@) {
        $self->{why_unrated} = "Couldn't compile '$package' to inspect: $@";
        return;
    }

    my %pods;
    $pods{$package} = $self->SUPER::_get_pods;

    __walk_up($package, \%pods);
    my %flat = map { $_ => 1 }  map { @{ $_ || [] } } values %pods;
    return [ keys %flat ];
}

sub __walk_up {
    my $package = shift;
    my $pods    = shift;

    $pods->{$package} = Pod::Coverage->new(package => $package)->_get_pods();

    my @parents;
    {
        no strict 'refs';
        @parents = @{"$package\::ISA"};
    }

    do { $pods->{$_} || __walk_up($_, $pods) } for @parents;
}

1;
__END__