File Coverage

blib/lib/Mo.pm
Criterion Covered Total %
statement 56 56 100.0
branch 10 10 100.0
condition n/a
subroutine 9 9 100.0
pod n/a
total 75 75 100.0


line stmt bran cond sub pod time code
1             package Mo;
2             $VERSION=0.38;
3 34 100   56   1390111 no warnings;my$M=__PACKAGE__.'::';*{$M.Object::new}=sub{my$c=shift;my$s=bless{@_},$c;my%n=%{$c.::.':E'};map{$s->{$_}=$n{$_}->()if!exists$s->{$_}}keys%n;$s};*{$M.import}=sub{import warnings;$^H|=1538;my($P,%e,%o)=caller.'::';shift;eval"no Mo::$_",&{$M.$_.::e}($P,\%e,\%o,\@_)for@_;return if$e{M};%e=(extends,sub{eval"no $_[0]()";@{$P.ISA}=$_[0]},has,sub{my$n=shift;my$m=sub{$#_?$_[0]{$n}=$_[1]:$_[0]{$n}};@_=(default,@_)if!($#_%2);$m=$o{$_}->($m,$n,@_)for sort keys%o;*{$P.$n}=$m},%e,);*{$P.$_}=$e{$_}for keys%e;@{$P.ISA}=$M.Object};
  33 100   62   74  
  33 100   37   20801  
  30 100   9   146917  
  30 100   4   271  
  32     85   610  
  22     46   10088  
  19     88   232  
  19     40   186  
  24         13697  
  17         45  
  17         3035  
  13         4351  
  6         21  
  6         112  
  89         7962  
  41         3732  
  30         3169  
  37         4987  
  31         165  
  31         82  
  27         171  
  19         954  
  16         66  
  9         73  
  16         96  
  51         2541  
  47         238  
  46         32095  
  46         3070  
  43         405  
  45         178  
  50         1068  
  31         187  
  31         153  
  20         5205  
  19         4600  
  18         905  
  24         129  
  20         210  
  22         6757  
  31         153  
  19         82  
  15         6810  
  23         2013  
  19         62  
  19         4666  
  15         75  
  15         164  
  14         75  
  15         101  
  2         24  
  2         8  
  6         24  
  2         5  
  2         2072