| line |
true |
false |
branch |
|
906
|
0 |
5 |
unless exists $args{'xmlns'} |
|
908
|
0 |
5 |
unless exists $args{'type'} |
|
910
|
0 |
5 |
unless exists $args{'functions'} |
|
916
|
0 |
5 |
if (exists $args{'tag'}) { } |
|
922
|
5 |
0 |
if $args{'type'} eq 'X' |
|
923
|
0 |
5 |
if $args{'type'} eq 'Query' |
|
935
|
0 |
29 |
unless exists $funcHash{'name'} |
|
940
|
1 |
28 |
if (not exists $funcHash{'set'} and exists $funcHash{'get'}) |
|
945
|
0 |
12 |
if (exists $funcHash{'type'} or exists $funcHash{'path'} or exists $funcHash{'child'} or exists $funcHash{'calls'}) |
|
951
|
2 |
21 |
if ($type eq 'child') { } |
|
957
|
0 |
0 |
if ($funcHash{$type}[$i] eq '__netjabber__:skip_xmlns') |
|
962
|
0 |
0 |
if ($funcHash{$type}[$i] eq '__netjabber__:specifyname') |
|
982
|
11 |
1 |
if (exists $funcHash{'hash'}) |
|
984
|
2 |
9 |
if $funcHash{'hash'} eq 'data' |
|
985
|
2 |
9 |
if $funcHash{'hash'} eq 'child-data' |
|
986
|
2 |
9 |
if $funcHash{'hash'} eq 'att' |
|
987
|
2 |
9 |
if $funcHash{'hash'} =~ /^att-(\S+)-(.+)$/ |
|
990
|
1 |
11 |
if ($type eq 'master') |
|
996
|
8 |
3 |
if ($type eq 'scalar') |
|
1002
|
2 |
1 |
if ($type eq 'flag') |
|
1009
|
1 |
0 |
if ($funcHash{'hash'} eq 'child-add' and exists $funcHash{'add'}) |
|
1042
|
0 |
0 |
unless defined $iq |
|
1079
|
0 |
0 |
exists $args{'timeout'} ? : |
|
1090
|
0 |
0 |
if ($args{'mode'} eq 'passthru') |
|
1098
|
0 |
0 |
if $args{'mode'} eq 'nonblock' |
|
1105
|
0 |
0 |
unless defined $iq |
|
1106
|
0 |
0 |
if ($iq->GetType eq 'error') |
|
1114
|
0 |
0 |
if (defined $query) { } |
|
1138
|
0 |
0 |
if ($item->DefinedCategory) { } |
|
1172
|
0 |
0 |
if ref $jid eq 'Net::Jabber::JID' |
|
1174
|
0 |
0 |
unless exists $$self{'BROWSEDB'}{$indexJID} |
|
1192
|
0 |
0 |
unless exists $args{'timeout'} |
|
1195
|
0 |
0 |
if ref $args{'jid'} eq 'Net::Jabber::JID' |
|
1197
|
0 |
0 |
if (exists $args{'refresh'} and $args{'refresh'} eq '1' or not exists $$self{'BROWSEDB'}{$indexJID}) |
|
1221
|
0 |
0 |
exists $args{'timeout'} ? : |
|
1232
|
0 |
0 |
if ($args{'mode'} eq 'passthru') |
|
1240
|
0 |
0 |
if $args{'mode'} eq 'nonblock' |
|
1247
|
0 |
0 |
unless defined $iq |
|
1248
|
0 |
0 |
if ($iq->GetType eq 'error') |
|
1256
|
0 |
0 |
if (defined $query) { } |
|
1285
|
0 |
0 |
if $host->DefinedHost |
|
1286
|
0 |
0 |
if $host->DefinedPort |
|
1287
|
0 |
0 |
if $host->DefinedZeroConf |
|
1308
|
0 |
0 |
exists $args{'timeout'} ? : |
|
1314
|
0 |
0 |
ref $args{'recipient'} eq 'Net::Jabber::JID' ? : |
|
1322
|
0 |
0 |
if ($args{'mode'} eq 'passthru') |
|
1330
|
0 |
0 |
if $args{'mode'} eq 'nonblock' |
|
1337
|
0 |
0 |
unless defined $iq |
|
1338
|
0 |
0 |
if ($iq->GetType eq 'error') |
|
1361
|
0 |
0 |
exists $args{'timeout'} ? : |
|
1372
|
0 |
0 |
exists $$host{'host'} ? : |
|
|
0 |
0 |
exists $$host{'port'} ? : |
|
|
0 |
0 |
exists $$host{'zeroconf'} ? : |
|
1383
|
0 |
0 |
if ($args{'mode'} eq 'passthru') |
|
1391
|
0 |
0 |
if $args{'mode'} eq 'nonblock' |
|
1398
|
0 |
0 |
unless defined $iq |
|
1399
|
0 |
0 |
if ($iq->GetType eq 'error') |
|
1407
|
0 |
0 |
if (defined $query) { } |
|
1430
|
0 |
0 |
exists $args{'timeout'} ? : |
|
1436
|
0 |
0 |
if exists $args{'node'} |
|
1442
|
0 |
0 |
if ($args{'mode'} eq 'passthru') |
|
1450
|
0 |
0 |
if $args{'mode'} eq 'nonblock' |
|
1457
|
0 |
0 |
unless defined $iq |
|
1458
|
0 |
0 |
if ($iq->GetType eq 'error') |
|
1463
|
0 |
0 |
unless $iq->DefinedQuery |
|
1514
|
0 |
0 |
exists $args{'timeout'} ? : |
|
1520
|
0 |
0 |
if exists $args{'node'} |
|
1526
|
0 |
0 |
if ($args{'mode'} eq 'passthru') |
|
1534
|
0 |
0 |
if $args{'mode'} eq 'nonblock' |
|
1541
|
0 |
0 |
unless defined $iq |
|
1542
|
0 |
0 |
if ($iq->GetType eq 'error') |
|
1550
|
0 |
0 |
if (defined $query) { } |
|
1596
|
0 |
0 |
exists $args{'timeout'} ? : |
|
1610
|
0 |
0 |
if ($args{'mode'} eq 'passthru') |
|
1618
|
0 |
0 |
if $args{'mode'} eq 'nonblock' |
|
1625
|
0 |
0 |
unless defined $iq |
|
1626
|
0 |
0 |
if ($iq->GetType eq 'error') |
|
1634
|
0 |
0 |
if (defined $query) { } |
|
1659
|
0 |
0 |
if exists $Net::Jabber::Query::TAGS{'http://jabber.org/protocol/feature-neg'} |
|
1704
|
0 |
0 |
if ($#options == -1) { } |
|
1732
|
0 |
0 |
exists $args{'timeout'} ? : |
|
1749
|
0 |
0 |
if exists $args{'desc'} |
|
1751
|
0 |
0 |
-B $args{'filename'} ? : |
|
1759
|
0 |
0 |
unless (exists $args{'skip_methods'}) |
|
1761
|
0 |
0 |
if ($#{$args{'methods'};} == -1) |
|
1776
|
0 |
0 |
if ($args{'mode'} eq 'passthru') |
|
1784
|
0 |
0 |
if $args{'mode'} eq 'nonblock' |
|
1791
|
0 |
0 |
unless defined $iq |
|
1792
|
0 |
0 |
if ($iq->GetType eq 'error') |
|
1800
|
0 |
0 |
if (defined $query) { } |
|
1827
|
0 |
0 |
exists $args{'timeout'} ? : |
|
1855
|
0 |
0 |
if ($#{$args{'methods'};} == -1) |
|
1869
|
0 |
0 |
if ($args{'mode'} eq 'passthru') |
|
1878
|
0 |
0 |
if $args{'mode'} eq 'nonblock' |
|
1885
|
0 |
0 |
unless defined $iq |
|
1886
|
0 |
0 |
if ($iq->GetType eq 'error') |
|
1894
|
0 |
0 |
if (defined $query) { } |
|
1927
|
0 |
0 |
if $file =~ /^\.\.?$/ |
|
1929
|
0 |
0 |
if (-d "$path/$file") { } |
|
1969
|
0 |
0 |
unless exists $args{'waitforid'} |
|
1971
|
0 |
0 |
if $waitforid |
|
1973
|
0 |
0 |
exists $args{'timeout'} ? : |
|
1976
|
0 |
0 |
if exists $args{'to'} |
|
1980
|
0 |
0 |
if ($args{'mode'} eq 'passthru') |
|
1988
|
0 |
0 |
if $args{'mode'} eq 'nonblock' |
|
1992
|
0 |
0 |
unless defined $iq |
|
1996
|
0 |
0 |
unless defined $last |
|
2013
|
0 |
0 |
unless exists $args{'ignoreactivity'} |
|
2057
|
0 |
0 |
if defined $to and $to ne '' |
|
2063
|
0 |
0 |
if $args{$var} eq '' |
|
2079
|
0 |
0 |
unless defined $iq |
|
2080
|
0 |
0 |
if $iq->GetType eq 'error' |
|
2099
|
0 |
0 |
if (defined $func) { } |
|
2123
|
0 |
0 |
exists $args{'timeout'} ? : |
|
2131
|
0 |
0 |
if ($args{'mode'} eq 'passthru') |
|
2139
|
0 |
0 |
if $args{'mode'} eq 'nonblock' |
|
2143
|
0 |
0 |
unless defined $iq |
|
2167
|
0 |
0 |
unless defined $iq |
|
2190
|
1 |
3 |
if ($args{'type'} eq 'methodCall') |
|
2196
|
3 |
1 |
if ($args{'type'} eq 'methodResponse') |
|
2201
|
1 |
3 |
if (exists $args{'faultcode'} or exists $args{'faultstring'}) { } |
|
|
3 |
0 |
elsif (exists $args{'params'}) { } |
|
2231
|
1 |
19 |
if (ref $value eq 'ARRAY') { } |
|
|
2 |
17 |
elsif (ref $value eq 'HASH') { } |
|
2249
|
6 |
11 |
if ($value =~ /^(int|i4|boolean|string|double|datetime|base64):/i) { } |
|
|
5 |
6 |
elsif ($value =~ /^[+-]?\d+$/) { } |
|
|
0 |
6 |
elsif ($value =~ /^(-?(?:\d+(?:\.\d*)?|\.\d+)|([+-]?)(?=\d|\.\d)\d*(\.\d*)?([Ee]([+-]?\d+))?)$/) { } |
|
2284
|
0 |
0 |
if $query->DefinedMethodCall |
|
2285
|
0 |
0 |
if $query->DefinedMethodResponse |
|
2287
|
0 |
0 |
if (defined $source) { } |
|
2289
|
0 |
0 |
if ($source->GetTag eq 'methodResponse' and $source->DefinedFault) |
|
2296
|
0 |
0 |
if ($source->DefinedParams) |
|
2326
|
0 |
0 |
if ($value->DefinedStruct) |
|
2332
|
0 |
0 |
if ($value->DefinedArray) |
|
2338
|
0 |
0 |
if $value->DefinedI4 |
|
2339
|
0 |
0 |
if $value->DefinedInt |
|
2340
|
0 |
0 |
if $value->DefinedBoolean |
|
2341
|
0 |
0 |
if $value->DefinedString |
|
2342
|
0 |
0 |
if $value->DefinedDouble |
|
2343
|
0 |
0 |
if $value->DefinedDateTime |
|
2344
|
0 |
0 |
if $value->DefinedBase64 |
|
2406
|
0 |
0 |
exists $args{'timeout'} ? : |
|
2412
|
0 |
0 |
if exists $args{'to'} |
|
2422
|
0 |
0 |
if ($args{'mode'} eq 'passthru') |
|
2430
|
0 |
0 |
if $args{'mode'} eq 'nonblock' |
|
2434
|
0 |
0 |
if defined $iq |
|
2440
|
0 |
0 |
unless defined $iq |
|
2441
|
0 |
0 |
if ($iq->GetType eq 'error') |
|
2489
|
0 |
0 |
if exists $args{'to'} |
|
2519
|
0 |
0 |
if defined $to and $to ne '' |
|
2525
|
0 |
0 |
if $args{$var} eq '' |
|
2551
|
0 |
0 |
unless exists $args{'waitforid'} |
|
2553
|
0 |
0 |
if $waitforid |
|
2555
|
0 |
0 |
exists $args{'timeout'} ? : |
|
2558
|
0 |
0 |
if exists $args{'to'} |
|
2562
|
0 |
0 |
if ($args{'mode'} eq 'passthru') |
|
2570
|
0 |
0 |
if $args{'mode'} eq 'nonblock' |
|
2574
|
0 |
0 |
unless defined $iq |
|
2578
|
0 |
0 |
unless defined $query |
|
2623
|
0 |
0 |
unless exists $args{'waitforid'} |
|
2625
|
0 |
0 |
if $waitforid |
|
2627
|
0 |
0 |
exists $args{'timeout'} ? : |
|
2630
|
0 |
0 |
if exists $args{'to'} |
|
2634
|
0 |
0 |
if ($args{'mode'} eq 'passthru') |
|
2642
|
0 |
0 |
if $args{'mode'} eq 'nonblock' |
|
2646
|
0 |
0 |
unless defined $iq |
|
2650
|
0 |
0 |
unless defined $query |
|
2696
|
0 |
1 |
if (exists $args{'password'} and $args{'password'} ne '') |
|
2701
|
1 |
0 |
if exists $args{'__netjabber__:test'} |
|
2731
|
0 |
0 |
if $field->DefinedType |
|
2733
|
0 |
0 |
if $field->DefinedLabel |
|
2735
|
0 |
0 |
if $field->DefinedDesc |
|
2737
|
0 |
0 |
if $field->DefinedVar |
|
2739
|
0 |
0 |
unless $field->DefinedVar |
|
2741
|
0 |
0 |
if ($field->DefinedValue) |
|
2743
|
0 |
0 |
if ($field->GetType eq 'list-multi') { } |
|
2855
|
0 |
0 |
unless ($query->DefinedMethodCall) |
|
2865
|
0 |
0 |
unless ($query->GetMethodCall->DefinedMethodName) |
|
2877
|
0 |
0 |
unless (exists $$self{'RPCCB'}{$methodName}) |
|
2891
|
0 |
0 |
if ($return[0] ne 'ok') |
|
3051
|
0 |
0 |
if ($fromJID->GetUserID eq '') { } |
|
|
0 |
0 |
elsif ($fromJID->GetResource eq '') { } |
|
3055
|
0 |
0 |
if $query->DefinedMessage |
|
3062
|
0 |
0 |
if $query->DefinedMessage |
|
3069
|
0 |
0 |
if $query->DefinedMessage |