| line |
true |
false |
branch |
|
28
|
0 |
0 |
unless $_[3] |
|
38
|
0 |
0 |
unless $_[3] |
|
50
|
111 |
25 |
unless @_ |
|
64
|
1 |
60 |
if $method eq 'DESTROY' |
|
77
|
58 |
2 |
if ($method =~ s/^as_// and grep {$_ eq $method;} @{$export_var;}) { } |
|
117
|
2 |
0 |
if ($SOAP::Constants::HAS_ENCODE) |
|
118
|
0 |
2 |
if (&Encode::is_utf8($value)) |
|
119
|
0 |
0 |
if ('Encode'->can('_utf8_off')) { } |
|
169
|
1 |
9 |
if ref $value |
|
180
|
1 |
4 |
if ref $value |
|
188
|
1 |
1 |
$_[1] ? : |
|
195
|
1 |
1 |
$value && $value ne 'false' ? : |
|
253
|
22 |
0 |
$_[1] ? : |
|
275
|
1 |
0 |
if (eval 'require Encode; 1') |
|
276
|
0 |
1 |
if (&Encode::is_utf8($value)) |
|
277
|
0 |
0 |
if ('Encode'->can('_utf8_off')) { } |
|
301
|
1 |
1 |
$value && $value ne 'false' ? : |
|
317
|
0 |
175 |
$_[1] =~ /:/ ? : |
|
|
0 |
2 |
defined $_[1] ? : |
|
|
175 |
2 |
$_[1] ? : |
|
345
|
0 |
0 |
defined $_[0] ? : |
|
376
|
11 |
16 |
if ($e) |
|
387
|
0 |
0 |
ref $_[0][2] ? : |
|
388
|
0 |
0 |
ref $_[0][2] ? : |
|
405
|
11 |
0 |
@_ ? : |
|
406
|
0 |
0 |
@_ ? : |
|
|
25 |
0 |
eval 'use bytes; 1' ? : |
|
416
|
0 |
24 |
unless ref $self and UNIVERSAL::isa($self, 'SOAP::Cloneable') |
|
421
|
18 |
181 |
ref $value && UNIVERSAL::isa($value, 'SOAP::Cloneable') ? : |
|
440
|
0 |
15 |
if ref $self |
|
449
|
0 |
84 |
unless ref $self |
|
453
|
71 |
13 |
unless @_ |
|
455
|
0 |
13 |
unless $_[0] =~ /^(\w+):/ |
|
464
|
13 |
0 |
unless ('Class::Inspector'->loaded("${protocol_class}::Client") and UNIVERSAL::can("${protocol_class}::Client", 'new')) |
|
468
|
0 |
13 |
if $@ =~ m[^Can\'t locate SOAP/Transport/] |
|
470
|
0 |
13 |
if $@ |
|
479
|
0 |
46 |
if $method eq 'DESTROY' |
|
499
|
0 |
0 |
unless (ref $self) |
|
505
|
0 |
0 |
if $^W and @_ & 1 |
|
511
|
0 |
0 |
if $self->can($method) |
|
528
|
0 |
0 |
UNIVERSAL::isa($_[0], 'SOAP::Fault') ? : |
|
531
|
0 |
0 |
if (@_) |
|
558
|
100 |
106 |
unless (ref $self) |
|
564
|
0 |
206 |
if $^W and @_ & 1 |
|
567
|
0 |
0 |
if $self->can($method) |
|
574
|
70 |
0 |
UNIVERSAL::isa($_[0], 'SOAP::Data') ? : |
|
|
227 |
70 |
ref $_[0] ? : |
|
575
|
99 |
198 |
if (@_) |
|
578
|
71 |
28 |
if ($name) |
|
580
|
71 |
0 |
if (not defined $uri) { } |
|
582
|
40 |
31 |
if defined $prefix |
|
589
|
50 |
49 |
if @_ |
|
596
|
0 |
0 |
UNIVERSAL::isa($_[0], 'SOAP::Data') ? : |
|
|
132 |
0 |
ref $_[0] ? : |
|
601
|
32 |
100 |
if (@_) |
|
603
|
0 |
32 |
if @_ |
|
610
|
0 |
0 |
UNIVERSAL::isa($_[0], 'SOAP::Data') ? : |
|
|
311 |
0 |
ref $_[0] ? : |
|
615
|
5 |
306 |
if (@_) |
|
617
|
0 |
5 |
if @_ |
|
620
|
0 |
306 |
if (not defined $$self{'_type'} and my(@types) = grep({/^\{$SOAP::Constants::NS_XSI_ALL}type$/o;} keys %{$$self{'_attr'};})) |
|
631
|
1 |
1 |
$method eq 'root' ? : |
|
634
|
2 |
0 |
UNIVERSAL::isa($_[0], 'SOAP::Data') ? : |
|
637
|
2 |
0 |
if (@_) |
|
638
|
2 |
0 |
shift() ? : |
|
639
|
1 |
1 |
if @_ |
|
642
|
0 |
0 |
if not defined $$self{$field} and defined $$self{'_attr'}{$attr} |
|
652
|
0 |
0 |
UNIVERSAL::isa($_[0], 'SOAP::Data') ? : |
|
655
|
0 |
0 |
if (@_) |
|
657
|
0 |
0 |
if @_ |
|
660
|
0 |
0 |
if not defined $$self{$field} and defined $$self{'_attr'}{$attr} |
|
668
|
0 |
0 |
UNIVERSAL::isa($_[0], 'SOAP::Data') ? : |
|
|
142 |
0 |
ref $_[0] ? : |
|
673
|
99 |
43 |
unless @_ |
|
675
|
0 |
43 |
if (scalar @_) |
|
682
|
0 |
0 |
UNIVERSAL::isa($_[0], 'SOAP::Data') ? : |
|
|
99 |
0 |
ref $_[0] ? : |
|
687
|
99 |
0 |
unless @_ |
|
689
|
0 |
0 |
if defined $uri and $^W and $uri =~ /::/ |
|
691
|
0 |
0 |
if (scalar @_) |
|
698
|
8 |
0 |
UNIVERSAL::isa($_[0], 'SOAP::Data') ? : |
|
|
91 |
8 |
ref $_[0] ? : |
|
708
|
20 |
0 |
UNIVERSAL::isa($_[0], 'SOAP::Data') ? : |
|
|
154 |
20 |
ref $_[0] ? : |
|
712
|
74 |
100 |
if (@_) { } |
|
717
|
100 |
0 |
wantarray ? : |
|
723
|
105 |
0 |
UNIVERSAL::isa($_[0], 'SOAP::Data') ? : |
|
726
|
99 |
6 |
@_ ? : |
|
779
|
158 |
25 |
if ref $self |
|
782
|
0 |
0 |
if $^W |
|
807
|
15 |
12 |
if $_[0] =~ /^([+-]?\d+)$/ and $1 <= 2147483647 |
|
810
|
2 |
10 |
if $_[0] =~ /^([+-]?\d+)$/ |
|
832
|
8 |
2 |
if not $_[0] =~ /^-?PT?$/ |
|
854
|
25 |
0 |
if $SOAP::Constants::PREFIX_ENV |
|
860
|
0 |
25 |
if $^W and @_ & 1 |
|
861
|
0 |
0 |
if $self->can($method) |
|
868
|
25 |
0 |
if (defined $lookup) |
|
878
|
2 |
1 |
unless ref $self |
|
879
|
3 |
0 |
if (@_) |
|
883
|
1 |
2 |
if ($p) { } |
|
|
2 |
0 |
elsif (not $p || ($prefix = $self->find_prefix($u))) { } |
|
902
|
1 |
13 |
unless ref $self |
|
903
|
14 |
0 |
if (@_) |
|
915
|
2 |
0 |
unless ref $self |
|
918
|
2 |
0 |
if (@_) { } |
|
928
|
0 |
26 |
unless ref $self |
|
930
|
14 |
12 |
if (@_) |
|
932
|
13 |
1 |
if ($$self{'_use_default_ns'}) { } |
|
947
|
0 |
1 |
unless ref $self |
|
948
|
1 |
0 |
unless @_ |
|
954
|
0 |
0 |
if ($new_style eq '') { } |
|
966
|
0 |
1 |
unless @_ |
|
967
|
1 |
0 |
if $$self{'_soapversion'} eq 'SOAP::Lite'->soapversion |
|
973
|
0 |
0 |
$SOAP::Constants::PREFIX_ENV ? : |
|
984
|
0 |
25 |
unless @_ |
|
987
|
25 |
0 |
if ($_[0]) |
|
988
|
50 |
50 |
if /XMLSchema/ |
|
989
|
0 |
25 |
if @schema > 1 |
|
990
|
0 |
25 |
if @schema != 1 |
|
998
|
0 |
25 |
if (my $schema = $$self{'_xmlschema'}) |
|
1004
|
25 |
0 |
if (my $schema = $$self{'_xmlschema'} = shift @schema) |
|
1010
|
25 |
0 |
exists $SOAP::Constants::XML_SCHEMAS{$$self{'_xmlschema'}} ? : |
|
1021
|
42 |
0 |
unless @_ |
|
1028
|
3 |
0 |
unless @_ |
|
1038
|
150 |
2 |
if (not exists $$self{'_seen'}{$id}) { } |
|
1063
|
0 |
52 |
unless my $seen = $self->seen->{shift() or return} |
|
1064
|
1 |
51 |
if $$seen{'id'} |
|
1074
|
2 |
0 |
if ($$self{'_seen'}{$id}{'multiref'}) { } |
|
1084
|
0 |
21 |
if $self->multirefinplace |
|
1088
|
1 |
148 |
if $$seen{$_}{'multiref'} |
|
1096
|
51 |
1 |
unless defined $type |
|
1099
|
0 |
1 |
unless (defined $prefix) |
|
1101
|
0 |
0 |
$simple ? : |
|
|
0 |
0 |
unless exists $self->maptype->{$name} |
|
1105
|
0 |
0 |
$self->maptype->{$name} ? : |
|
1116
|
24 |
152 |
unless ref $object |
|
1127
|
2 |
150 |
if (++$SOAP::Serializer::objectstack{$id} > 1) |
|
1132
|
1 |
151 |
if $SOAP::Serializer::objectstack{$id} > 2 |
|
1134
|
99 |
52 |
if (UNIVERSAL::isa($object, 'SOAP::Data')) |
|
1136
|
28 |
71 |
unless defined $object->SOAP::Data::name |
|
1145
|
0 |
99 |
unless @realvalues |
|
1150
|
11 |
95 |
unless defined $_ |
|
1154
|
101 |
5 |
unless $self->can($method) and $self->$method($_, $name || gen_name(), $object->SOAP::Data::type, $attr) or $self->typecast($_, $name || gen_name(), $object->SOAP::Data::type, $attr) |
|
1158
|
99 |
0 |
if @values |
|
1159
|
99 |
0 |
wantarray ? : |
|
1164
|
0 |
52 |
unless ($class =~ /^(?:SCALAR|ARRAY|HASH|REF)$/o) |
|
1169
|
0 |
0 |
unless defined $name |
|
1170
|
0 |
0 |
if not defined $type and $self->autotype |
|
1173
|
0 |
0 |
if ($self->can($method)) |
|
1176
|
0 |
0 |
if ref $encoded |
|
1181
|
50 |
2 |
if (UNIVERSAL::isa($object, 'REF') or UNIVERSAL::isa($object, 'SCALAR')) { } |
|
|
1 |
1 |
elsif (UNIVERSAL::isa($object, 'ARRAY')) { } |
|
|
1 |
0 |
elsif (UNIVERSAL::isa($object, 'HASH')) { } |
|
1186
|
0 |
1 |
$self->encodingStyle eq '' || $self->isa('XMLRPC::Serializer') ? : |
|
1206
|
11 |
78 |
unless defined $value |
|
1209
|
50 |
28 |
if ref $value |
|
1212
|
28 |
0 |
if ($$self{'_autotype'}) |
|
1218
|
28 |
189 |
if $$lookup{$_}[1]($value) |
|
1235
|
0 |
0 |
unless ($self->autotype) |
|
1245
|
0 |
0 |
keys %types > 1 || $arraytype eq '-' ? : |
|
1248
|
0 |
0 |
unless defined $type |
|
1263
|
1 |
0 |
if ($self->autotype) { } |
|
1276
|
0 |
1 |
keys %types > 1 || $arraytype eq '-' ? : |
|
1280
|
1 |
0 |
unless defined $type |
|
1306
|
0 |
0 |
ref $_ ? : |
|
1313
|
0 |
0 |
if ($literal) { } |
|
1329
|
0 |
1 |
if ($self->autotype and grep {not /$SOAP::Constants::ELMASK/o;} keys %$hash) |
|
1330
|
0 |
0 |
$name ? : |
|
|
0 |
0 |
if $^W |
|
1334
|
0 |
1 |
if $self->autotype and not defined $type and exists $self->maptype->{'SOAPStruct'} |
|
1338
|
1 |
0 |
$self->autotype ? : |
|
1345
|
0 |
0 |
unless UNIVERSAL::isa($value, 'ARRAY') |
|
1354
|
0 |
0 |
unless UNIVERSAL::isa($value, 'HASH') |
|
1384
|
81 |
25 |
if ref $value |
|
1385
|
20 |
5 |
if $self->autotype and not defined $type |
|
1386
|
0 |
5 |
defined $type && $type gt '' ? : |
|
1395
|
9 |
59 |
unless $prefix |
|
1396
|
50 |
18 |
if $ns |
|
1401
|
3 |
2 |
exists $$self{'_namespaces'}{$ns} ? : |
|
1410
|
56 |
43 |
unless (defined $xmlns or defined $prefix) |
|
1411
|
9 |
47 |
unless $self->use_default_ns |
|
1415
|
0 |
43 |
if not defined $prefix and $xmlns gt '' |
|
1416
|
0 |
43 |
if defined $xmlns and $xmlns eq '' or defined $prefix and $prefix eq '' |
|
1420
|
0 |
43 |
if defined $xmlns |
|
1421
|
43 |
0 |
if $prefix |
|
1423
|
9 |
34 |
unless $self->use_default_ns |
|
1433
|
0 |
21 |
unless $long =~ /^\{(.*)\}(.+)$/ |
|
1442
|
0 |
21 |
$2 eq 'type' || $2 eq 'arrayType' ? : |
|
|
21 |
13 |
/^\{(.*)\}(.+)$/ ? : |
|
1458
|
0 |
81 |
$readable ? : |
|
1461
|
0 |
81 |
if exists $$attrs{'_xml'} and delete $$attrs{'_xml'} |
|
1463
|
0 |
81 |
unless $tag =~ /^$SOAP::Constants::NSMASK$/o |
|
1466
|
0 |
81 |
unless $tag =~ /^(?![Xx][Mm][Ll])/ |
|
1469
|
0 |
81 |
$readable ? : |
|
1470
|
0 |
81 |
$readable ? : |
|
1472
|
22 |
59 |
if ($$self{'_level'} == 1) |
|
1477
|
22 |
0 |
if defined $self->encoding |
|
1479
|
0 |
22 |
if $readable |
|
1480
|
0 |
22 |
if $readable |
|
1483
|
149 |
51 |
if $_ and defined $$attrs{$_} |
|
1487
|
69 |
12 |
if ($value gt '') { } |
|
1488
|
51 |
18 |
$value =~ /^\s*
|
|
1502
|
11 |
70 |
unless defined $values |
|
1505
|
18 |
52 |
unless ref $values eq 'ARRAY' |
|
1508
|
1 |
51 |
if $self->is_href($id, delete $$attrs{'_id'}) |
|
1512
|
1 |
50 |
if (defined $id and $$self{'_seen'}{$id}{'multiref'}) { } |
|
1531
|
0 |
12 |
$method_is_data ? : |
|
1544
|
0 |
12 |
$method_is_data ? : |
|
1548
|
0 |
12 |
unless defined $uri |
|
1550
|
0 |
0 |
!$prefix || $prefix eq $self->envprefix ? : |
|
|
0 |
12 |
unless defined $uri |
|
1565
|
0 |
3 |
unless @_ == 1 |
|
1572
|
2 |
1 |
if ref $$encoded[2] |
|
1583
|
0 |
31 |
if (defined $_ and ref $_ and UNIVERSAL::isa($_, 'SOAP::Header')) { } |
|
|
0 |
31 |
elsif (defined $_ and ref $_ and $self->context and $self->context->packager->is_supported_part($_)) { } |
|
1599
|
0 |
19 |
@header ? : |
|
1601
|
17 |
2 |
if ($type eq 'method' or $type eq 'response') { } |
|
|
2 |
0 |
elsif ($type eq 'fault') { } |
|
|
0 |
0 |
elsif ($type eq 'freeform') { } |
|
|
0 |
0 |
elsif (not defined $type) { } |
|
1607
|
6 |
11 |
@parameters ? : |
|
1608
|
0 |
17 |
if (not defined $method) { } |
|
|
0 |
17 |
elsif (UNIVERSAL::isa($method, 'SOAP::Data')) { } |
|
|
14 |
3 |
elsif ($self->use_default_ns) { } |
|
1613
|
13 |
1 |
if ($$self{'_ns_uri'}) { } |
|
1631
|
3 |
0 |
if $$self{'_ns_prefix'} |
|
1640
|
6 |
11 |
$parameters ? : |
|
|
17 |
0 |
if $body |
|
1654
|
1 |
1 |
defined $parameters[3] ? : |
|
|
1 |
1 |
defined $parameters[2] ? : |
|
1656
|
0 |
1 |
ref $detail ? : |
|
1680
|
0 |
19 |
$header ? : |
|
|
19 |
0 |
$body ? : |
|
1694
|
6 |
13 |
if ref $parameters |
|
1702
|
19 |
0 |
if ref $$encoded[2][-1][2] |
|
1707
|
13 |
6 |
if ($self->context and $self->context->packager->parts) |
|
1738
|
0 |
18 |
if (my $parser = shift()) |
|
1749
|
18 |
21 |
if ref $self |
|
1772
|
0 |
0 |
if ($@) |
|
1810
|
0 |
0 |
defined $$done[3] ? : |
|
|
0 |
0 |
unless ref $$done[2] |
|
1814
|
0 |
0 |
@{$$self{'_values'};} ? : |
|
1842
|
0 |
0 |
unless ref $self |
|
1843
|
0 |
0 |
if @_ |
|
1858
|
0 |
0 |
unless ref $self |
|
1859
|
0 |
0 |
if @_ |
|
1860
|
0 |
0 |
defined $self->fault ? : |
|
1888
|
0 |
0 |
if (@_) { } |
|
1904
|
0 |
0 |
if @_ |
|
1905
|
0 |
0 |
wantarray ? : |
|
1911
|
0 |
0 |
if @_ |
|
1914
|
0 |
0 |
@{$$self{'_current'};} ? : |
|
|
0 |
0 |
wantarray ? : |
|
1920
|
0 |
0 |
wantarray ? : |
|
1922
|
0 |
0 |
ref $header ? : |
|
1929
|
0 |
0 |
if @_ |
|
1932
|
0 |
0 |
@{$$self{'_current'};} ? : |
|
|
0 |
0 |
wantarray ? : |
|
1940
|
0 |
0 |
if @_ |
|
1943
|
0 |
0 |
@{$$self{'_current'};} ? : |
|
|
0 |
0 |
wantarray ? : |
|
1965
|
0 |
0 |
if (defined o_child($node)) { } |
|
1986
|
0 |
0 |
$path =~ s[^/][] || !@{$$self{'_current'};} ? : |
|
1994
|
0 |
0 |
unless $itself =~ /^\d+$/ |
|
1996
|
0 |
0 |
if ($path and substr($path, 0, 1) eq '{') |
|
2000
|
0 |
0 |
if defined $path |
|
2002
|
0 |
0 |
unless defined $path |
|
2004
|
0 |
0 |
if (not $op) { } |
|
|
0 |
0 |
elsif ($op eq '=' or $op eq '!') { } |
|
2011
|
0 |
0 |
if defined $path |
|
2014
|
0 |
0 |
unless ($anynode) |
|
2015
|
0 |
0 |
if (@path) { } |
|
2016
|
0 |
0 |
if defined $num and not $numok or not defined $num || $nameok |
|
2019
|
0 |
0 |
if defined $num and $numok or not defined $num and $nameok |
|
2025
|
0 |
0 |
if $anynode |
|
2026
|
0 |
0 |
$anynode ? : |
|
2034
|
0 |
0 |
unless ref $pointer eq 'ARRAY' |
|
2039
|
0 |
0 |
unless not ref o_lattr($_) && exists o_lattr($_)->{"{$SOAP::Constants::NS_ENC}root"} |
|
2069
|
33 |
21 |
if ref $self |
|
2092
|
11 |
8 |
unless $_[1] =~ /^\s*
|
|
2098
|
0 |
0 |
if ($location) |
|
2101
|
0 |
0 |
unless $uri->scheme |
|
2120
|
0 |
0 |
lc $type eq 'text/xml' && !$SOAP::Constants::DO_NOT_PROCESS_XML_IN_MIME ? : |
|
2125
|
0 |
0 |
if $id and $id =~ /^<([^>]+)>$/ |
|
2126
|
0 |
0 |
if $location |
|
2135
|
18 |
1 |
$self->is_xml($_[0]) ? : |
|
2156
|
0 |
0 |
if (keys %{$self->ids;}) { } |
|
2175
|
0 |
0 |
if exists $$attrs{'id'} |
|
2176
|
0 |
0 |
unless ref $children |
|
2200
|
0 |
0 |
unless /^($SOAP::Constants::NSMASK?):($SOAP::Constants::NSMASK)$/ |
|
2204
|
0 |
0 |
unless $1 =~ /^[xX][mM][lL]/ or $SOAP::Deserializer::uris{$1} and do {
$attrs{SOAP::Utils::longname($SOAP::Deserializer::uris{$1}, $2)} = do {
my $value = $attrs{$_};
$2 ne 'type' && $2 ne 'arrayType' ? $value : SOAP::Utils::longname($value =~ /^($SOAP::Constants::NSMASK?):($SOAP::Constants::NSMASK(?:\[[\d,]*\])*)/ ? ($SOAP::Deserializer::uris{$1} || die("Unresolved prefix '$1' for attribute value '${value}'\n"), $2) : ($SOAP::Deserializer::uris{''} || die("Unspecified namespace for type '${value}'\n"), $value))
};
1
} |
|
2207
|
0 |
0 |
$value =~ /^($SOAP::Constants::NSMASK?):($SOAP::Constants::NSMASK(?:\[[\d,]*\])*)/ ? : |
|
|
0 |
0 |
$2 ne 'type' && $2 ne 'arrayType' ? : |
|
2220
|
0 |
0 |
$name =~ s/^($SOAP::Constants::NSMASK?):// ? : |
|
2221
|
0 |
0 |
defined $SOAP::Deserializer::uris{''} ? : |
|
|
0 |
0 |
$ns ? : |
|
2228
|
0 |
0 |
unless ref $children |
|
2241
|
0 |
0 |
if (++$SOAP::Deserializer::level == 1) |
|
2243
|
0 |
0 |
if $envelope eq 'Envelope' and $namespace |
|
2246
|
0 |
0 |
if (exists $$attrs{"{$SOAP::Constants::NS_ENV}encodingStyle"}) |
|
2253
|
0 |
0 |
if (defined $encodingStyle and length $encodingStyle) |
|
2257
|
0 |
0 |
if (exists $styles{$e}) |
|
2261
|
0 |
0 |
unless $found or 'SOAP::Lite'->soapversion == 1.1 and $encodingStyle =~ /(?:^|\b)$SOAP::Constants::NS_ENC/ |
|
2268
|
0 |
0 |
$name =~ /^\{$SOAP::Constants::NS_ENC\}/ ? : |
|
2273
|
0 |
0 |
if $type |
|
2277
|
0 |
0 |
unless (exists $_class_loaded{$schemaclass}) |
|
2279
|
0 |
0 |
unless ('Class::Inspector'->loaded($schemaclass)) |
|
2280
|
0 |
0 |
unless ref $schemaclass |
|
2286
|
0 |
0 |
if $schema and $schema =~ /XMLSchema/ |
|
2289
|
0 |
0 |
if $schemaclass->can('anyTypeValue') and $schemaclass->anyTypeValue eq $class |
|
2294
|
0 |
0 |
if $class |
|
2297
|
0 |
0 |
if (defined $id and exists $self->hrefs->{$id}) { } |
|
|
0 |
0 |
elsif (exists $$attrs{'href'}) { } |
|
2303
|
0 |
0 |
if defined $type and $type eq 'cid:' |
|
2305
|
0 |
0 |
unless $type |
|
2306
|
0 |
0 |
if exists $self->hrefs->{$id} |
|
2312
|
0 |
0 |
if (ref $ids ne 'HASH') |
|
2316
|
0 |
0 |
if (exists $self->ids->{$id}) { } |
|
2326
|
0 |
0 |
if (/^$SOAP::Constants::NS_XSI_NILS$/) |
|
|
0 |
0 |
if grep {if (/^$SOAP::Constants::NS_XSI_NILS$/) {
my $class = $self->xmlschemas->{$1 or $2};
die @$ unless eval "require $class";
$class->as_undef($$attrs{$_});
} ;} keys %$attrs |
|
2328
|
0 |
0 |
unless eval "require $class" |
|
2335
|
0 |
0 |
if defined $res |
|
2338
|
0 |
0 |
if (exists $$attrs{"{$SOAP::Constants::NS_ENC}arrayType"}) { } |
|
|
0 |
0 |
elsif ($name =~ /^\{$SOAP::Constants::NS_ENC\}Struct$/ or not $schemaclass->can($method) and ref $children || defined $class && $value =~ /^\s*$/) { } |
|
2340
|
0 |
0 |
if defined $id |
|
2344
|
0 |
0 |
unless my($type, $multisize) = $$attrs{"{$SOAP::Constants::NS_ENC}arrayType"} =~ /^(.+)\[(\d*(?:,\d+)*)\](?:\[(?:\d+(?:,\d+)*)\])*$/ |
|
2348
|
0 |
0 |
unless $_ |
|
2356
|
0 |
0 |
if ($multisize =~ /,/) { } |
|
2359
|
0 |
0 |
unless $children |
|
2364
|
0 |
0 |
unless $children |
|
2368
|
0 |
0 |
if (ref $children and exists SOAP::Utils::o_lattr($$children[0])->{"{$SOAP::Constants::NS_ENC}position"}) |
|
2372
|
0 |
0 |
unless my($position) = SOAP::Utils::o_lattr($$children[$pos])->{"{$SOAP::Constants::NS_ENC}position"} =~ /^\[(\d+)\]$/ |
|
2381
|
0 |
0 |
if exists $$attrs{"{$SOAP::Constants::NS_ENC}offset"} |
|
2383
|
0 |
0 |
if $offset |
|
2385
|
0 |
0 |
if $multisize and $size < @$res |
|
2389
|
0 |
0 |
if defined $dimensions[0] and @$res < $dimensions[0] |
|
2391
|
0 |
0 |
defined $class && $class ne 'Array' ? : |
|
2398
|
0 |
0 |
if defined $id |
|
2403
|
0 |
0 |
unless $children |
|
2408
|
0 |
0 |
if (not $child_count_of{$child_name}) { } |
|
|
0 |
0 |
elsif ($child_count_of{$child_name} == 1) { } |
|
2424
|
0 |
0 |
defined $class && $class ne 'SOAPStruct' ? : |
|
2428
|
0 |
0 |
if (my $method_ref = $schemaclass->can($method)) { } |
|
2433
|
0 |
0 |
$class ? : |
|
|
0 |
0 |
unless defined $res |
|
2436
|
0 |
0 |
if defined $id |
|
2446
|
0 |
0 |
unless @sizes |
|
2486
|
0 |
0 |
$_[5] ? : |
|
2488
|
0 |
0 |
ref $_[0] ? : |
|
2512
|
0 |
0 |
unless %alive |
|
2513
|
0 |
0 |
ref $_ && exists $alive{ref $_} ? : |
|
2524
|
0 |
0 |
unless ref $object and $alive{ref $object} and exists $$object{'id'} |
|
2527
|
0 |
0 |
unless ref $$reference[0] |
|
2535
|
0 |
0 |
unless %alive |
|
2536
|
0 |
0 |
ref $_ && exists $alive{ref $_} && exists $$_{'id'} ? : |
|
2548
|
0 |
0 |
unless (UNIVERSAL::isa($_[-1], 'SOAP::SOM')) |
|
2549
|
0 |
0 |
if $^W |
|
2555
|
0 |
0 |
ref $_[0] eq 'ARRAY' ? : |
|
2559
|
0 |
0 |
$byname ? : |
|
2565
|
0 |
0 |
unless (UNIVERSAL::isa($_[-1], 'SOAP::SOM')) |
|
2566
|
0 |
0 |
if $^W |
|
2570
|
0 |
0 |
ref $_[0] eq 'ARRAY' ? : |
|
2596
|
12 |
1 |
if ref $self |
|
2598
|
1 |
0 |
unless (ref $self) |
|
2604
|
0 |
0 |
$class->can($method) ? : |
|
2620
|
0 |
6 |
ref $params eq 'ARRAY' ? : |
|
2625
|
0 |
1 |
if $^W and @_ & 1 |
|
2631
|
0 |
0 |
ref $params eq 'ARRAY' ? : |
|
|
0 |
0 |
$self->can($method) ? : |
|
2656
|
3 |
3 |
if (@_) { } |
|
2673
|
1 |
3 |
@_ ? : |
|
2685
|
0 |
2 |
unless @_ |
|
2691
|
0 |
2 |
if $@ |
|
2692
|
0 |
2 |
unless ref $$self{$field} eq 'CODE' |
|
2709
|
1 |
0 |
@_ ? : |
|
2716
|
0 |
0 |
unless ref $self |
|
2718
|
0 |
0 |
@_ ? : |
|
2724
|
0 |
0 |
unless ref $self |
|
2727
|
0 |
0 |
@_ ? : |
|
2739
|
0 |
0 |
unless $method_name |
|
2746
|
0 |
0 |
unless $method_name =~ /^\w+$/ |
|
2750
|
0 |
0 |
if (defined($class = $self->dispatch_with->{$method_uri} || $self->dispatch_with->{$action or ''} || (defined $action && $action =~ /^"(.+)"$/ ? $self->dispatch_with->{$1} : undef))) { } |
|
2756
|
0 |
0 |
if ref $class |
|
2760
|
0 |
0 |
unless defined($class = 'URI'->new($method_uri)->path) |
|
2763
|
0 |
0 |
unless $class =~ /^(\w[\w:]*)$/ |
|
2767
|
0 |
0 |
if ref $_ eq $class |
|
2768
|
0 |
0 |
if ref $_ |
|
2798
|
0 |
0 |
unless ($class eq 'main' or $class->can($method_name) or exists $INC{join '/', split(/::/, $class . '.pm', 0)}) |
|
2802
|
0 |
0 |
$static ? : |
|
|
0 |
0 |
if not ref $_ |
|
2804
|
0 |
0 |
if $@ |
|
2805
|
0 |
0 |
unless $static |
|
2809
|
0 |
0 |
unless $static or grep {/^$class$/;} $self->dispatched |
|
2817
|
0 |
1 |
unless ref $self |
|
2832
|
0 |
1 |
if $@ and $@ =~ /^$SOAP::Constants::WRONG_VERSION/ |
|
2837
|
1 |
0 |
if $@ |
|
2839
|
0 |
0 |
unless $request->match($som->envelope) |
|
2842
|
0 |
0 |
if $self->deserializer->xmlschema |
|
2846
|
0 |
0 |
if $_->mustUnderstand |
|
2851
|
0 |
0 |
if not $SOAP::Constants::DO_NOT_CHECK_MUSTUNDERSTAND and grep {not $_->actor or $_->actor eq $SOAP::Constants::NEXT_ACTOR if $_->mustUnderstand;} $request->dataof($som->headers) |
|
2855
|
0 |
0 |
unless $request->match($som->method) |
|
2867
|
0 |
0 |
if UNIVERSAL::isa($class, 'SOAP::Server::Parameters') |
|
2875
|
0 |
0 |
defined $parameters[0] && ref $parameters[0] && UNIVERSAL::isa($parameters[0], $class) ? : |
|
2877
|
0 |
0 |
ref $class ? : |
|
2896
|
0 |
0 |
$@ =~ /^Can\'t locate object method "$method_name"/ ? : |
|
|
0 |
0 |
ref $@ ? : |
|
|
0 |
0 |
if $@ |
|
2911
|
0 |
1 |
unless defined wantarray |
|
2914
|
0 |
1 |
unless $@ |
|
2917
|
1 |
0 |
unless ref $@ |
|
2920
|
0 |
0 |
if UNIVERSAL::isa($@, 'SOAP::Fault') |
|
2956
|
0 |
0 |
if $caller =~ /eval/ |
|
2967
|
0 |
0 |
if (ref $_ eq 'CODE') { } |
|
2976
|
0 |
0 |
unless $all or $pack->can($_) |
|
2977
|
0 |
0 |
$all ? : |
|
|
0 |
0 |
$all ? : |
|
|
0 |
0 |
$minus ? : |
|
2997
|
0 |
1 |
if exists $_[0]->attr->{$method} |
|
2999
|
0 |
0 |
if ref $_ and UNIVERSAL::isa($_, 'SOAP::Custom::XML::Data') |
|
3003
|
0 |
1 |
wantarray ? : |
|
3011
|
0 |
0 |
if $method eq 'DESTROY' |
|
3029
|
0 |
0 |
if exists $$attrs{'href'} |
|
3031
|
0 |
0 |
ref $children && @$children ? : |
|
3056
|
0 |
0 |
unless (ref $self) |
|
3066
|
0 |
0 |
@_ ? : |
|
3078
|
0 |
0 |
unless $_->location |
|
3080
|
0 |
0 |
if ($SOAP::Schema::WSDL::imported{$location}++) |
|
3081
|
0 |
0 |
if $^W |
|
3090
|
0 |
0 |
$root->SOAP::Data::name eq 'schema' ? : |
|
|
0 |
0 |
$root->SOAP::Data::name eq 'definitions' ? : |
|
3091
|
0 |
0 |
unless $s->types |
|
3104
|
0 |
0 |
if (defined $element->complexType) { } |
|
|
0 |
0 |
elsif ($element->simpleType) { } |
|
3106
|
0 |
0 |
if (defined $element->complexType->sequence) |
|
3133
|
0 |
0 |
unless @services |
|
3144
|
0 |
0 |
if $service and $service ne $name |
|
3147
|
0 |
0 |
if $port and $port ne $_->name |
|
3149
|
0 |
0 |
ref $_->address ? : |
|
3152
|
0 |
0 |
unless grep {$_->uri eq 'http://schemas.xmlsoap.org/wsdl/soap/';} $_->binding |
|
3153
|
0 |
0 |
unless $_->name eq $binding |
|
3165
|
0 |
0 |
unless $_->name eq $porttype |
|
3167
|
0 |
0 |
unless $_->name eq $opername |
|
3170
|
0 |
0 |
unless $msg->name eq $inputmessage |
|
3171
|
0 |
0 |
if ($invocationStyle eq 'document' and $encodingStyle eq 'literal') { } |
|
3177
|
0 |
0 |
unless $element->name eq $input_name |
|
3220
|
0 |
0 |
if ref $self |
|
3221
|
0 |
0 |
unless (ref $self) |
|
3232
|
0 |
0 |
if $^W and @_ & 1 |
|
3236
|
0 |
0 |
if $self->can($method) |
|
3254
|
0 |
0 |
@_ ? : |
|
3270
|
0 |
0 |
unless open CACHE, ">$filename" |
|
3278
|
0 |
0 |
unless $self->services |
|
3280
|
0 |
0 |
if ($self->cache_dir) { } |
|
3284
|
0 |
0 |
unless eof CACHE |
|
3286
|
0 |
0 |
if (@stat) { } |
|
3289
|
0 |
0 |
if ($ttl > 0 and $cache_lived > $ttl) |
|
3298
|
0 |
0 |
unless eval "require $_" |
|
3301
|
0 |
0 |
unless eval $self->generate_stub($_) |
|
3310
|
0 |
0 |
if $ENV{'HTTP_proxy'} |
|
3313
|
0 |
0 |
if $ENV{'HTTP_proxy_user'} and $ENV{'HTTP_proxy_pass'} |
|
3317
|
0 |
0 |
$resp->is_success ? : |
|
3332
|
0 |
0 |
if $schema_url |
|
3342
|
0 |
0 |
unless ref $_ |
|
3395
|
0 |
0 |
if defined $ns and $ns eq 'xmlns' |
|
3456
|
0 |
0 |
if $method eq 'DESTROY' |
|
3458
|
0 |
0 |
ref $_[0] && UNIVERSAL::isa($_[0], 'SOAP::Lite') ? : |
|
3465
|
0 |
0 |
$package eq 'main' ? : |
|
|
0 |
0 |
$package eq 'SOAP' ? : |
|
|
0 |
0 |
ref $_[0] && UNIVERSAL::isa($_[0], 'SOAP::Lite') ? : |
|
3479
|
0 |
0 |
if @_ and not ref $_[0] and $_[0] eq $pack || $_[0] eq 'SOAP' or ref $_[0] and UNIVERSAL::isa($_[0], 'SOAP::Lite') |
|
3487
|
0 |
0 |
wantarray ? : |
|
|
0 |
0 |
UNIVERSAL::isa($som, 'SOAP::SOM') ? : |
|
3512
|
0 |
0 |
@_ > 1 ? : |
|
3534
|
26 |
25 |
unless my $version = shift() |
|
3537
|
0 |
25 |
unless exists $SOAP::Constants::SOAP_VERSIONS{$version} |
|
3541
|
0 |
25 |
unless defined $version and defined(my $def = $SOAP::Constants::SOAP_VERSIONS{$version}) |
|
3562
|
0 |
44 |
if defined $_[0] and $_[0] =~ /^\d/ |
|
3568
|
0 |
7 |
UNIVERSAL::isa($_[0], 'ARRAY') ? : |
|
|
7 |
1 |
if @_ and $command ne 'autodispatch' |
|
3572
|
1 |
7 |
if ($command eq 'autodispatch' or $command eq 'dispatch_from') { } |
|
|
0 |
7 |
elsif ($command eq 'service') { } |
|
|
0 |
7 |
elsif ($command eq 'debug' or $command eq 'trace') { } |
|
|
0 |
7 |
elsif ($command eq 'import') { } |
|
3575
|
1 |
0 |
$command eq 'autodispatch' ? : |
|
3581
|
0 |
0 |
\&{*$sub;} eq \&{*SOAP::AUTOLOAD;} ? : |
|
|
0 |
1 |
defined &{*$sub;} ? : |
|
3593
|
0 |
0 |
@parameters ? : |
|
3598
|
0 |
0 |
@parameters ? : |
|
|
0 |
0 |
if $package |
|
3601
|
0 |
7 |
if $^W and not @parameters & 1 |
|
3611
|
189 |
19 |
if ref $self |
|
3612
|
19 |
0 |
unless (ref $self) |
|
3623
|
1 |
0 |
$_[0]->transport->is_success ? : |
|
|
0 |
1 |
ref $_[1] ? : |
|
3624
|
5 |
14 |
ref $soap eq $class ? : |
|
3630
|
0 |
19 |
if $^W and @_ & 1 |
|
3634
|
0 |
3 |
ref $params eq 'ARRAY' ? : |
|
|
3 |
0 |
$self->can($method) ? : |
|
3656
|
0 |
0 |
if (@_) { } |
|
3661
|
0 |
0 |
unless (defined $$self{'_schema'}) |
|
3674
|
0 |
52 |
if (@_) { } |
|
3700
|
55 |
35 |
unless @_ |
|
3706
|
0 |
35 |
if $@ |
|
3707
|
0 |
35 |
unless ref $$self{$field} eq 'CODE' |
|
3718
|
13 |
24 |
@_ ? : |
|
3730
|
13 |
1 |
@_ ? : |
|
3738
|
0 |
0 |
@_ ? : |
|
3752
|
0 |
0 |
unless @_ |
|
3756
|
0 |
0 |
if keys %services > 1 |
|
3764
|
0 |
11 |
if $method eq 'DESTROY' |
|
3766
|
0 |
11 |
unless ref $_[0] |
|
3772
|
0 |
0 |
wantarray ? : |
|
|
0 |
11 |
$self->autoresult && UNIVERSAL::isa($som, 'SOAP::SOM') ? : |
|
3783
|
0 |
12 |
unless defined $self->proxy and UNIVERSAL::isa($self->proxy, 'SOAP::Client') |
|
3798
|
0 |
12 |
@{$self->packager->parts;} ? : |
|
3801
|
0 |
12 |
if $self->outputxml |
|
3803
|
12 |
0 |
if $response |
|
3806
|
1 |
0 |
if (not $self->transport->is_success or $@ or UNIVERSAL::isa($result, 'SOAP::SOM') and $result->fault) |
|
3819
|
0 |
0 |
unless $response |
|
3822
|
0 |
0 |
if (UNIVERSAL::isa($result, 'SOAP::SOM') and $result->paramsout || $result->headers and $serializer->signature) |
|
3829
|
0 |
0 |
if (exists $signatures{$signature}) |
|
3841
|
0 |
0 |
UNIVERSAL::isa($_[$param], 'SCALAR') ? : |
|
|
0 |
0 |
UNIVERSAL::isa($_[$param], 'HASH') ? : |
|
|
0 |
0 |
UNIVERSAL::isa($_[$param], 'ARRAY') ? : |
|
|
0 |
0 |
UNIVERSAL::isa($_[$param], 'SOAP::Data') ? : |
|
3884
|
0 |
0 |
unless $class =~ /^(\w[\w:]*)$/ |