blib/lib/RxPerl/Test.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 18 | 20 | 90.0 |
line | true | false | branch |
---|---|---|---|
23 | 0 | 188 | unless $marble =~ /^((?:\((?:[a-z0-9|#])+?\))|[a-z0-9|#-])*\z/gx |
35 | 668 | 806 | if ($token =~ /^[a-z0-9]\z/) { } |
28 | 778 | elsif ($token eq '(') { } | |
27 | 751 | elsif ($token eq ')') { } | |
688 | 63 | elsif ($token eq '-') { } | |
44 | 19 | elsif ($token eq '|') { } | |
19 | 0 | elsif ($token eq '#') { } | |
36 | 140 | 528 | if exists $mapping->{$token} |
39 | 568 | 100 | unless $in_brackets |
48 | 43 | 1 | if ($time > $have_waited) |