blib/lib/Throwable/Factory.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 26 | 26 | 100.0 |
line | true | false | branch |
---|---|---|---|
72 | 7 | 7 | unless @_ |
73 | 4 | 3 | if @_ % 2 and not ref $_[0] |
90 | 1 | 3 | if $f eq 'message' |
92 | 2 | 1 | ref $v ? : |
122 | 9 | 2 | unless ($name =~ /^-(isa|extends|with|class)$/) |
125 | 1 | 8 | if @matches > 1 |
126 | 1 | 7 | if @matches < 1 |
138 | 3 | 11 | if (ref $proto eq 'HASH') |
143 | 2 | 1 | if (defined $proto{'isa'}) |
147 | 2 | 1 | if (defined $proto{'description'}) |
151 | 2 | 1 | if (defined $proto{'fields'}) |
153 | 1 | 1 | ref $fields ? : |
156 | 1 | 2 | if (keys %proto) |