| line |
true |
false |
branch |
|
20
|
2 |
62 |
if ($self->{'comment'}) |
|
24
|
44 |
20 |
if exists $self->{'parent'} |
|
50
|
0 |
26 |
unless (defined $val) |
|
57
|
57 |
21 |
unless @strings |
|
73
|
2 |
79 |
if ($self->{'comment'}) |
|
77
|
2 |
77 |
if ($self->{'cdata'}) |
|
81
|
8 |
69 |
unless (@{$self->{'contents'};}) |
|
83
|
0 |
8 |
$self->{'ns'} ? : |
|
87
|
1 |
68 |
$self->{'ns'} ? : |
|
91
|
48 |
52 |
if $c->isa('XML::API::Element') |
|
|
48 |
56 |
if (eval {
do {
not $c->inline if $c->isa('XML::API::Element')
}
}) { } |
|
|
3 |
53 |
elsif (eval {
do {
$c->isa('XML::API')
}
}) { } |
|
101
|
53 |
0 |
if defined $c |
|
105
|
28 |
41 |
if ($complex) |
|
108
|
1 |
68 |
$self->{'ns'} ? : |
|
116
|
0 |
1 |
if $self->{'comment'} |
|
117
|
0 |
1 |
if $self->{'cdata'} |
|
125
|
0 |
1 |
eval {
do {
$_->isa('XML::API')
}
} ? : |
|
|
0 |
1 |
eval {
do {
$_->isa('XML::API::Element')
}
} ? : |
|
129
|
0 |
1 |
$self->{'ns'} ? : |
|
|
0 |
1 |
$self->{'ns'} ? : |
|
154
|
0 |
0 |
if ($hash->{'Name'} eq '_xml_api_ignore') |
|
173
|
0 |
0 |
if $self->{'xml_api_ignore'} |
|
182
|
0 |
0 |
if ($hash->{'Name'} eq '_xml_api_ignore') |
|
229
|
0 |
16 |
if ($class ne 'XML::API') { } |
|
|
5 |
11 |
elsif ($self->{'doctype'}) { } |
|
230
|
0 |
0 |
if ($self->{'doctype'}) |
|
236
|
1 |
4 |
unless (eval "require $class;1;") |
|
284
|
4 |
54 |
if ($element eq $self->_root_element) |
|
295
|
6 |
36 |
if ($next) |
|
301
|
1 |
35 |
if (ref $arg eq 'HASH') { } |
|
|
6 |
29 |
elsif (defined $arg and $arg =~ /^-[^0-9\.]+/o) { } |
|
304
|
0 |
0 |
unless (defined $val) |
|
313
|
0 |
6 |
unless (defined $attrs->{$arg}) |
|
329
|
4 |
54 |
if ($element eq $self->_root_element) |
|
337
|
0 |
58 |
if $self->{'debug'} |
|
339
|
4 |
54 |
if ($self->{'langnext'}) |
|
342
|
1 |
57 |
if ($self->{'dirnext'}) |
|
347
|
44 |
14 |
if ($self->{'current'}) { } |
|
366
|
1 |
57 |
if ($self->{'_raw'}) { } |
|
374
|
0 |
58 |
if $self->{'debug'} |
|
384
|
0 |
107 |
unless ($self->{'current'}) |
|
389
|
0 |
78 |
unless defined $item |
|
390
|
1 |
77 |
if (eval {
do {
$item->isa('XML::API')
}
}) { } |
|
391
|
0 |
1 |
if (&refaddr($item) == &refaddr($self)) |
|
394
|
0 |
1 |
if (not $self->{'current'}) { } |
|
409
|
44 |
33 |
if (eval {
do {
$item->isa('XML::API::Element')
}
}) { } |
|
|
1 |
32 |
elsif (eval {
do {
$item->isa('XML::API::Cache')
}
}) { } |
|
430
|
0 |
4 |
unless defined $item |
|
431
|
0 |
4 |
if (ref $item and $item->isa('XML::API')) |
|
434
|
3 |
1 |
if ($self->{'current'}) { } |
|
448
|
0 |
46 |
if $self->{'debug'} |
|
450
|
0 |
46 |
unless ($self->{'current'}) |
|
455
|
46 |
0 |
if ($element eq $self->{'current'}{'element'}) { } |
|
456
|
39 |
7 |
if ($self->{'current'}->parent) { } |
|
458
|
0 |
39 |
if $self->{'debug'} |
|
491
|
23 |
37 |
if ($element =~ s/.*::(.+)_open$/$1/o) { } |
|
|
11 |
26 |
elsif ($element =~ s/.*::(.+)_close$/$1/o) { } |
|
|
1 |
25 |
elsif ($element =~ s/.*::(.+)_raw$/$1/o) { } |
|
494
|
0 |
23 |
if ($element =~ s/(.+)__(.+)/$2/o) |
|
515
|
0 |
25 |
unless $element |
|
517
|
0 |
25 |
if ($element =~ /^_/o) |
|
523
|
1 |
24 |
if ($element =~ s/(.+)__(.+)/$2/o) |
|
539
|
0 |
1 |
unless (ref $val) |
|
547
|
1 |
0 |
if (ref $val and ref $val eq 'ARRAY') { } |
|
553
|
0 |
1 |
if ($arg =~ s/^-(.+)/$1/o) { } |
|
|
0 |
1 |
elsif (ref $arg2 and ref $arg2 eq 'ARRAY') { } |
|
564
|
0 |
1 |
if @val |
|
572
|
0 |
1 |
if (ref $c and ref $c eq 'ARRAY') { } |
|
|
1 |
0 |
elsif (ref $c and ref $c eq 'HASH') { } |
|
611
|
0 |
0 |
if ($content =~ /\n/s) { } |
|
637
|
0 |
2 |
unless defined $_ and $_ ne '' |
|
662
|
0 |
0 |
unless defined $_ and $_ ne '' |
|
687
|
2 |
3 |
if (@_) |
|
689
|
0 |
2 |
if (not $attrs or ref $attrs ne 'HASH') |
|
700
|
0 |
0 |
if (@_) |
|
712
|
1 |
4 |
if ($self->{'has_root_element'} and not $self->_lang) { } |
|
714
|
0 |
1 |
if ($dir) |
|
720
|
1 |
3 |
if $dir |
|
731
|
7 |
1 |
if ($self->{'current'}) |
|
733
|
5 |
2 |
if exists $self->{'current'}{'attrs'}{'xml:lang'} |
|
738
|
1 |
2 |
if exists $e->{'attrs'}{'xml:lang'} |
|
741
|
0 |
2 |
if $self->{'langnext'} |
|
742
|
0 |
2 |
if $self->{'parent'} |
|
756
|
4 |
1 |
if ($self->{'current'}) |
|
758
|
1 |
3 |
if exists $self->{'current'}{'attrs'}{'dir'} |
|
763
|
0 |
0 |
if exists $e->{'attrs'}{'dir'} |
|
766
|
0 |
4 |
if $self->{'dirnext'} |
|
767
|
0 |
4 |
if $self->{'parent'} |
|
774
|
0 |
0 |
if (@_) |
|
783
|
0 |
0 |
if (@_) |
|
799
|
0 |
0 |
if (not defined $id or $id eq '') |
|
803
|
0 |
0 |
if (defined $self->{'ids'}{$id}) |
|
813
|
0 |
0 |
if (@_) |
|
815
|
0 |
0 |
unless (defined $id) |
|
819
|
0 |
0 |
if ($id->isa('XML::API::Element')) { } |
|
|
0 |
0 |
elsif (defined $self->{'ids'}{$id}) { } |
|
841
|
23 |
0 |
if (ref $self eq 'XML::API' or $self->{'has_root_element'}) |
|
843
|
5 |
18 |
if $self->_doctype |
|
848
|
0 |
24 |
$_->isa('XML::API') ? : |
|
852
|
0 |
23 |
if ($file) |
|
853
|
0 |
0 |
unless open FH, '>' . $file |
|
854
|
0 |
0 |
if ($self->_encoding eq 'UTF-8') |
|
871
|
1 |
0 |
if (ref $self eq 'XML::API' or $self->{'has_root_element'}) |
|
873
|
0 |
1 |
if $self->_doctype |
|
878
|
0 |
1 |
if ($file) |
|
879
|
0 |
0 |
unless open FH, '>' . $file |
|
880
|
0 |
0 |
if ($self->_encoding eq 'UTF-8') |
|
893
|
0 |
41 |
unless defined $data |
|
894
|
10 |
31 |
if ($data =~ /[\&\<\>\"(__AMP__)\']/o) |