File Coverage

blib/lib/Mouse/Object.pm
Criterion Covered Total %
statement 5 5 100.0
branch n/a
condition 2 3 66.6
subroutine 2 2 100.0
pod 0 1 0.0
total 9 11 81.8


line stmt bran cond sub pod time code
1             package Mouse::Object;
2 282     282   1012 use Mouse::Util qw(does dump meta); # enables strict and warnings
  282         298  
  282         1482  
3             # all the stuff are defined in XS or PP
4              
5             sub DOES {
6 2     2 0 351 my($self, $class_or_role_name) = @_;
7 2   66     14 return $self->isa($class_or_role_name) || $self->does($class_or_role_name);
8             }
9              
10             1;
11             __END__