| blib/lib/Mo/xs.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| statement | 3 | 5 | 60.0 |
| branch | 1 | 2 | 50.0 |
| condition | n/a | ||
| subroutine | 1 | 2 | 50.0 |
| pod | n/a | ||
| total | 5 | 9 | 55.5 |
| line | stmt | bran | cond | sub | pod | time | code |
|---|---|---|---|---|---|---|---|
| 1 | package Mo::xs;my$M="Mo::"; | ||||||
| 2 | $VERSION=0.39; | ||||||
| 3 | 1 | 50 | 1 | 2 | require Class::XSAccessor;*{$M.'xs::e'}=sub{my($P,$e,$o,$f)=@_;$P=~s/::$//;$e->{has}=sub{my($n,%a)=@_;Class::XSAccessor->import(class=>$P,accessors=>{$n=>$n})}if!grep!/^xs$/,@$f}; | ||
| 1 | 0 | 4 | |||||
| 1 | 45 | ||||||
| 0 | |||||||
| 0 |