Branch Coverage

blib/lib/Devel/Tokenizer/C.pm
Criterion Covered Total %
branch 79 86 91.8


line true false branch
45 1 747 unless exists $DEF{$_}
46 131 2 if (exists $opt{'TokenFunc'})
47 1 130 unless ref $opt{'TokenFunc'} eq 'CODE'
57 0 132 if ($self{'StringLength'} eq '' and $self{'Strategy'} ne 'ordered')
66 65026 12 ref $_[0] eq 'ARRAY' ? :
68 32522 32519 $self->{'CaseSensitive'} ? :
70 4 4 $self->{'__tcheck__'}{$tok} eq ($pre || '') ? :
8 65033 if exists $self->{'__tcheck__'}{$tok}
75 516 64525 if $len > $self->{'__maxlen__'}
87 97 34 if ($self->{'StringLength'}) { }
99 193 1537 unless $tokens[$len]
110 97 0 if $unk
127 513 1024 if $self->{'Strategy'} eq 'ordered'
130 16256 16256 $self->{'CaseSensitive'} ? :
139 512 512 if ($self->{'Strategy'} eq 'wide') { }
512 0 elsif ($self->{'Strategy'} eq 'narrow') { }
155 0 65027 unless $self->{'Comments'}
163 47831 47829 defined $self->{'UnknownCode'} ? :
174 1 97541 unless %$t
176 65027 32514 if (keys %$t == 1)
181 144 64883 if ($level > length $token) { }
190 230368 207027 defined $order ? :
194 16113 48770 if (defined $self->{'TokenEnd'} and not $self->{'StringLength'})
196 15713 400 if $cmp
200 64561 322 if $cmp
202 64561 322 $cmp ? :
212 75232 98724 defined $order ? :
213 0 173956 if $c eq '' and not defined $self->{'TokenEnd'}
215 86804 87008 $self->{'CaseSensitive'} || !($c =~ /^[a-zA-Z]$/) ? :
173812 144 $c ne '' ? :
218 14272 18242 defined $order ? :
223 29330 3184 if (keys %tok > 1 or not $self->{'MergeSwitches'}) { }
224 1672 27658 if (@{$self->{'__backup__'};})
240 1672 1512 unless @{$self->{'__backup__'};}
248 63457 32514 if $nlflag
250 12737 68183 if ($pre_flag == 0 and @pre == 1 and $pre[0])
255 92787 3184 if (keys %tok > 1 or not $self->{'MergeSwitches'}) { }
256 46995 45792 $self->{'CaseSensitive'} || !($c =~ /^'[a-zA-Z]'$/) ? :
267 12737 83234 if ($clear_pre_flag)
268 12737 0 $self->{'Comments'} ? :
276 29330 3184 if (keys %tok > 1 or not $self->{'MergeSwitches'}) { }
279 29330 0 if $unk
315 222224 218355 $self->{'CaseSensitive'} || !($c =~ /^'[a-zA-Z]'$/) ? :