blib/lib/Mo/importer.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
statement | 5 | 5 | 100.0 |
branch | 1 | 2 | 50.0 |
condition | n/a | ||
subroutine | 1 | 1 | 100.0 |
pod | n/a | ||
total | 7 | 8 | 87.5 |
line | stmt | bran | cond | sub | pod | time | code |
---|---|---|---|---|---|---|---|
1 | package Mo::importer;my$M="Mo::"; | ||||||
2 | $VERSION=0.39; | ||||||
3 | 1 | 50 | 1 | 4 | *{$M.'importer::e'}=sub{my($P,$e,$o,$f)=@_;(my$pkg=$P)=~s/::$//;&{$P.'importer'}($pkg,@$f)if defined&{$P.'importer'}}; | ||
1 | 4 | ||||||
1 | 1 | ||||||
1 | 5 | ||||||
1 | 50 |