Branch Coverage

File:dpkg-mergechangelogs.pl
Coverage:68.9%

line%coveragebranch
4650TFif ($@)
490TFif join("\n", @$a) eq join("\n", @$b)
9650TFunless (defined $old and defined $new_a and defined $new_b)
10050TFunless (-e $old and -e $new_a and -e $new_b)
12050TFunless (&merge_block($cho, $cha, $chb, sub {         my $changes = shift(); my $tail = $changes->get_unparsed_tail; chomp $tail if defined $tail; return $tail; } ))
123100TFif defined $tail
132100TFunless defined $o or defined $a or defined $b
133100TFif &merge_block($o, $a, $b)
13550TFif (defined $a and defined $b) { }
14450TFif (defined $out_file and $out_file ne '-') { }
1450TFunless open my $out_fh, ">", $out_file
1470TF&blessed($_) ? :
1480TFunless close $out_fh
150100TF&blessed($_) ? :
163100TFif (defined $minitem and defined $items[$i]) { }
165100TFif ($cmp > 0) { }
100TFelsif ($cmp < 0) { }
176100TFif defined $items[$i]
1880TFunless defined $a or defined $b
18950TFunless defined $b
19050TFunless defined $a
19450TFif ref $a and $a->isa("Dpkg::Changelog::Entry")
19550TFif ref $b and $b->isa("Dpkg::Changelog::Entry")
197100TFif ($merge_unreleased)
198100TFif $a->get_distributions eq "UNRELEASED" and $b->get_distributions eq "UNRELEASED"
20250TFif (defined $backport_version_regex)
206100TFif ($merge_prereleases)
22250TFunless (&merge_entry_item("blank_after_trailer", $o, $a, $b))
225100TFunless (&merge_entry_item("trailer", $o, $a, $b))
23050TFunless (&merge_entry_item("blank_after_changes", $o, $a, $b))
241100TFdefined $o ? :
24550TFunless (&merge_entry_item("blank_after_header", $o, $a, $b))
248100TFunless (&merge_entry_item("header", $o, $a, $b))
255100TFif ref $array eq "ARRAY"
269100TFif defined $o
270100TFif defined $a
271100TFif defined $b
272100TFunless defined $a or defined $b
273100TFif (defined $a and defined $b and $a eq $b) { }
100TFelsif (defined $a and defined $o and $a eq $o or not defined $a || defined $o) { }
100TFelsif (defined $b and defined $o and $b eq $o or not defined $b || defined $o) { }
277100TFif defined $b
280100TFif defined $a
289100TFif (&blessed($o) and $o->isa('Dpkg::Changelog::Entry')) { }
50TFelsif (ref $o) { }
29450TFif (&blessed($a) and $a->isa('Dpkg::Changelog::Entry')) { }
0TFelsif (ref $a) { }
29950TFif (&blessed($b) and $b->isa('Dpkg::Changelog::Entry')) { }
0TFelsif (ref $b) { }
31650TFif defined $a
31750TFif defined $b
318100TFif ref $a eq "ARRAY"
319100TFif ref $b eq "ARRAY"