blib/lib/Module/Format/Module.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 12 | 18 | 66.6 |
line | true | false | branch |
---|---|---|---|
19 | 22 | 61 | 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/) |
198 | 25 | 0 | if (exists $formats{$format}) { } |
200 | 25 | 0 | if (my $handler = $formats{$format}{'input'}) { } |
242 | 51 | 0 | if (exists $formats{$format}) { } |
272 | 1 | 8 | unless (&$cb($_)) |
303 | 44 | 0 | if (my $regex = $format_record->{'regex'}) |
305 | 12 | 32 | if ($string =~ /$regex/) |