| line |
true |
false |
branch |
|
248
|
0 |
15 |
if defined $result |
|
260
|
15 |
11 |
if ("@_" ne '') { } |
|
262
|
0 |
15 |
if ($_[0]->isa('Net::XMPP::Stanza')) { } |
|
|
3 |
12 |
elsif (ref $_[0] eq '') { } |
|
351
|
24 |
25 |
unless defined $keepXMLNS |
|
355
|
0 |
49 |
if exists $$self{'SKIPXMLNS'} and $keepXMLNS == 0 |
|
365
|
19 |
30 |
if (defined $node->get_attrib('xmlns') and $keepXMLNS == 0) |
|
367
|
9 |
10 |
if $self->_check_skip_xmlns($node->get_attrib('xmlns')) |
|
371
|
9 |
40 |
if $remove_ns == 1 |
|
374
|
6 |
43 |
if exists $$self{'RAWXML'} and $#{$$self{'RAWXML'};} > -1 |
|
392
|
0 |
9 |
unless exists $Net::XMPP::Namespaces::NS{$xmlns} |
|
394
|
9 |
0 |
unless (defined $tag) |
|
397
|
9 |
0 |
if exists $Net::XMPP::Namespaces::NS{$xmlns} |
|
437
|
1 |
0 |
if not defined $xmlns or $xmlns eq '' or $$self{'CHILDREN'}[$index]->GetXMLNS eq $xmlns |
|
458
|
0 |
0 |
unless exists $Net::XMPP::Namespaces::NS{$xmlns} |
|
460
|
0 |
0 |
unless (defined $tag) |
|
463
|
0 |
0 |
if exists $Net::XMPP::Namespaces::NS{$xmlns} |
|
514
|
3 |
2 |
unless (exists $$self{'RAWXML'}) |
|
553
|
0 |
591 |
if $Net::XMPP::Stanza::AUTOLOAD =~ /::DESTROY$/ |
|
557
|
0 |
591 |
unless defined $call |
|
558
|
0 |
591 |
unless defined $var |
|
568
|
591 |
0 |
if defined $XPathArgs |
|
592
|
178 |
413 |
if defined $xmlns |
|
599
|
0 |
591 |
unless defined $funcs |
|
606
|
197 |
394 |
exists $$funcs{$var}{'type'} ? : |
|
611
|
578 |
13 |
exists $$funcs{$var}{'path'} ? : |
|
616
|
0 |
591 |
if $type eq 'raw' |
|
623
|
13 |
578 |
if ($type eq 'master' or ref $type eq 'ARRAY' and $$type[0] eq 'master') { } |
|
|
33 |
545 |
elsif (exists $$funcs{$var}{'child'}) { } |
|
626
|
0 |
13 |
if ($call eq 'Get') { } |
|
631
|
0 |
0 |
exists $$funcs{$func}{'type'} ? : |
|
636
|
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' |
|
659
|
4 |
29 |
if (exists $$child{'ns'}) |
|
664
|
12 |
12 |
if exists $$addFuncs{$_}{'type'} |
|
672
|
0 |
4 |
if ($#calls > 0) |
|
706
|
0 |
591 |
unless defined $coreFuncs |
|
709
|
178 |
413 |
if defined $xmlns and exists $Net::XMPP::Namespaces::NS{$xmlns} |
|
714
|
591 |
591 |
if (exists $$set{$var}) |
|
716
|
197 |
394 |
exists $$set{$var}{'type'} ? : |
|
722
|
13 |
578 |
if $type eq 'master' |
|
723
|
33 |
558 |
if $type eq 'child' |
|
724
|
4 |
587 |
if exists $$set{$var}{'calls'} |
|
729
|
591 |
643 |
if ($callName eq $call) |
|
741
|
0 |
591 |
unless (defined $funcs) |
|
763
|
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') { } |
|
794
|
0 |
210 |
if ($type eq 'master') |
|
802
|
0 |
0 |
if ($defined) |
|
807
|
0 |
0 |
if ($#values > 0) { } |
|
854
|
133 |
77 |
if ($type eq 'scalar' or $type eq 'timestamp') |
|
856
|
2 |
131 |
if $#nodes == -1 |
|
863
|
60 |
17 |
if ($type eq 'jid') |
|
865
|
0 |
60 |
if $#nodes == -1 |
|
866
|
24 |
36 |
if defined $arg0 and $arg0 eq 'jid' |
|
874
|
0 |
17 |
if ($type eq 'flag') |
|
882
|
3 |
14 |
if ($type eq 'array') |
|
884
|
2 |
1 |
if wantarray |
|
891
|
0 |
14 |
if ($type eq 'raw') |
|
895
|
0 |
0 |
if $#{$$self{'RAWXML'};} > -1 |
|
908
|
14 |
0 |
if ($type eq 'child' or $type eq 'children' or $type eq 'node') |
|
911
|
1 |
13 |
if exists $$childtype{'ns'} |
|
918
|
9 |
6 |
if not defined $xmlns or $xmlns eq '' or $child->GetTree(1)->get_attrib('xmlns') eq $xmlns |
|
926
|
0 |
0 |
unless defined $node->get_attrib('xmlns') |
|
930
|
0 |
0 |
if not defined $xmlns or $xmlns eq '' or $node->get_attrib('xmlns') eq $xmlns |
|
937
|
1 |
13 |
if exists $$childtype{'child_index'} |
|
938
|
13 |
0 |
if wantarray |
|
968
|
13 |
108 |
if ($type eq 'master') |
|
977
|
45 |
70 |
if (exists $args{lc $func}) { } |
|
|
0 |
70 |
elsif ($subType eq 'all') { } |
|
996
|
0 |
108 |
if ($type eq 'raw') |
|
1007
|
0 |
108 |
if ($subType ne '' and exists $$self{'CUSTOMSET'}{$subType}) |
|
1014
|
0 |
108 |
if ($type eq 'timestamp') |
|
1016
|
0 |
0 |
unless defined $value |
|
1017
|
0 |
0 |
if ($value eq '') |
|
1030
|
2 |
106 |
if ($type eq 'array') |
|
1032
|
1 |
1 |
if (ref $value eq 'ARRAY') |
|
1048
|
0 |
109 |
unless defined $val or $type eq 'flag' |
|
1050
|
0 |
109 |
if (ref $val ne '' and $val->isa('Net::XMPP::JID')) |
|
1069
|
0 |
3 |
if ($type eq 'scalar' or $type eq 'jid' or $type eq 'timestamp') |
|
1072
|
0 |
42 |
if $childPath ne '' |
|
1076
|
36 |
6 |
if ($#nodes == -1) { } |
|
1078
|
36 |
0 |
if ($childPath eq '') { } |
|
1094
|
3 |
42 |
if ($type eq 'array') |
|
1099
|
0 |
45 |
if ($type eq 'flag') |
|
1105
|
0 |
45 |
unless $childPath eq '' |
|
1113
|
70 |
39 |
if ($piece =~ /^\@(.+)$/) { } |
|
|
39 |
0 |
elsif ($piece eq 'text()') { } |
|
1141
|
12 |
221 |
if defined $ns |
|
1148
|
0 |
233 |
if ($type eq 'raw') |
|
1150
|
0 |
0 |
if ($#{$$self{'RAWXML'};} > -1) |
|
1163
|
0 |
100 |
if (not @nodes and $type eq 'child' || $type eq 'children' || $type eq 'node') |
|
1165
|
0 |
16 |
if (ref $childtype eq 'HASH' and exists $$childtype{'ns'}) |
|
1171
|
12 |
221 |
if defined $ns |
|
1176
|
7 |
29 |
if (defined $ns and $packet->GetXMLNS eq $ns) { } |
|
|
4 |
34 |
elsif (not defined $ns and $type =~ /child/) { } |
|
1214
|
0 |
3 |
if (exists $$childtype{'specify_name'}) |
|
1216
|
0 |
0 |
if ($#_ > -1 and ($#_ / 2) =~ /^\d+$/) { } |
|
1230
|
3 |
0 |
if defined $master |
|
1232
|
0 |
3 |
if exists $$childtype{'skip_xmlns'} |
|
1262
|
12 |
12 |
if $nodePath ne '' |
|
1266
|
15 |
9 |
if ($xpath =~ /\@(\S+)/) |
|
1271
|
12 |
3 |
if ($nodePath eq '') { } |
|
1291
|
0 |
9 |
if ($type eq 'child') |
|
1297
|
0 |
0 |
if $child->GetXMLNS eq $$childtype{'ns'} |
|
1317
|
0 |
588 |
if (ref $type eq 'ARRAY') |
|
1319
|
0 |
0 |
if ($$type[0] eq 'special') { } |
|
|
0 |
0 |
elsif ($$type[0] eq 'master') { } |
|
1348
|
12 |
0 |
if defined $$self{'TREE'}->get_attrib('xmlns') |
|
1365
|
0 |
12 |
if ($#xTrees > -1) |
|
1369
|
0 |
0 |
if (exists $Net::XMPP::Namespaces::NS{$xTrees[0]->get_attrib('xmlns')}) |
|
1396
|
9 |
10 |
if $xmlns =~ /^$skipns/ |