| blib/lib/PPIx/QuoteLike.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 43 | 67 | 64.1 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 107 | 4 | 5 | 0 | not $gap and $start_delim =~ / \A \w \z /msx |
| 478 | 68 | 5 | 4 | $loc->{'tab_width'} > 1 and $content =~ / \t /msx |
| 599 | 21 | 0 | 0 | defined $encoding and _encode_available() |
| 639 | 9 | 0 | 6 | $cached_doc and $doc == $cached_doc |
| 750 | 0 | 0 | 3 | $code = $special{$sigil} and my $elem = &$code($self, $sigil, $_[2]) |
| 798 | 0 | 0 | 1 | $allow_subscr{$sigil} and $_[0] =~ / \G (?= ( [[{] ) ) /cgmsx |
| 859 | 57 | 52 | 52 | @rslt and $can_merge{$elem->[0]} |
| 109 | 47 | 5 | @rslt and $can_merge{$elem->[0]} and $elem->[0] eq $rslt[-1][0] | |
| 893 | 1 | 0 | 1 | '' ne $arg{'sibling'}[-1][0] && ('PPIx::QuoteLike::Token::String' ne $arg{'sibling'}[-1][0] || !($arg{'sibling'}[-1][1] =~ / \n \z /msx)) |
| line | l | !l | condition |
|---|---|---|---|
| 115 | 9 | 0 | pos $string || 0 |
| 134 | 7 | 0 | pos $string || 0 |
| 169 | 44 | 0 | pos $string || 0 |
| 187 | 14 | 106 | defined $_ or $_ = "" |
| 201 | 7 | 53 | $self->{'start'} ||= [$self->_make_token("PPIx::QuoteLike::Token::Delimiter", $start_delim)] |
| 371 | 36 | 48 | $self->{'elements'} ||= [map({$self->$_;} "type", "start", "children", "finish")] |
| 409 | 0 | 54 | $inx or 0 |
| 457 | 15 | 2 | $loc{'tab_width'} ||= 1 |
| 530 | 0 | 0 | $inx ||= 0 |
| 553 | 0 | 54 | $inx or 0 |
| 567 | 0 | 33 | $inx or 0 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 82 | 2 | 67 | 43 | !!$arg{'location'} || __instance($source, 'PPI::Element') |
| 94 | 0 | 112 | 0 | ref $class || $class |
| 113 | 5 | 1 | 3 | 'qq' eq $type || 'qx' eq $type && q['] ne $start_delim |
| 446 | 75 | 17 | 0 | $self->{'_location'} ||= do { my(%loc) = ("line_content", "", "location", $self->{'location'}); if (__instance($self->{'source'}, "PPI::Element")) { $loc{'location'} ||= $self->{'source'}->location; if (my $doc = $self->{'source'}->document) { $loc{'tab_width'} = $doc->tab_width; } ; } ; $loc{'tab_width'} ||= 1; \%loc } |
| 452 | 0 | 15 | 0 | $loc{'location'} ||= $self->{'source'}->location |
| 598 | 0 | 0 | 21 | $encoding ||= $self->{'encoding'} |