Branch Coverage

blib/lib/Tags/Output/Raw.pm
Criterion Covered Total %
branch 51 52 98.0


line true false branch
25 1 4 if ($self->{'xml'}) { }
36 3 1 if (scalar @{$self->{'tmp_code'};})
77 1 47 if ($self->{'attr_delimeter'} ne "\"" and $self->{'attr_delimeter'} ne "'")
132 4 79 if ($pre and not $pre_pre)
137 3 80 if ($self->{'comment_flag'} == 0 and scalar @{$self->{'tmp_comment_code'};}) { }
163 1 28 unless (@{$self->{'tmp_code'};})
168 0 28 if ($self->{'xml'} and not defined $value)
174 27 1 if (defined $value)
181 27 1 if (defined $attr[1])
198 15 69 if (scalar @{$self->{'tmp_code'};})
223 3 1 if (scalar @{$self->{'tmp_code'};})
231 1 3 if (join($EMPTY_STR, @cdata) =~ /]]>$/ms)
253 1 8 if (substr($comments[$LAST_INDEX], $LAST_INDEX) eq '-') { }
261 5 4 if (scalar @{$self->{'tmp_code'};}) { }
278 32 2 if (scalar @{$self->{'tmp_code'};})
283 33 1 if (&none(sub { $_ eq $self->{'printed_tags'}[0]; } , @{$$self{"no_data_callback"};}))
297 48 30 if ($self->{'xml'})
299 1 47 if (not defined $printed) { }
1 46 elsif ($printed ne $tag) { }
308 45 31 if ($self->{'xml'} and !scalar(@{$self->{'no_simple'};}) || &none(sub { $_ eq $tag; } , @{$$self{'no_simple'};})) { }
311 13 32 if (scalar @{$self->{'tmp_code'};}) { }
312 2 11 if (scalar @{$self->{'tmp_comment_code'};} and $self->{'comment_flag'} == 1) { }
326 10 21 if (scalar @{$self->{'tmp_code'};})
341 1 2 if (scalar @{$self->{'tmp_code'};})
347 2 1 if ($code)
360 6 5 if (scalar @{$self->{'tmp_code'};})