| line |
true |
false |
branch |
|
232
|
5 |
23 |
if @stack |
|
238
|
24 |
4 |
if (not $command->is_done) |
|
250
|
0 |
2 |
if @_ |
|
253
|
0 |
2 |
unless @stack |
|
315
|
2 |
23 |
lc($ENV{'PERL_NAMESPACE_LOCAL'} || '') eq 'debug' ? : |
|
346
|
0 |
5 |
if $self->{'next'} and not $self->{'next'}{'done'} |
|
358
|
0 |
5 |
if $self->{'todo'} and not $self->{'done'} |
|
372
|
15 |
12 |
if ($known_action{$arg}) { } |
|
|
2 |
10 |
elsif ($arg eq '-target') { } |
|
|
5 |
5 |
elsif ($arg eq '-except') { } |
|
|
4 |
1 |
elsif ($arg eq '-only') { } |
|
378
|
1 |
4 |
if (ref $cond eq 'Regexp') { } |
|
|
3 |
1 |
elsif (ref $cond eq 'ARRAY') { } |
|
387
|
2 |
2 |
if (ref $cond eq 'Regexp') { } |
|
|
1 |
1 |
elsif (ref $cond eq 'ARRAY') { } |
|
427
|
1 |
5 |
unless /^([\$\@\%]?)(\w+)$/ |
|
445
|
4 |
24 |
if ($action eq '-around') { } |
|
|
17 |
7 |
elsif ($action eq '-below') { } |
|
457
|
7 |
21 |
if ($action eq '-above') { } |
|
476
|
3 |
26 |
if $self->{'next'} |
|
479
|
28 |
1 |
unless $self->{'done'}++ |
|
530
|
0 |
30 |
unless keys %$diff |
|
542
|
100 |
65 |
if defined $table->{$_}{'CODE'} |
|
560
|
1 |
29 |
if (my $restrict = $self->{'restrict_symbols'}) |
|
570
|
10 |
2 |
unless $restrict->{$name}{$type} and not $touch_not->{$name}{$type} |
|
588
|
25 |
467 |
if $skip->{$type} |
|
590
|
71 |
396 |
if (ref $old->{$type} ne ref $new->{$type}) |
|
598
|
0 |
396 |
unless ref $new->{$type} |
|
601
|
4 |
392 |
if (&refaddr($old->{$type}) != &refaddr($new->{$type})) |
|
607
|
53 |
215 |
if ($diff->{$name}) |
|
638
|
508 |
1647 |
if /^\w+$/ and not $_ =~ /$except/ |
|
655
|
2 |
67 |
if $self->{'restrict_symbols'} |
|
664
|
958 |
2210 |
if defined $value |
|
694
|
37 |
372 |
unless ref $copy->{$type} |
|
703
|
0 |
372 |
unless (eval {
do {
no strict 'refs';
*{$package . '::' . $name;} = $copy->{$type};
1
}
}) |
|
722
|
6 |
0 |
$old_table ? : |
|
733
|
6 |
0 |
if ((&refaddr($new) || 0) != (&refaddr($old) || 0)) { } |
|
744
|
0 |
9 |
&blessed($ref) ? : |
|
|
9 |
3 |
ref $ref ? : |