| blib/lib/Text/TokenStream/Lexer.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 11 | 12 | 91.6 |
| line | true | false | branch |
|---|---|---|---|
| 29 | 4 | 0 | ref $_ ? : |
| 1 | 2 | unless my(@whitespace) = map((ref $_ ? $_ : quotemeta $_), @{$self->whitespace;}) | |
| 38 | 18 | 1 | ref $b ? : |
| 39 | 1 | 2 | unless my(@annotated_rules) = &pairmap(sub { qr/$b(*MARK:$a)/u; } , &pairmap(sub { $a, ref $b ? $b : quotemeta $b; } , @{$self->rules;})) |
| 62 | 1 | 34 | unless length $$str_ref |
| 64 | 1 | 33 | unless ($$str_ref =~ $self->_rules_rx) |