File Coverage

blib/lib/Vroom/Mo.pm
Criterion Covered Total %
statement 38 49 77.5
branch 14 26 53.8
condition 1 5 20.0
subroutine 5 6 83.3
pod n/a
total 58 86 67.4


line stmt bran cond sub pod time code
1             package Vroom::Mo;
2              
3             # use Mo qw'default import';
4             # The following line of code was produced from the previous line by
5             # Mo::Inline version 0.34
6 2 0 0 2   10 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};*{$M.'default::e'}=sub{my($P,$e,$o)=@_;$o->{default}=sub{my($m,$n,%a)=@_;exists$a{default}or return$m;my($d,$r)=$a{default};my$g='HASH'eq($r=ref$d)?sub{+{%$d}}:'ARRAY'eq$r?sub{[@$d]}:'CODE'eq$r?$d:sub{$d};my$i=exists$a{lazy}?$a{lazy}:!${$P.':N'};$i or ${$P.':E'}{$n}=$g and return$m;sub{$#_?$m->(@_):!exists$_[0]{$n}?$_[0]{$n}=$g->(@_):$m->(@_)}}};my$i=\&import;*{$M.import}=sub{(@_==2 and not$_[1])?pop@_:@_==1?push@_,grep!/import/,@f:();goto&$i};@f=qw[default import];use strict;use warnings;
  2 0 33 2   3  
  2 0   2   1828  
  2 100   2   12  
  2 50   1   4  
  2 50   0   65  
  2 100       11  
  2 100       4  
  2 50       73  
  2 50       884  
  0 50       0  
  0 100       0  
  1 50       373  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  17         26  
  17         54  
  0         0  
  17         63  
  18         71  
  18         63  
  34         129  
  19         52  
  19         43  
  34         114  
  17         35  
  17         21  
  17         78  
  17         28  
  17         54  
  17         32  
  17         30  
  34         129  
  17         28  
  0         0  
  17         82  
  19         691  
  19         58  
  0         0  
  17         70  
  17         59  
  17         22  
  17         89  
  1         13  
  1         5