| line |
true |
false |
branch |
|
32
|
11 |
0 |
if $d1{'.'} |
|
33
|
11 |
0 |
if $d1{'..'} |
|
34
|
11 |
0 |
if $d2{'.'} |
|
35
|
11 |
0 |
if $d2{'..'} |
|
38
|
1 |
10 |
$$opts{'cmp'} && ref $$opts{'cmp'} eq 'CODE' ? : |
|
39
|
1 |
10 |
if $$opts{'matches'} and ref $$opts{'matches'} eq 'CODE' |
|
43
|
69 |
38 |
$u{$_}++ == 0 ? : |
|
47
|
13 |
56 |
if (not $d2{$f}) { } |
|
|
18 |
38 |
elsif (not $d1{$f}) { } |
|
48
|
12 |
1 |
unless $$opts{'ignore_unique'} |
|
52
|
16 |
2 |
unless $$opts{'ignore_unique'} |
|
57
|
4 |
34 |
if (-l $f1 and -l $f2) { } |
|
|
0 |
34 |
elsif (-l $f1 or -l $f2) { } |
|
|
3 |
31 |
elsif (-d $f1 and -d $f2) { } |
|
|
12 |
19 |
elsif (-d $f1 or -d $f2) { } |
|
58
|
0 |
4 |
unless my $t1 = readlink $f1 |
|
59
|
0 |
4 |
unless my $t2 = readlink $f2 |
|
60
|
2 |
2 |
if $t1 ne $t2 |
|
76
|
2 |
17 |
if ($$opts{'ignore_cmp'}) { } |
|
|
9 |
8 |
elsif (&$cmp($f1, $f2) != 0) { } |
|
|
1 |
7 |
elsif ($matches) { } |
|
98
|
0 |
8 |
unless -d $dir1 |
|
99
|
0 |
8 |
unless -d $dir2 |
|
100
|
0 |
8 |
unless ref $sub eq 'CODE' |
|
101
|
0 |
8 |
if $opts and ref $opts ne 'HASH' |
|
103
|
8 |
0 |
unless ref $self |