File Coverage

blib/lib/Pod/Coverage/mop.pm

Criterion	Covered	Total	%
statement	13	15	86.6
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	18	20	90.0

package Pod::Coverage::mop;

use strict;
use warnings;
use 5.010;
use Carp;

use mop;

our $VERSION = '0.002';

class Pod::Coverage::mop
    extends Pod::Coverage::CountParents {

    use Pod::Coverage::CountParents;
    use Module::Load;

    method new($class: %args) {

        # here we need to put methods defined by consumed roles in
        # trustme, even if the class does not define them itself;
        # DEMOLISH BUILD BUILDARGS go into also_trustme

        my $package = $args{package};
        load $package;
        if (my $meta = mop::meta($package)) {
            # ok.  we can do this
            return $class->next::method(%args);
        }

        # not meta (or not mop anyway).  do everything with the
        # regular class.  if it's not able to cope with the foreign
        # meta, too bad
        return Pod::Coverage::CountParents->new(%args);

    }

    method _get_syms($package) {
        # run around the class meta, get the list of methods -- ignore
        # anything declared as a regular sub in the package -- if it
        # ain't got a meta it ain't one of ours.  attributes are
        # ignored unless they have an accessor, which will be caught
        # as a method
        my @symbols;
        foreach my $method (mop::meta($package)->methods) {
            next if $self->_private_check($method->name);
            next unless $method->locally_defined;
            push @symbols, $method->name;
        }
        return @symbols;
    }

}

__END__