blib/lib/Message/Transform.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 8 | 8 | 100.0 |
line | true | false | branch |
---|---|---|---|
14 | 1 | 4 | if scalar @_ < 2 or scalar @_ > 2 or not ref $message or not ref $transform or ref $message ne 'HASH' or ref $transform ne 'HASH' |
29 | 1 | 1 | if ($transform =~ m[^s/]) |
41 | 1 | 4 | if (ref $$transform{$t}) { } |
44 | 2 | 2 | if (substr($$transform{$t}, 0, 8) eq ' special') { } |