Branch Coverage

blib/lib/Perl/Dist/Machine.pm
Criterion Covered Total %
branch 22 36 61.1


line true false branch
61 0 1 unless (_DRIVER $self->class, 'Perl::Dist::Inno' or _DRIVER $self->class, 'Perl::Dist::WiX')
66 0 1 unless (defined $self->output)
69 0 1 unless (_STRING($self->output))
72 0 1 unless (-d $self->output and -w $self->output)
76 1 0 if (_HASH0($$self{'common'}))
79 0 1 unless (_ARRAY0($$self{'common'}))
103 0 2 unless my $name = _IDENTIFIER(shift())
104 0 2 if (defined $self->state)
107 0 2 if ($$self{'options'}{$name})
117 0 5 unless my $name = _IDENTIFIER(shift())
118 0 5 if (defined $self->state)
121 0 5 unless ($$self{'options'}{$name})
139 1 6 unless my $object = $self->next
147 0 7 if ($$self{'eos'})
155 6 1 if ($state) { }
159 5 4 unless ($$state{$name} == $#{$$options{$name};})
172 1 5 unless ($found)
180 0 2 unless (@{$$options{$name};})