| lib/File/Filename/Convention.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 12 | 14 | 85.7 |
| line | true | false | branch |
|---|---|---|---|
| 25 | 28 | 37 | unless scalar @$convention == scalar @$segments |
| 36 | 0 | 176 | unless defined $segmentlabel |
| 41 | 3 | 173 | if (ref $segmentlabel eq 'ARRAY') |
| 50 | 106 | 70 | if (defined $$filenamingconvention_matchsubs{$segmentlabel}) |
| 54 | 9 | 97 | unless (&{$$filenamingconvention_matchsubs{$segmentlabel};}($segmentcontent)) |
| 61 | 2 | 95 | if (defined $mustbe) |
| 63 | 0 | 2 | unless $segmentcontent =~ /^$mustbe$/i |