Branch Coverage

perllib/Arch/Log.pm
Criterion Covered Total %
branch 13 46 28.2


line true false branch
59 17 1 if defined $$self{'headers'}
62 0 1 unless my($headers_str, $body) = $message =~ /^(.*?\n)\n(.*)$/s
69 0 9 if exists $$headers{$header}
75 2 7 if ($type)
77 0 2 if $type > 0 and $$self{'hide_ids'}
79 0 2 if ($type == 2)
96 15 0 unless @_
108 0 0 if ($self->get_revision_kind eq 'import' and not $self->header('new_directories'))
110 0 0 unless $self->header('new_files')
118 0 0 unless $self->header('new_directories')
123 0 0 unless $self->header('new_files')
128 0 0 unless $self->header('removed_directories')
133 0 0 unless $self->header('removed_files')
138 0 0 unless $self->header('modified_directories')
144 0 0 unless $self->header('modified_files')
150 0 0 unless $self->header('renamed_directories')
155 0 0 unless $self->header('renamed_files')
166 0 3 unless $full_revision =~ /^(.+)--(.+)/
185 0 1 $self->header('revision') =~ /--base-0$/ ? :
0 1 $self->header('continuation_of') ? :
217 1 0 if $dumper->can('Sortkeys')
230 0 0 if $method eq 'DESTROY'
232 0 0 if (exists $self->get_headers->{$method}) { }