| line |
true |
false |
branch |
|
49
|
0 |
0 |
unless $d |
|
50
|
0 |
0 |
if ref $d |
|
65
|
0 |
0 |
if (not ref $self->{'input'}) { } |
|
|
0 |
0 |
elsif (ref $self->{'input'} eq 'CODE') { } |
|
|
0 |
0 |
elsif ($self->{'input'}->can('iter')) { } |
|
126
|
0 |
0 |
unless $tok |
|
135
|
0 |
0 |
unless scalar @indentation_stack |
|
141
|
0 |
0 |
if (not @indentation_stack and $self->{'input_type'} eq 'textplus') |
|
159
|
0 |
0 |
$indent == -1 ? : |
|
163
|
0 |
0 |
if ($self->{'input_type'} eq 'text') |
|
167
|
0 |
0 |
if ($self->{'input_type'} eq 'para') |
|
170
|
0 |
0 |
if ($self->{'input_type'} eq 'block') |
|
177
|
0 |
0 |
if ($self->{'input_type'} eq 'textplus') |
|
193
|
0 |
0 |
if (@token_buffer) |
|
200
|
0 |
0 |
if ($done) |
|
202
|
0 |
0 |
if ($glom and $blanks) |
|
209
|
0 |
0 |
if (@indentation_stack) |
|
220
|
0 |
0 |
unless ($line) |
|
243
|
0 |
0 |
if ($line_continued) |
|
262
|
0 |
0 |
if ($first) |
|
264
|
0 |
0 |
if ($plus_quoted) { } |
|
|
0 |
0 |
elsif (not $plus_quoted) { } |
|
274
|
0 |
0 |
if ($type eq 'blank') |
|
276
|
0 |
0 |
if ($stop_on_blank and not $quoting and not $plus_quoted) |
|
282
|
0 |
0 |
if $glom or $self->{'input_type'} eq 'text' |
|
290
|
0 |
0 |
if ($self->{'input_type'} eq 'para') |
|
291
|
0 |
0 |
if ($first_line) |
|
300
|
0 |
0 |
if ($plus_quoted and $indent < $plus_indent) |
|
309
|
0 |
0 |
if ($probe) |
|
315
|
0 |
0 |
if ($textrest) |
|
320
|
0 |
0 |
if ($starting_quote) |
|
327
|
0 |
0 |
if ($quoting or $self->{'input_type'} eq 'text' or $self->{'input_type'} eq 'para') |
|
329
|
0 |
0 |
if ($glom) |
|
330
|
0 |
0 |
if ($glom_until) |
|
331
|
0 |
0 |
if ($text eq $glom_until) |
|
354
|
0 |
0 |
if ($indent < $qindmin) { } |
|
356
|
0 |
0 |
if ($closer) |
|
357
|
0 |
0 |
if ($closer eq $text) |
|
378
|
0 |
0 |
if ($check_plus) |
|
380
|
0 |
0 |
if ($probe and not $line_continued) |
|
382
|
0 |
0 |
if ($in_text_block) |
|
403
|
0 |
0 |
if ($check_barewords) |
|
405
|
0 |
0 |
if ($probe) |
|
407
|
0 |
0 |
$non_name ? : |
|
|
0 |
0 |
$first ? : |
|
410
|
0 |
0 |
unless $line_continued |
|
418
|
0 |
0 |
if ($check_brackets) |
|
420
|
0 |
0 |
if ($probe) |
|
422
|
0 |
0 |
unless $line_continued |
|
431
|
0 |
0 |
if ($check_quotes) |
|
433
|
0 |
0 |
if ($probe) |
|
435
|
0 |
0 |
unless $line_continued |
|
444
|
0 |
0 |
if ($check_sigils) |
|
447
|
0 |
0 |
if ($probe) |
|
451
|
0 |
0 |
if ($in_text_block) |
|
458
|
0 |
0 |
$line_cont ? : |
|
459
|
0 |
0 |
match_white(substr($text, $tlen)) ? : |
|
460
|
0 |
0 |
if (not $first && $force_sigil_space or $tlen eq $len or match_white(substr($text, $tlen))) |
|
462
|
0 |
0 |
unless $line_continued |
|
469
|
0 |
0 |
$closer ? : |
|
471
|
0 |
0 |
if ($ttxt =~ /<<(.*)$/) |
|
474
|
0 |
0 |
if ($1 eq '') { } |
|
|
0 |
0 |
elsif ($1 ne '<') { } |
|
483
|
0 |
0 |
unless ($line_cont) |
|
487
|
0 |
0 |
unless ($len) |
|
491
|
0 |
0 |
if $line_cont |
|
500
|
0 |
0 |
if ($probe) |
|
503
|
0 |
0 |
if ($len) |
|
504
|
0 |
0 |
if ($tokens_found) { } |
|
506
|
0 |
0 |
if ($first_line) |
|
516
|
0 |
0 |
if ($first_line) |
|
535
|
0 |
0 |
if $bracket eq '{' |
|
536
|
0 |
0 |
if $bracket eq '(' |
|
537
|
0 |
0 |
if $bracket eq '<' |
|
538
|
0 |
0 |
if $bracket eq ']' |
|
553
|
0 |
0 |
if ($_[0] =~ /^(\s+)/) |
|
569
|
0 |
0 |
if ($string =~ /^([[:alnum:]_](:*[[:alnum:]!\@#$%\^&*=\-+~_.,;\|\(\)\[\]\?<>{}])*)(.*)/) |
|
573
|
0 |
0 |
if ($bareword =~ /^(.*):[[:punct:]]+$/) |
|
577
|
0 |
0 |
if ($bareword =~ /([[:punct:]]*<<([[:alnum:]\-]*))$/) |
|
593
|
0 |
0 |
if ($string =~ /^'((?:\\.|[^'])*)'(.*)/) |
|
599
|
0 |
0 |
if ($string =~ /^"((?:\\.|[^"])*)"(.*)/) |
|
613
|
0 |
0 |
unless $bracket eq '[' or $bracket eq '{' or $bracket eq '(' or $bracket eq '<' |
|
632
|
0 |
0 |
if ($copy =~ /^(.*)\Q$closer\E(.*)/) |
|
644
|
0 |
0 |
if ($string =~ /^([[:punct:]]+)([[:alnum:]\-]*)/) |
|
646
|
0 |
0 |
if $p =~ /<<$/ |
|
657
|
0 |
0 |
if ($_[0] =~ /^\+/) |