File Coverage

blib/lib/perl5i/2/Meta/Class.pm
Criterion Covered Total %
statement 16 17 94.1
branch 2 2 100.0
condition n/a
subroutine 4 5 80.0
pod 0 2 0.0
total 22 26 84.6


line stmt bran cond sub pod time code
1             package perl5i::2::Meta::Class;
2              
3             # Methods here are for $thing->mc->method.
4              
5 101     101   612 use strict;
  101         320  
  101         3778  
6 101     101   592 use warnings;
  101         592  
  101         3167  
7              
8 101     101   430 use parent qw(perl5i::2::Meta);
  101         148  
  101         604  
9              
10             sub class {
11 53 100   53 0 52 return ref ${${$_[0]}} ? ref ${${$_[0]}} : ${${$_[0]}};
  53         53  
  53         139  
  16         15  
  16         45  
  37         32  
  37         69  
12             }
13              
14             sub reftype {
15 0     0 0   return;
16             }
17              
18             1;