| line |
true |
false |
branch |
|
26
|
0 |
0 |
unless tie my @A, 'Tie::File', "$file_A" |
|
27
|
0 |
0 |
unless tie my @B, 'Tie::File', "$file_B" |
|
37
|
0 |
0 |
if ($$aref[0] ne 'u') |
|
73
|
0 |
0 |
unless (defined $file_pattern and $file_pattern) |
|
75
|
0 |
0 |
unless (defined $colour and $colour) |
|
76
|
0 |
0 |
unless ($colour =~ /^[bc]$/) |
|
77
|
0 |
0 |
if ($colour eq 'b') |
|
79
|
0 |
0 |
unless (defined $digits and $digits) |
|
83
|
0 |
0 |
unless opendir my $dh, '.' |
|
84
|
0 |
0 |
if /$file_pattern/ |
|
91
|
0 |
0 |
if ($name_length > $max_length) |
|
101
|
0 |
0 |
if ($File_B ge $File_A) |
|
104
|
0 |
0 |
if ($count{$File_A}{$File_B} > 9 and $digits <= 2) |
|
105
|
0 |
0 |
if ($count{$File_A}{$File_B} > 99 and $digits <= 3) |
|
106
|
0 |
0 |
if ($count{$File_A}{$File_B} > 999 and $digits <= 4) |
|
121
|
0 |
0 |
if (exists $HoA{$_}[$cnt]) { } |
|
124
|
0 |
0 |
unless ($cnt) |
|
132
|
0 |
0 |
if ($colour) { } |
|
141
|
0 |
0 |
if ($colour) { } |
|
145
|
0 |
0 |
if ($File_B ge $File_A) { } |
|
151
|
0 |
0 |
if ($count) { } |
|
153
|
0 |
0 |
if ($colour) { } |
|
158
|
0 |
0 |
if ($colour) { } |