File Coverage

blib/lib/Mouse/Meta/Role/Method.pm
Criterion Covered Total %
statement 10 11 90.9
branch 1 2 50.0
condition n/a
subroutine 3 3 100.0
pod n/a
total 14 16 87.5


line stmt bran cond sub pod time code
1             package Mouse::Meta::Role::Method;
2 108     108   64986 use Mouse::Util; # enables strict and warnings
  108         323  
  108         762  
3              
4 108     108   1146 use Mouse::Meta::Method;
  108         291  
  108         11173  
5             our @ISA = qw(Mouse::Meta::Method);
6              
7             sub _new{
8 8     8   36 my($class, %args) = @_;
9 8         21 my $self = bless \%args, $class;
10              
11 8 50       28 if($class ne __PACKAGE__){
12 0         0 $self->meta->_initialize_object($self, \%args);
13             }
14 8         128 return $self;
15             }
16              
17             1;
18             __END__