| blib/lib/Text/Glob/Expand/Permutation.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 7 | 12 | 58.3 |
| line | true | false | branch |
|---|---|---|---|
| 15 | 0 | 90 | if ($match eq '%') |
| 19 | 34 | 56 | if ($match eq '0') |
| 29 | 0 | 70 | unless $digit > 0 |
| 32 | 0 | 70 | unless $curr and ref $curr |
| 46 | 0 | 34 | unless defined $format |
| 67 | 0 | 34 | unless (eval { do { $format =~ s/ % ( % # An an escaped % character | (?: \d+ [.] )* # any number of decimals followed by a period \d+ # a final decimal ) /$self->_percent_expand($1);/egx; 1 } }) |