Branch Coverage

File:Dpkg/Source/Patch.pm
Coverage:22.5%

line%coveragebranch
580TFif ($opts{'old'} and $opts{'new'} and $opts{'filename'})
590TFunless -e $opts{'old'}
600TFunless -e $opts{'new'}
610TFif (-d $opts{'old'} and -d $opts{'new'}) { }
0TFelsif (-f $opts{'old'} and -f $opts{'new'}) { }
680TFunless $opts{'nofinish'}
800TFif (ref *$self->{'header'} eq 'CODE') { }
960TFif compare($old, $new, 4096) == 0
990TFif ($opts{'options'}) { }
1050TFif ($opts{'label_old'} and $opts{'label_new'})
1060TFif ($opts{'include_timestamp'}) { }
1170TFif $opts{'label_old'} =~ / /
1180TFif $opts{'label_new'} =~ / /
1360TFif (/^(?:binary|[^-+\@ ].*\bdiffer\b)/i) { }
0TFelsif (/^[-+\@ ]/) { }
0TFelsif (/^\\ /) { }
1490TFif (*$self->{'empty'} and defined *$self->{'header'})
1500TFunless $self->print($self->get_header)
1530TFunless print {$self;} $_
1550TFunless close $diffgen
1620TFunless (WIFEXITED($?) and $exit == 0 || $exit == 1 || $binary)
1740TFif ($opts{'diff_ignore_func'}) { }
0TFelsif ($opts{'diff_ignore_regex'}) { }
1850TFlength $_ > length $new ? :
1860TFif &$diff_ignore($fn)
1880TFunless lstat "$new/$fn"
1910TFif (-l _) { }
0TFelsif (-f _) { }
0TFelsif (-p _) { }
0TFelsif (-b _ or -c _ or -S _) { }
0TFelsif (-d _) { }
1920TFunless (-l "$old/$fn")
1970TFunless (defined $n)
2010TFunless (defined $n2)
2040TFunless ($n eq $n2)
2090TFif (not lstat "$old/$fn") { }
0TFelsif (not -f _) { }
2100TFif ($! != 2)
2200TFif ($opts{'use_dev_null'})
2210TFif $old_file eq "/dev/null"
2260TFunless (-p "$old/$fn")
2330TFif (not lstat "$old/$fn") { }
0TFelsif (not -d _) { }
2340TFif ($! != 2)
2450TFlength $_ > length $old ? :
2460TFif &$diff_ignore($fn)
2470TFif $files_in_new{$fn}
2480TFunless lstat "$old/$fn"
2490TFif (-f _) { }
0TFelsif (-d _) { }
0TFelsif (-l _) { }
2500TFif (not defined $opts{'include_removal'}) { }
0TFelsif (not $opts{'include_removal'}) { }
2700TFif ($opts{'order_from'} and -e $opts{'order_from'}) { }
3030TFif ($success and $old_file eq "/dev/null" and $new_file ne "/dev/null")
3050TFif (not $size) { }
3090TFif ($mode & 73)
3100TFunless $fn eq "debian/rules"
3140TFif ($mode & 3584)
3250TFunless close $self
352100TFif (defined $line)
368100TFif ($header =~ /^"/) { }
37450TFunless $header =~ s/\t.*//
383100TFunless defined $old
38450TFunless defined $new
38550TFif -e $new and not -e $old
38650TFif -e $old and not -e $new
40450TFif ($nb_comp_o != $nb_comp_n) { }
50TFelsif ($blen_o != $blen_n) { }
50TFelsif ($len_o != $len_n) { }
4050TF$nb_comp_o < $nb_comp_n ? :
4070TF$blen_o < $blen_n ? :
4090TF$len_o < $len_n ? :
436100TFif ($line =~ /^(?:--- |\+\+\+ |\@@ -)/) { }
44250TFunless defined $line
446100TFunless ($line =~ s/^--- //)
450100TFif ($line ne "/dev/null" and $line =~ s[^[^/]*/+][$destdir/])
45350TFif ($line =~ /\.dpkg-orig$/)
45950TFunless (defined $line)
46350TFunless ($line =~ s/^\+\+\+ //)
46850TFif ($line ne "/dev/null" and $line =~ s[^[^/]*/+][$destdir/])
47250TFunless (defined $fn{'old'} or defined $fn{'new'})
479100TFunless defined $fn{$key}
48050TFif ($path{$key} =~ m[/\.\./])
48550TFif (-l $path)
48950TFunless $path =~ s[/+[^/]*$][]
490100TFif length $path <= length $destdir
49450TFif ($path{'old'} eq '/dev/null' and $path{'new'} eq '/dev/null') { }
50TFelsif ($path{'new'} eq '/dev/null') { }
4990TFunless defined $fn{'old'}
5000TFif ($opts{'verbose'})
5020TFunless -e $fn{'old'}
508100TFif ($dirname =~ s[/[^/]+$][] and not -d $dirname)
51250TFif (-e $fn)
5130TFunless (-f _)
5190TFif ($nlink > 1)
52550TFif ($filepatched{$fn}) { }
5280TFif ($opts{'fatal_dupes'}) { }
0TFelsif ($opts{'verbose'} and $filepatched{$fn} == 2) { }
54450TFif $line =~ /^\\ /
545100TFunless $line =~ /^\@@ -\d+(,(\d+))? \+\d+(,(\d+))? \@\@(?: .*)?$/
54650TF$1 ? :
50TF$3 ? :
54950TFunless (defined($line = _getline($self)))
5500TFif ($olines == $nlines and $olines < 3) { }
5520TFif $opts{'verbose'}
55850TFif $line =~ /^\\ /
56050TFif ($line =~ /^ / or length $line == 0) { }
50TFelsif ($line =~ /^-/) { }
50TFelsif ($line =~ /^\+/) { }
574100TFunless ($hunk)
57950TFunless ($diff_count)
5810TFif $opts{'verbose'}
59250TFif ($opts{'create_dirs'})
5950TFif $@
635100TFif ($?)
64650TFif $opts{'force_timestamp'} and scalar @files
64850TFif ($opts{'force_timestamp'})
64950TFunless utime $now, $now, $fn or $! == 2
65250TFif ($opts{'remove_backup'})
65450TFunless unlink $fn
6950TFunless WIFEXITED($?)
7030TFif (not lstat $file) { }
7040TFif $! == 2
7070TFif -f _
7080TFif -d _
7090TFif -l _
7100TFif -b _
7110TFif -c _
7120TFif -p _
7130TFif -S _