blib/lib/Mock/Person/JP.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 8 | 8 | 100.0 |
line | true | false | branch |
---|---|---|---|
30 | 1 | 7 | ref $_[0] eq 'HASH' ? : |
32 | 1 | 7 | unless exists $arg{'sex'} |
36 | 6 | 1 | if ($key eq 'sex') { } |
38 | 1 | 5 | if $arg{$key} ne 'male' and $arg{$key} ne 'female' |