Branch Coverage

blib/lib/PDL/PP/CType.pm
Criterion Covered Total %
branch 12 50 24.0


line true false branch
15 89 0 if @_
21 0 151 if $str =~ s/^\$//
22 89 62 if ($str =~ s/^\s*(\w+)\s*$/$1/g)
27 62 0 if $str =~ /^\s*\*(.*)$/
28 0 0 if $str =~ /^\s*\(.*\)\s*$/
29 0 0 if $str =~ /^(.*)\[([^]]*)\]\s*$/
45 118 0 if ($type eq 'PTR') { }
0 0 elsif ($type eq 'ARR') { }
47 0 0 if ($opts->{'VarArrays2Ptrs'}) { }
54 0 146 if $opts->{'AddIndirect'}
63 7 0 unless @{$this->{'Chain'};}
66 0 0 if $this->{'Base'} =~ /^\s*char\s*$/ and @{$this->{'Chain'};} == 1
67 0 0 if $this->{'Base'} =~ /^\s*SV\s*$/
69 0 0 unless defined $code
74 0 0 if ($type eq 'PTR') { }
0 0 elsif ($type eq 'ARR') { }
77 0 0 if $this->is_array
96 0 7 if $this->{'Base'} =~ /^\s*SV\s*$/ and $single_ptr
97 0 7 if $this->{'Base'} =~ /^\s*char\s*$/ and $single_ptr
98 7 0 if not @{$this->{'Chain'};} or $this->{'Chain'}[0][0] eq "PTR"
99 0 0 if @{$this->{'Chain'};} > 1
114 0 0 if ($type eq 'PTR') { }
0 0 elsif ($type eq 'ARR') { }
116 0 0 if $this->is_array
128 0 10 if @{$self->{'Chain'};} and @{$self->{'Chain'}[-1];} and $self->{'Chain'}[-1][0] eq "ARR"