Branch Coverage

blib/lib/PDL/PP/PdlParObj.pm
Criterion Covered Total %
branch 38 60 63.3


line true false branch
67 0 110 unless $string =~ /$pars_re/x
70 0 110 if $main::PP_VERBOSE
72 1 109 if $INVALID_PAR{$name}
75 4 105 $opt1 ? :
78 0 49 unless $flag2info{$_}
0 49 unless my($set, $store) = @{[] unless $flag2info{$_};}
79 4 45 if $store
82 1 108 if $this->{'FlagTyped'} and $opt_plus
114 0 30 if $pdl->isnull and not $this->{'FlagCreat'}
115 8 22 if $pdl->isnull
117 0 22 if ($pdl->broadcastids)[0] < $rdims
129 8 19 if $pdl->isnull
134 1 14 if $dims[$i++] != $ind->{'Value'}
144 0 1 if not defined $_->{'Value'} or $_->{'Value'} < 1
150 0 48 unless defined $generic
151 0 48 if $this->{'FlagReal'} or $this->{'FlagNotComplex'}
152 0 48 if $this->{'FlagComplex'}
153 0 48 unless $this->{'FlagTyped'}
156 0 0 $this->{'Type'}->numval > $generic->numval ? :
0 48 if $this->{'FlagTplus'}
166 0 16 $this->{'IndTotCounts'}[$ind] > 1 ? :
171 16 16 unless $for_local
177 2 14 if scalar @{$this->{'IndObjs'};} == 0
190 2 0 unless (/^\s*(\w+)\s*=>\s*(\S*)\s*$/)
192 1 1 unless /=>/
193 0 2 if /^\s*([^\w]*?)\s*=>/
194 1 1 if /=>\s*\S\s*\S/
203 0 0 if keys %subst != 0
224 0 0 unless (defined $index)
236 0 16 $badflag ? :