| line |
true |
false |
branch |
|
234
|
5 |
23 |
if @stack |
|
240
|
24 |
4 |
if (not $command->is_done) |
|
252
|
0 |
2 |
if @_ |
|
255
|
0 |
2 |
unless @stack |
|
317
|
2 |
23 |
lc($ENV{'PERL_NAMESPACE_LOCAL'} || '') eq 'debug' ? : |
|
348
|
0 |
5 |
if $self->{'next'} and not $self->{'next'}{'done'} |
|
360
|
0 |
5 |
if $self->{'todo'} and not $self->{'done'} |
|
374
|
15 |
12 |
if ($known_action{$arg}) { } |
|
|
2 |
10 |
elsif ($arg eq '-target') { } |
|
|
5 |
5 |
elsif ($arg eq '-except') { } |
|
|
4 |
1 |
elsif ($arg eq '-only') { } |
|
380
|
1 |
4 |
if (ref $cond eq 'Regexp') { } |
|
|
3 |
1 |
elsif (ref $cond eq 'ARRAY') { } |
|
389
|
2 |
2 |
if (ref $cond eq 'Regexp') { } |
|
|
1 |
1 |
elsif (ref $cond eq 'ARRAY') { } |
|
429
|
1 |
5 |
unless /^([\$\@\%]?)(\w+)$/ |
|
447
|
4 |
24 |
if ($action eq '-around') { } |
|
|
17 |
7 |
elsif ($action eq '-below') { } |
|
459
|
7 |
21 |
if ($action eq '-above') { } |
|
478
|
3 |
26 |
if $self->{'next'} |
|
481
|
28 |
1 |
unless $self->{'done'}++ |
|
532
|
0 |
30 |
unless keys %$diff |
|
544
|
100 |
65 |
if defined $table->{$_}{'CODE'} |
|
562
|
1 |
29 |
if (my $restrict = $self->{'restrict_symbols'}) |
|
572
|
10 |
2 |
unless $restrict->{$name}{$type} and not $touch_not->{$name}{$type} |
|
590
|
25 |
467 |
if $skip->{$type} |
|
592
|
71 |
396 |
if (ref $old->{$type} ne ref $new->{$type}) |
|
600
|
0 |
396 |
unless ref $new->{$type} |
|
603
|
4 |
392 |
if (&refaddr($old->{$type}) != &refaddr($new->{$type})) |
|
609
|
53 |
215 |
if ($diff->{$name}) |
|
640
|
508 |
1647 |
if /^\w+$/ and not $_ =~ /$except/ |
|
657
|
2 |
67 |
if $self->{'restrict_symbols'} |
|
666
|
958 |
2210 |
if defined $value |
|
696
|
37 |
372 |
unless ref $copy->{$type} |
|
705
|
0 |
372 |
unless (eval {
do {
no strict 'refs';
*{$package . '::' . $name;} = $copy->{$type};
1
}
}) |
|
724
|
6 |
0 |
$old_table ? : |
|
735
|
6 |
0 |
if ((&refaddr($new) || 0) != (&refaddr($old) || 0)) { } |
|
746
|
0 |
9 |
&blessed($ref) ? : |
|
|
9 |
3 |
ref $ref ? : |