| line |
true |
false |
branch |
|
93
|
0 |
7 |
unless ref $self |
|
96
|
0 |
7 |
if @_ |
|
159
|
0 |
7 |
defined $$opts{'text'} ? : |
|
160
|
7 |
0 |
if ref $text eq 'SCALAR' |
|
162
|
0 |
7 |
unless defined $text |
|
178
|
0 |
7 |
if $$self{'*depth'} > $MAX_DEPTH |
|
183
|
0 |
7 |
if @_ > $MAX_SCOPE_DEPTH |
|
191
|
7 |
0 |
unless $p > -1 |
|
194
|
0 |
0 |
if ($p > $$self{'*exit_point'}) { } |
|
198
|
0 |
0 |
if ($$self{'*replace_count'} > $MAX_DEPTH) |
|
215
|
0 |
0 |
unless $ic > 0 |
|
222
|
0 |
0 |
if ($p3 <= $p) |
|
237
|
0 |
0 |
if (index($inner_str, $BEGIN) > -1) |
|
240
|
0 |
0 |
if (defined $inner_val and $inner_val ne $inner_str) { } |
|
255
|
0 |
0 |
if ($inner_str =~ /^["'](.*)["']$/) { } |
|
260
|
0 |
0 |
unless @fields |
|
263
|
0 |
0 |
if (@name_fields > 1) |
|
275
|
0 |
7 |
ref $text eq 'SCALAR' ? : |
|
278
|
0 |
0 |
if (defined $contents) |
|
279
|
0 |
0 |
if (defined $$parent{'as'}) { } |
|
329
|
0 |
0 |
unless ref $self |
|
330
|
0 |
0 |
unless my $name = shift() |
|
343
|
0 |
0 |
if (ref $evaluator eq 'CODE') { } |
|
350
|
0 |
0 |
if (defined $$result{'value'}) { } |
|
359
|
0 |
0 |
if $$Hub::Parse::Parser::Hub{'/sys/ENV/DEBUG'} |
|
365
|
0 |
0 |
if (defined $$result{'value'}) { } |
|
367
|
0 |
0 |
unless ($$result{'keep_ws'}) |
|
369
|
0 |
0 |
if (@padding) |
|
379
|
0 |
0 |
if (length $$result{'value'} == 0) |
|
385
|
0 |
0 |
if $$result{'goto'} |
|
396
|
0 |
0 |
unless ref $self |
|
398
|
0 |
0 |
unless $name |
|
401
|
0 |
0 |
if defined $literal |
|
403
|
0 |
0 |
if ($name =~ s/^\!//) |
|
412
|
0 |
0 |
if ($$Hub::Parse::Parser::Hub{$file}) { } |
|
420
|
0 |
0 |
unless defined $h |
|
421
|
0 |
0 |
if (ref $h) |
|
422
|
0 |
0 |
isa($h, 'Hub::Base::Registry') ? : |
|
426
|
0 |
0 |
if defined $value |
|
429
|
0 |
0 |
if (not defined $value and defined $params and @$params) |
|
436
|
0 |
0 |
if (defined $params{'or'} and $params{'or'} ne $name) |
|
449
|
0 |
0 |
unless ref $self |
|
452
|
0 |
0 |
if (ref $value) |
|
462
|
0 |
0 |
if (defined $value and not ref $value) { } |
|
|
0 |
0 |
elsif (isa($value, 'HASH')) { } |
|
464
|
0 |
0 |
if (defined $params and @$params and not $name =~ /^\!/) |
|
467
|
0 |
0 |
unless @$params == 2 and defined $args{'or'} |
|
483
|
0 |
0 |
if (UNIVERSAL::isa($_[0], 'Hub::Data::File')) |
|
485
|
0 |
0 |
if (defined $$Hub::Parse::Parser::Hub{'/sys/ENV/WORKING_DIR'}) |
|
517
|
0 |
0 |
unless ref $self |
|
518
|
0 |
0 |
unless ref $str eq 'SCALAR' |
|
532
|
0 |
0 |
unless ref $self |
|
533
|
0 |
0 |
unless ref $text eq 'SCALAR' |
|
541
|
0 |
0 |
if ($end_p > 0) { } |
|
561
|
0 |
0 |
unless ref $self |
|
567
|
0 |
0 |
$p > 0 ? : |
|
579
|
0 |
0 |
unless ref $self |
|
590
|
0 |
0 |
if $nested_p > $end_p |
|
593
|
0 |
0 |
if $end_p < 0 |
|
597
|
0 |
0 |
if ($end_p >= 0) { } |
|
602
|
0 |
0 |
if @padding |
|
636
|
0 |
0 |
if ($pos == 0) { } |
|
642
|
0 |
0 |
unless $prev_c =~ /\s/ |
|
643
|
0 |
0 |
unless defined $prefix |
|
644
|
0 |
0 |
if ($prev_c eq "\r" or $prev_c eq "\n") |
|
646
|
0 |
0 |
if ($i > 1) |
|
654
|
0 |
0 |
if ($starts_line) |
|
660
|
0 |
0 |
if ($next_c eq "\r" || $next_c eq "\n" and $next_c ne $last_c) { } |
|
670
|
0 |
0 |
defined $prefix && defined $suffix ? : |
|
679
|
0 |
0 |
unless ref $self |
|
685
|
0 |
0 |
if ($p_else > -1) { } |
|
687
|
0 |
0 |
if ($p_if > -1 and $p_if < $p_else) { } |