| line |
true |
false |
branch |
|
48
|
29 |
0 |
if (/Can\'t locate .* in \@INC/ and not /Compilation failed/) { } |
|
71
|
0 |
24 |
unless opendir DIRH, $dir |
|
72
|
122 |
24 |
if $_ ne '.' |
|
82
|
0 |
5199 |
unless (sysopen $read_fh, $file, $Fetch_Flags) |
|
88
|
5199 |
0 |
if (defined $read_cnt) { } |
|
89
|
0 |
5199 |
if $read_cnt == 0 |
|
91
|
5199 |
0 |
if $size_left <= 0 |
|
102
|
0 |
2053 |
unless defined $file_create_mode |
|
108
|
2 |
2051 |
unless (sysopen $write_fh, $file, $Store_Flags, $file_create_mode) |
|
116
|
0 |
2051 |
unless (defined $write_cnt) |
|
134
|
8 |
2318 |
unless ($suffix and defined $uuid) |
|
169
|
1 |
10 |
if ($size =~ /^\d+b?$/) { } |
|
|
9 |
1 |
elsif (my($quantity, $unit) = $size =~ /^(\d+)\s*([km])b?$/i) { } |