blib/lib/Mo/Mouse.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
statement | 19 | 19 | 100.0 |
branch | 2 | 2 | 100.0 |
condition | 4 | 7 | 57.1 |
subroutine | 3 | 3 | 100.0 |
pod | n/a | ||
total | 28 | 31 | 90.3 |
line | stmt | bran | cond | sub | pod | time | code |
---|---|---|---|---|---|---|---|
1 | package Mo::Mouse; | ||||||
2 | $Mo::Mouse::VERSION = '0.40';$M="Mo::"; | ||||||
3 | $VERSION='0.40'; | ||||||
4 | 1 | 1 | 2 | *{$M.'Mouse::e'}=sub{my($P,$e)=@_;$P=~s/::$//;%$e=(M=>1);require Mouse;require Mouse::Util::MetaRole;Mouse->import({into=>$P});Mouse::Util::MetaRole::apply_metaroles(for=>$P,class_metaroles=>{attribute=>['Attr::Trait']},)};BEGIN{package Attr::Trait; | |||
1 | 5 | ||||||
1 | 3 | ||||||
1 | 7 | ||||||
1 | 605 | ||||||
1 | 948 | ||||||
1 | 304 | ||||||
5 | 1 | 100 | 50 | 1 | 383 | $Attr::Trait::VERSION = '0.40';use Mouse::Role;around _process_options=>sub{my$orig=shift;my$c=shift;my($n,$o)=@_;$o->{is}||='rw';$o->{lazy}||=1 if defined$o->{default}or defined$o->{builder};$c->$orig(@_)};$INC{'Attr/Trait.pm'}=1} | |
1 | 50 | 1 | 1024 | ||||
1 | 66 | 4 | |||||
1 | 348 | ||||||
1 | 7 | ||||||
2 | 806 | ||||||
2 | 2 | ||||||
2 | 3 | ||||||
2 | 10 | ||||||
2 | 12 | ||||||
2 | 20 | ||||||
1 | 76 |