Branch Coverage

blib/lib/Dist/PolicyFiles.pm
Criterion Covered Total %
branch 19 24 79.1


line true false branch
81 1 85 unless exists $allowed->{$arg}
82 2 83 if ref $args{$arg}
85 3 23 unless exists $args{$_}
87 8 3 unless (exists $self->{'email'} and exists $self->{'full_name'})
111 0 4 if @_
112 0 4 unless exists $self->{'module'}
114 1 3 defined $contrib_md_tmpl ? :
117 3 1 $self->{'uncapitalize'} ? :
119 0 4 unless my $tmpl_obj = "Text::Template"->new("SOURCE", $contrib_md_tmpl_str, "TYPE", "STRING")
138 3 1 unless (exists $args{'url'})
140 3 0 if $self->{'uncapitalize'}
143 18 0 unless not defined $args{$_}