| line |
true |
false |
branch |
|
238
|
0 |
15 |
if defined $result |
|
250
|
15 |
11 |
if ("@_" ne '') { } |
|
252
|
0 |
15 |
if ($_[0]->isa('Net::XMPP3::Stanza')) { } |
|
|
3 |
12 |
elsif (ref $_[0] eq '') { } |
|
341
|
24 |
25 |
unless defined $keepXMLNS |
|
345
|
0 |
49 |
if exists $$self{'SKIPXMLNS'} and $keepXMLNS == 0 |
|
355
|
19 |
30 |
if (defined $node->get_attrib('xmlns') and $keepXMLNS == 0) |
|
357
|
9 |
10 |
if $self->_check_skip_xmlns($node->get_attrib('xmlns')) |
|
361
|
9 |
40 |
if $remove_ns == 1 |
|
364
|
6 |
43 |
if exists $$self{'RAWXML'} and $#{$$self{'RAWXML'};} > -1 |
|
382
|
0 |
9 |
unless exists $Net::XMPP3::Namespaces::NS{$xmlns} |
|
384
|
9 |
0 |
unless (defined $tag) |
|
387
|
9 |
0 |
if exists $Net::XMPP3::Namespaces::NS{$xmlns} |
|
427
|
1 |
0 |
if not defined $xmlns or $xmlns eq '' or $$self{'CHILDREN'}[$index]->GetXMLNS eq $xmlns |
|
448
|
0 |
0 |
unless exists $Net::XMPP3::Namespaces::NS{$xmlns} |
|
450
|
0 |
0 |
unless (defined $tag) |
|
453
|
0 |
0 |
if exists $Net::XMPP3::Namespaces::NS{$xmlns} |
|
504
|
3 |
2 |
unless (exists $$self{'RAWXML'}) |
|
543
|
0 |
591 |
if $Net::XMPP3::Stanza::AUTOLOAD =~ /::DESTROY$/ |
|
547
|
0 |
591 |
unless defined $call |
|
548
|
0 |
591 |
unless defined $var |
|
558
|
591 |
0 |
if defined $XPathArgs |
|
582
|
178 |
413 |
if defined $xmlns |
|
589
|
0 |
591 |
unless defined $funcs |
|
596
|
197 |
394 |
exists $$funcs{$var}{'type'} ? : |
|
601
|
578 |
13 |
exists $$funcs{$var}{'path'} ? : |
|
606
|
0 |
591 |
if $type eq 'raw' |
|
613
|
13 |
578 |
if ($type eq 'master' or ref $type eq 'ARRAY' and $$type[0] eq 'master') { } |
|
|
33 |
545 |
elsif (exists $$funcs{$var}{'child'}) { } |
|
616
|
0 |
13 |
if ($call eq 'Get') { } |
|
621
|
0 |
0 |
exists $$funcs{$func}{'type'} ? : |
|
626
|
0 |
0 |
if not defined $funcType or $funcType eq 'scalar' or $funcType eq 'jid' or $funcType eq 'array' or $funcType eq 'flag' or $funcType eq 'timestamp' or ref $funcType eq 'ARRAY' |
|
649
|
4 |
29 |
if (exists $$child{'ns'}) |
|
654
|
12 |
12 |
if exists $$addFuncs{$_}{'type'} |
|
662
|
0 |
4 |
if ($#calls > 0) |
|
696
|
0 |
591 |
unless defined $coreFuncs |
|
699
|
178 |
413 |
if defined $xmlns and exists $Net::XMPP3::Namespaces::NS{$xmlns} |
|
704
|
591 |
591 |
if (exists $$set{$var}) |
|
706
|
197 |
394 |
exists $$set{$var}{'type'} ? : |
|
712
|
13 |
578 |
if $type eq 'master' |
|
713
|
33 |
558 |
if $type eq 'child' |
|
714
|
4 |
587 |
if exists $$set{$var}{'calls'} |
|
719
|
591 |
643 |
if ($callName eq $call) |
|
731
|
0 |
591 |
unless (defined $funcs) |
|
753
|
210 |
381 |
if ($call eq 'Get') { } |
|
|
121 |
260 |
elsif ($call eq 'Set') { } |
|
|
233 |
27 |
elsif ($call eq 'Defined') { } |
|
|
3 |
24 |
elsif ($call eq 'Add') { } |
|
|
24 |
0 |
elsif ($call eq 'Remove') { } |
|
784
|
0 |
210 |
if ($type eq 'master') |
|
792
|
0 |
0 |
if ($defined) |
|
797
|
0 |
0 |
if ($#values > 0) { } |
|
844
|
133 |
77 |
if ($type eq 'scalar' or $type eq 'timestamp') |
|
846
|
2 |
131 |
if $#nodes == -1 |
|
853
|
60 |
17 |
if ($type eq 'jid') |
|
855
|
0 |
60 |
if $#nodes == -1 |
|
856
|
24 |
36 |
if defined $arg0 and $arg0 eq 'jid' |
|
864
|
0 |
17 |
if ($type eq 'flag') |
|
872
|
3 |
14 |
if ($type eq 'array') |
|
874
|
2 |
1 |
if wantarray |
|
881
|
0 |
14 |
if ($type eq 'raw') |
|
885
|
0 |
0 |
if $#{$$self{'RAWXML'};} > -1 |
|
898
|
14 |
0 |
if ($type eq 'child' or $type eq 'children' or $type eq 'node') |
|
901
|
1 |
13 |
if exists $$childtype{'ns'} |
|
908
|
9 |
6 |
if not defined $xmlns or $xmlns eq '' or $child->GetTree(1)->get_attrib('xmlns') eq $xmlns |
|
916
|
0 |
0 |
unless defined $node->get_attrib('xmlns') |
|
920
|
0 |
0 |
if not defined $xmlns or $xmlns eq '' or $node->get_attrib('xmlns') eq $xmlns |
|
927
|
1 |
13 |
if exists $$childtype{'child_index'} |
|
928
|
13 |
0 |
if wantarray |
|
958
|
13 |
108 |
if ($type eq 'master') |
|
967
|
45 |
70 |
if (exists $args{lc $func}) { } |
|
|
0 |
70 |
elsif ($subType eq 'all') { } |
|
986
|
0 |
108 |
if ($type eq 'raw') |
|
997
|
0 |
108 |
if ($subType ne '' and exists $$self{'CUSTOMSET'}{$subType}) |
|
1004
|
0 |
108 |
if ($type eq 'timestamp') |
|
1006
|
0 |
0 |
unless defined $value |
|
1007
|
0 |
0 |
if ($value eq '') |
|
1020
|
2 |
106 |
if ($type eq 'array') |
|
1022
|
1 |
1 |
if (ref $value eq 'ARRAY') |
|
1038
|
0 |
109 |
unless defined $val or $type eq 'flag' |
|
1040
|
0 |
109 |
if (ref $val ne '' and $val->isa('Net::XMPP3::JID')) |
|
1059
|
0 |
3 |
if ($type eq 'scalar' or $type eq 'jid' or $type eq 'timestamp') |
|
1062
|
0 |
42 |
if $childPath ne '' |
|
1066
|
36 |
6 |
if ($#nodes == -1) { } |
|
1068
|
36 |
0 |
if ($childPath eq '') { } |
|
1084
|
3 |
42 |
if ($type eq 'array') |
|
1089
|
0 |
45 |
if ($type eq 'flag') |
|
1095
|
0 |
45 |
unless $childPath eq '' |
|
1103
|
70 |
39 |
if ($piece =~ /^\@(.+)$/) { } |
|
|
39 |
0 |
elsif ($piece eq 'text()') { } |
|
1131
|
12 |
221 |
if defined $ns |
|
1138
|
0 |
233 |
if ($type eq 'raw') |
|
1140
|
0 |
0 |
if ($#{$$self{'RAWXML'};} > -1) |
|
1153
|
0 |
100 |
if (not @nodes and $type eq 'child' || $type eq 'children' || $type eq 'node') |
|
1155
|
0 |
16 |
if (ref $childtype eq 'HASH' and exists $$childtype{'ns'}) |
|
1161
|
12 |
221 |
if defined $ns |
|
1166
|
7 |
29 |
if (defined $ns and $packet->GetXMLNS eq $ns) { } |
|
|
4 |
34 |
elsif (not defined $ns and $type =~ /child/) { } |
|
1204
|
0 |
3 |
if (exists $$childtype{'specify_name'}) |
|
1206
|
0 |
0 |
if ($#_ > -1 and ($#_ / 2) =~ /^\d+$/) { } |
|
1220
|
3 |
0 |
if defined $master |
|
1222
|
0 |
3 |
if exists $$childtype{'skip_xmlns'} |
|
1252
|
12 |
12 |
if $nodePath ne '' |
|
1256
|
15 |
9 |
if ($xpath =~ /\@(\S+)/) |
|
1261
|
12 |
3 |
if ($nodePath eq '') { } |
|
1281
|
0 |
9 |
if ($type eq 'child') |
|
1287
|
0 |
0 |
if $child->GetXMLNS eq $$childtype{'ns'} |
|
1307
|
0 |
588 |
if (ref $type eq 'ARRAY') |
|
1309
|
0 |
0 |
if ($$type[0] eq 'special') { } |
|
|
0 |
0 |
elsif ($$type[0] eq 'master') { } |
|
1338
|
12 |
0 |
if defined $$self{'TREE'}->get_attrib('xmlns') |
|
1355
|
0 |
12 |
if ($#xTrees > -1) |
|
1359
|
0 |
0 |
if (exists $Net::XMPP3::Namespaces::NS{$xTrees[0]->get_attrib('xmlns')}) |
|
1386
|
9 |
10 |
if $xmlns =~ /^$skipns/ |