| blib/lib/RxPerl/Test.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 18 | 20 | 90.0 |
| line | true | false | branch |
|---|---|---|---|
| 23 | 0 | 189 | unless $marble =~ /^((?:\((?:[a-z0-9|#])+?\))|[a-z0-9|#-])*\z/gx |
| 35 | 670 | 813 | if ($token =~ /^[a-z0-9]\z/) { } |
| 29 | 784 | elsif ($token eq '(') { } | |
| 28 | 756 | elsif ($token eq ')') { } | |
| 693 | 63 | elsif ($token eq '-') { } | |
| 44 | 19 | elsif ($token eq '|') { } | |
| 19 | 0 | elsif ($token eq '#') { } | |
| 36 | 142 | 528 | if exists $mapping->{$token} |
| 39 | 568 | 102 | unless $in_brackets |
| 48 | 43 | 1 | if ($time > $have_waited) |