| line |
true |
false |
branch |
|
24
|
1 |
0 |
$@ ? : |
|
64
|
0 |
0 |
unless $iostrings |
|
71
|
0 |
0 |
ref $file ? : |
|
79
|
0 |
0 |
if $ddata |
|
92
|
0 |
0 |
if ($in > $indent) { } |
|
|
0 |
0 |
elsif ($in < $indent) { } |
|
94
|
0 |
0 |
if ($last) { } |
|
97
|
0 |
0 |
if $line |
|
101
|
0 |
0 |
if ($indent + 1 == $in and $allow_plus_one_indent and $line =~ /^\s*$allow_plus_one_indent/) |
|
105
|
0 |
0 |
if ($indent != 0 or $prev ne "!\n" and not $prev =~ /^!.*$/) |
|
106
|
0 |
0 |
if ($bad_indent_policy eq 'IGNORE') { } |
|
|
0 |
0 |
elsif ($bad_indent_policy eq 'WARN') { } |
|
123
|
0 |
0 |
if ($ciscobug and $in == 0) { } |
|
|
0 |
0 |
elsif ($last and $indent - 1 == $in and $allow_minus_one_indent and $line =~ /^\s*$allow_minus_one_indent/) { } |
|
128
|
0 |
0 |
unless $last->{$seqn} |
|
131
|
0 |
0 |
if $line |
|
137
|
0 |
0 |
if /^$/ |
|
138
|
0 |
0 |
if /^\s*!/ |
|
146
|
0 |
0 |
if (not @x) { } |
|
|
0 |
0 |
elsif (defined $$context{$x[0]}) { } |
|
154
|
0 |
0 |
unless $context->{$dupl} |
|
158
|
0 |
0 |
$ddata ? : |
|
171
|
0 |
0 |
unless defined $x |
|
172
|
0 |
0 |
unless defined $dseq |
|
173
|
0 |
0 |
unless defined $line |
|
174
|
0 |
0 |
$ddata ? : |
|
184
|
0 |
0 |
if $context->{$cntx} |
|
189
|
0 |
0 |
unless ($nonext) |
|
190
|
0 |
0 |
if ($last) { } |
|
202
|
0 |
0 |
if ($line and ($line =~ /(\^C)/ and not $line =~ /\^C.*\^C/) or $line =~ /banner [a-z\-]+ ((?!\^C).+)/) |
|
210
|
0 |
0 |
unless defined $1 |
|
220
|
0 |
0 |
unless $line |
|
221
|
0 |
0 |
$ddata ? : |
|
230
|
0 |
0 |
if $line =~ /${sep}[\r]?$/ |
|
232
|
0 |
0 |
unless $line and $line =~ /${sep}[\r]?$/ |
|
241
|
0 |
0 |
unless $_[0]{$seqn} or $_[0]->endpt->{$seqn} |
|
242
|
0 |
0 |
unless $_[0]{$subs} or $_[0]->zoom->{$subs} |
|
243
|
0 |
0 |
unless $_[0]{$next} or $_[0]->zoom->{$next} |
|
246
|
0 |
0 |
$_[0]{$debg} ? : |
|
254
|
0 |
0 |
if defined $self->{$text} |
|
256
|
0 |
0 |
if @p > 1 |
|
257
|
0 |
0 |
unless @p |
|
263
|
0 |
0 |
unless $self |
|
265
|
0 |
0 |
unless @p |
|
271
|
0 |
0 |
if defined $self->{$text} |
|
273
|
0 |
0 |
if @p > 1 |
|
274
|
0 |
0 |
unless @p |
|
280
|
0 |
0 |
unless $self |
|
282
|
0 |
0 |
if defined $self->{$text} and not @p |
|
283
|
0 |
0 |
unless @p |
|
290
|
0 |
0 |
unless $self |
|
291
|
0 |
0 |
if (defined $self->{$text}) |
|
294
|
0 |
0 |
$debug_text ? : |
|
297
|
0 |
0 |
if (@p > 1) { } |
|
|
0 |
0 |
elsif ($self->{$dupl}) { } |
|
306
|
0 |
0 |
if $debug_text |
|
310
|
0 |
0 |
unless @p |
|
317
|
0 |
0 |
if (defined $self->{$text}) |
|
320
|
0 |
0 |
$debug_text ? : |
|
322
|
0 |
0 |
if (exists $self->{$dupl}) |
|
325
|
0 |
0 |
$debug_text ? : |
|
328
|
0 |
0 |
if (@p) |
|
336
|
0 |
0 |
if $all and $self->{$subs} |
|
337
|
0 |
0 |
if @t |
|
338
|
0 |
0 |
unless @p |
|
344
|
0 |
0 |
unless $self |
|
359
|
0 |
0 |
if defined $o and not $o =~ /\n$/ |
|
362
|
0 |
0 |
unless wantarray |
|
372
|
0 |
0 |
unless wantarray |
|
382
|
0 |
0 |
unless wantarray |
|
389
|
0 |
0 |
defined $_[0]{$cntx} ? : |
|
400
|
0 |
0 |
if $debug_context |
|
401
|
0 |
0 |
unless ($self->block) |
|
402
|
0 |
0 |
if $debug_context |
|
407
|
0 |
0 |
if $debug_context |
|
412
|
0 |
0 |
if $x |
|
421
|
0 |
0 |
if $debug_context |
|
422
|
0 |
0 |
if $debug_context |
|
450
|
0 |
0 |
if $debug_set |
|
451
|
0 |
0 |
unless $self |
|
454
|
0 |
0 |
if $debug_set |
|
456
|
0 |
0 |
if $self->subs |
|
458
|
0 |
0 |
if $debug_set |
|
469
|
0 |
0 |
if (@designators) { } |
|
476
|
0 |
0 |
if $debug_set |
|
478
|
0 |
0 |
if ($lines[0] =~ /^(\s+)/) |
|
481
|
0 |
0 |
unless substr($_, 0, length $ls) eq $ls |
|
482
|
0 |
0 |
if $m |
|
489
|
0 |
0 |
if /^\s*!\s*$/ |
|
492
|
0 |
0 |
if $debug_set |
|
495
|
0 |
0 |
unless $old |
|
497
|
0 |
0 |
if (not $old) { } |
|
|
0 |
0 |
elsif (not $designator || looks_like_a_block($desig, @lines)) { } |
|
|
0 |
0 |
elsif ($old->teql($desig)) { } |
|
498
|
0 |
0 |
if $debug_set |
|
503
|
0 |
0 |
if ($self->block and $self->context) { } |
|
510
|
0 |
0 |
if $debug_set |
|
517
|
0 |
0 |
if grep /^$indent\s/, @lines |
|
524
|
0 |
0 |
if ($t{$l}) { } |
|
534
|
0 |
0 |
if @o |
|
539
|
0 |
0 |
if $debug_set |
|
543
|
0 |
0 |
if $debug_set |
|
545
|
0 |
0 |
if (defined $designator) { } |
|
553
|
0 |
0 |
if (@lines) |
|
554
|
0 |
0 |
if ($old and not @o and $old->subs and $old->subs->next) |
|
555
|
0 |
0 |
if $debug_set |
|
558
|
0 |
0 |
if $debug_set |
|
560
|
0 |
0 |
if $l =~ /^\s*exit\s*$/ |
|
561
|
0 |
0 |
if $f->teql($l) |
|
562
|
0 |
0 |
if $debug_set |
|
568
|
0 |
0 |
if $debug_set |
|
570
|
0 |
0 |
if (not $ok or $f) |
|
576
|
0 |
0 |
if @o |
|
579
|
0 |
0 |
if @o |
|
581
|
0 |
0 |
unless wantarray |
|
588
|
0 |
0 |
unless defined $last |
|
589
|
0 |
0 |
if grep /^\S/, @l |
|
590
|
0 |
0 |
if $first =~ /^\s/ |
|
591
|
0 |
0 |
if $last =~ /^\s/ |
|
597
|
0 |
0 |
unless @l |
|
599
|
0 |
0 |
unless defined $_ |
|
600
|
0 |
0 |
unless s/^\s*no /$indent/ |
|
602
|
0 |
0 |
unless wantarray |
|
609
|
0 |
0 |
if $regex |
|
616
|
0 |
0 |
if wantarray and @designators > 1 |
|
619
|
0 |
0 |
if $debug_get |
|
621
|
0 |
0 |
unless $self |
|
623
|
0 |
0 |
if $zoom |
|
625
|
0 |
0 |
if $debug_get |
|
631
|
0 |
0 |
if $debug_get |
|
634
|
0 |
0 |
if $debug_get |
|
635
|
0 |
0 |
unless $self->{$d} |
|
637
|
0 |
0 |
if $debug_get |
|
639
|
0 |
0 |
unless @designators |
|
640
|
0 |
0 |
if ($self->single) { } |
|
642
|
0 |
0 |
if $debug_get |
|
645
|
0 |
0 |
if $debug_get |
|
649
|
0 |
0 |
if $debug_get |
|
650
|
0 |
0 |
if (wantarray) |
|
653
|
0 |
0 |
if @k |
|
666
|
0 |
0 |
unless wantarray |
|
676
|
0 |
0 |
unless wantarray |
|
685
|
0 |
0 |
if $self->single and $self->single->{$text} and $self->subs->undefined |
|
687
|
0 |
0 |
if $self->context->undefined |
|
690
|
0 |
0 |
if wantarray |
|
705
|
0 |
0 |
if (@designators > 1) { } |
|
707
|
0 |
0 |
if $debug_mget |
|
712
|
0 |
0 |
if $debug_mget |
|
713
|
0 |
0 |
if $debug_mget |
|
717
|
0 |
0 |
if $debug_mget |
|
725
|
0 |
0 |
if $debug_mget |
|
729
|
0 |
0 |
if $debug_mget |