blib/lib/Module/Format/Module.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 12 | 18 | 66.6 |
line | true | false | branch |
---|---|---|---|
19 | 22 | 62 | if (@_) |
61 | 0 | 3 | unless ($value =~ s/\A\Q$prefix\E//) |
91 | 0 | 4 | unless ($value =~ /\A\Q$prefix\E((?:\w+::)*\w+)\Q$suffix\E\z/) |
204 | 25 | 0 | if (exists $formats{$format}) { } |
206 | 25 | 0 | if (my $handler = $formats{$format}{'input'}) { } |
248 | 53 | 0 | if (exists $formats{$format}) { } |
278 | 1 | 8 | unless (&$cb($_)) |
309 | 44 | 0 | if (my $regex = $format_record->{'regex'}) |
311 | 12 | 32 | if ($string =~ /$regex/) |