| blib/lib/RxPerl/Test.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 18 | 20 | 90.0 |
| line | true | false | branch |
|---|---|---|---|
| 23 | 0 | 198 | unless $marble =~ /^((?:\((?:[a-z0-9|#])+?\))|[a-z0-9|#-])*\z/gx |
| 35 | 704 | 827 | if ($token =~ /^[a-z0-9]\z/) { } |
| 32 | 795 | elsif ($token eq '(') { } | |
| 31 | 764 | elsif ($token eq ')') { } | |
| 700 | 64 | elsif ($token eq '-') { } | |
| 44 | 20 | elsif ($token eq '|') { } | |
| 20 | 0 | elsif ($token eq '#') { } | |
| 36 | 149 | 555 | if exists $mapping->{$token} |
| 39 | 584 | 120 | unless $in_brackets |
| 48 | 43 | 1 | if ($time > $have_waited) |