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 103     103   654 use strict;
  103         315  
  103         7765  
6 103     103   953 use warnings;
  103         316  
  103         6239  
7              
8 103     103   821 use parent qw(perl5i::2::Meta);
  103         299  
  103         835  
9              
10             sub class {
11 60 100   60 0 79 return ref ${${$_[0]}} ? ref ${${$_[0]}} : ${${$_[0]}};
  60         103  
  60         216  
  16         17  
  16         62  
  44         49  
  44         130  
12             }
13              
14             sub reftype {
15 0     0 0   return;
16             }
17              
18             1;