| line |
true |
false |
branch |
|
29
|
1 |
3 |
if ($self->{'xml'}) { } |
|
40
|
3 |
0 |
if (scalar @{$self->{'tmp_code'};}) |
|
108
|
1 |
29 |
if ($self->{'attr_delimeter'} ne "\"" and $self->{'attr_delimeter'} ne "'") |
|
169
|
52 |
195 |
unless ($self->{'process'}) |
|
181
|
9 |
140 |
if ($self->{'raw_tag'}) { } |
|
187
|
87 |
53 |
if ($self->{'process'} and $pre_pre == 0) |
|
198
|
62 |
0 |
if ($string) |
|
199
|
9 |
53 |
if ($string =~ m[^/>$]ms) |
|
207
|
4 |
58 |
if ($self->{'comment_flag'} == 0 and scalar @{$self->{'tmp_comment_code'};}) { } |
|
220
|
4 |
0 |
unless ($self->{'non_indent'} or $pre) |
|
227
|
0 |
4 |
$pre ? : |
|
232
|
4 |
0 |
unless ($self->{'non_indent'} or $pre) |
|
239
|
58 |
0 |
unless ($self->{'non_indent'} or $pre) |
|
246
|
0 |
58 |
$pre ? : |
|
251
|
58 |
0 |
unless ($self->{'non_indent'} or $pre) |
|
273
|
47 |
0 |
unless ($self->{'non_indent'} or $pre) |
|
275
|
45 |
2 |
unless ($pre_pre) |
|
280
|
0 |
47 |
$pre ? : |
|
292
|
0 |
20 |
unless (@{$self->{'tmp_code'};}) |
|
297
|
0 |
20 |
if ($self->{'xml'} and not defined $value) |
|
303
|
20 |
0 |
if (defined $value) |
|
310
|
20 |
0 |
if (defined $attr[1]) |
|
326
|
10 |
52 |
if (scalar @{$self->{'tmp_code'};}) |
|
349
|
5 |
1 |
if (scalar @{$self->{'tmp_code'};}) |
|
357
|
1 |
5 |
if (join($EMPTY_STR, @cdata) =~ /]]>$/ms) |
|
373
|
1 |
4 |
$self->{'cdata_indent'} == 1 ? : |
|
388
|
1 |
11 |
if (substr($comments[$LAST_INDEX], $LAST_INDEX) eq '-') { } |
|
395
|
8 |
4 |
if (scalar @{$self->{'tmp_code'};}) { } |
|
415
|
20 |
2 |
if (scalar @{$self->{'tmp_code'};}) |
|
420
|
21 |
1 |
if (&none(sub {
$_ eq $self->{'printed_tags'}[0];
}
, @{$$self{"no_data_callback"};})) |
|
429
|
2 |
20 |
$pre ? : |
|
|
2 |
20 |
$pre ? : |
|
441
|
0 |
56 |
if ($self->{'xml'} and $printed ne $tag) |
|
446
|
23 |
33 |
if ($self->{'xml'} and !scalar(@{$self->{'no_simple'};}) || &none(sub {
$_ eq $tag;
}
, @{$$self{'no_simple'};})) { } |
|
450
|
12 |
11 |
if (scalar @{$self->{'tmp_code'};}) { } |
|
451
|
3 |
9 |
if (scalar @{$self->{'tmp_comment_code'};} and $self->{'comment_flag'} == 1) { } |
|
459
|
9 |
0 |
unless ($self->{'non_indent'} or $pre) |
|
469
|
6 |
27 |
if (scalar @{$self->{'tmp_code'};}) |
|
486
|
0 |
1 |
if (scalar @{$self->{'tmp_code'};}) |
|
491
|
0 |
1 |
if (ref $self->{'instruction'} eq 'CODE') { } |
|
513
|
6 |
5 |
if (scalar @{$self->{'tmp_code'};}) |