Branch Coverage

blib/lib/App/Greple/update.pm
Criterion Covered Total %
branch 0 50 0.0


line true false branch
180 0 0 if ($opt_U ne "")
183 0 0 if (defined $opt_backup)
184 0 0 $opt_backup ne '' ? :
190 0 0 unless $current_file = delete $arg{&FILELABEL}
191 0 0 if $remember_data
202 0 0 @_ ? :
203 0 0 $diverted == 0 ? :
204 0 0 unless open UPDATE_STDOUT, ">&", \*STDOUT
206 0 0 unless open STDOUT, ">", $buffer
210 0 0 $diverted == 1 ? :
212 0 0 unless open STDOUT, ">&", \*UPDATE_STDOUT
226 0 0 if ($fdpath and $remember_data)
229 0 0 unless $fh = "IO::File"->new_tmpfile
231 0 0 unless my $fd = $fh->fcntl(1, 0)
232 0 0 unless $fh->fcntl(2, $fd & '18446744073709551614')
238 0 0 unless @update_diffcmd
258 0 0 unless recover_stdout()
259 0 0 if $arg{'discard'}
262 0 0 if ($_ eq $divert_buffer)
266 0 0 if (my $suffix = $opt_suffix)
274 0 0 if ($arg{'replace'}) { }
275 0 0 if ($newname ne '') { }
277 0 0 unless rename $filename, $newname
278 0 0 if -f $filename
289 0 0 unless open my $fh, ">", $create