line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
# Copyrights 2010-2015 by [Mark Overmeer]. |
2
|
|
|
|
|
|
|
# For other contributors see ChangeLog. |
3
|
|
|
|
|
|
|
# See the manual pages for details on the licensing terms. |
4
|
|
|
|
|
|
|
# Pod stripped from pm file by OODoc 2.01. |
5
|
1
|
|
|
1
|
|
846
|
use warnings; |
|
1
|
|
|
|
|
11
|
|
|
1
|
|
|
|
|
35
|
|
6
|
1
|
|
|
1
|
|
4
|
use strict; |
|
1
|
|
|
|
|
0
|
|
|
1
|
|
|
|
|
35
|
|
7
|
|
|
|
|
|
|
|
8
|
|
|
|
|
|
|
package XML::Compile::WSA::Util; |
9
|
1
|
|
|
1
|
|
2
|
use vars '$VERSION'; |
|
1
|
|
|
|
|
1
|
|
|
1
|
|
|
|
|
38
|
|
10
|
|
|
|
|
|
|
$VERSION = '0.94'; |
11
|
|
|
|
|
|
|
|
12
|
1
|
|
|
1
|
|
3
|
use base 'Exporter'; |
|
1
|
|
|
|
|
1
|
|
|
1
|
|
|
|
|
180
|
|
13
|
|
|
|
|
|
|
|
14
|
|
|
|
|
|
|
my @wsa09 = qw/WSA09 WSA09FAULT WSA09ROLE_ANON/; |
15
|
|
|
|
|
|
|
my @wsa10 = qw/WSA10 WSA10FAULT WSA10ADDR_ANON WSA10ADDR_NONE |
16
|
|
|
|
|
|
|
WSA10REL_REPLY WSA10REL_UNSPEC WSA10MODULE WSA10SOAP_FAULT/; |
17
|
|
|
|
|
|
|
my @wsdl11 = qw/WSDL11WSAW/; |
18
|
|
|
|
|
|
|
my @wsdl12 = (); # don't know (yet) |
19
|
|
|
|
|
|
|
my @soap11 = (); |
20
|
|
|
|
|
|
|
my @soap12 = qw/SOAP12FEAT_DEST SOAP12FEAT_SE SOAP12FEAT_RE SOAP12FEAT_FE |
21
|
|
|
|
|
|
|
SOAP12FEAT_ACT SOAP12FEAT_ID SOAP12FEAT_REL SOAP12FEAT_REF/; |
22
|
|
|
|
|
|
|
|
23
|
|
|
|
|
|
|
our @EXPORT_OK = (@wsa09, @wsa10, @wsdl11, @wsdl12, @soap11, @soap12); |
24
|
|
|
|
|
|
|
our %EXPORT_TAGS = |
25
|
|
|
|
|
|
|
( wsa09 => \@wsa09 |
26
|
|
|
|
|
|
|
, wsa10 => \@wsa10 |
27
|
|
|
|
|
|
|
, wsdl11 => \@wsdl11 |
28
|
|
|
|
|
|
|
, wsdl12 => \@wsdl12 |
29
|
|
|
|
|
|
|
, soap11 => \@soap11 |
30
|
|
|
|
|
|
|
, soap12 => \@soap12 |
31
|
|
|
|
|
|
|
); |
32
|
|
|
|
|
|
|
|
33
|
|
|
|
|
|
|
|
34
|
|
|
|
|
|
|
use constant |
35
|
1
|
|
|
|
|
163
|
{ WSA09 => 'http://schemas.xmlsoap.org/ws/2004/08/addressing' |
36
|
|
|
|
|
|
|
, WSA10 => 'http://www.w3.org/2005/08/addressing' |
37
|
1
|
|
|
1
|
|
7
|
}; |
|
1
|
|
|
|
|
2
|
|
38
|
|
|
|
|
|
|
|
39
|
|
|
|
|
|
|
use constant |
40
|
1
|
|
|
|
|
116
|
{ WSA09FAULT => WSA09.'/fault' |
41
|
|
|
|
|
|
|
, WSA09ROLE_ANON => WSA09.'/role/anonymous' |
42
|
1
|
|
|
1
|
|
7
|
}; |
|
1
|
|
|
|
|
2
|
|
43
|
|
|
|
|
|
|
|
44
|
|
|
|
|
|
|
|
45
|
|
|
|
|
|
|
use constant |
46
|
1
|
|
|
|
|
226
|
{ WSA10FAULT => WSA10.'/fault' |
47
|
|
|
|
|
|
|
, WSA10SOAP_FAULT => WSA10.'/soap/fault' |
48
|
|
|
|
|
|
|
, WSA10ADDR_ANON => WSA10.'/anonymous' |
49
|
|
|
|
|
|
|
, WSA10ADDR_NONE => WSA10.'/none' |
50
|
|
|
|
|
|
|
, WSA10REL_REPLY => WSA10.'/reply' |
51
|
|
|
|
|
|
|
, WSA10REL_UNSPEC => WSA10.'/unspecified' |
52
|
|
|
|
|
|
|
, WSA10MODULE => WSA10.'/module' |
53
|
1
|
|
|
1
|
|
4
|
}; |
|
1
|
|
|
|
|
1
|
|
54
|
|
|
|
|
|
|
|
55
|
|
|
|
|
|
|
|
56
|
|
|
|
|
|
|
use constant |
57
|
1
|
|
|
|
|
87
|
{ WSDL11WSAW => 'http://www.w3.org/2006/05/addressing/wsdl' |
58
|
1
|
|
|
1
|
|
8
|
}; |
|
1
|
|
|
|
|
2
|
|
59
|
|
|
|
|
|
|
|
60
|
|
|
|
|
|
|
|
61
|
|
|
|
|
|
|
use constant |
62
|
1
|
|
|
|
|
110
|
{ SOAP12FEATURE => 'http://www.w3.org/2005/08/addressing/feature' |
63
|
1
|
|
|
1
|
|
4
|
}; |
|
1
|
|
|
|
|
1
|
|
64
|
|
|
|
|
|
|
|
65
|
|
|
|
|
|
|
use constant |
66
|
1
|
|
|
|
|
119
|
{ SOAP12FEAT_DEST => SOAP12FEATURE.'/Destination' |
67
|
|
|
|
|
|
|
, SOAP12FEAT_SE => SOAP12FEATURE.'/SourceEndpoint' |
68
|
|
|
|
|
|
|
, SOAP12FEAT_RE => SOAP12FEATURE.'/ReplyEndpoint' |
69
|
|
|
|
|
|
|
, SOAP12FEAT_FE => SOAP12FEATURE.'/FaultEndpoint' |
70
|
|
|
|
|
|
|
, SOAP12FEAT_ACT => SOAP12FEATURE.'/Action' |
71
|
|
|
|
|
|
|
, SOAP12FEAT_ID => SOAP12FEATURE.'/MessageID' |
72
|
|
|
|
|
|
|
, SOAP12FEAT_REL => SOAP12FEATURE.'/Relationship' |
73
|
|
|
|
|
|
|
, SOAP12FEAT_REF => SOAP12FEATURE.'/ReferenceParameters' |
74
|
1
|
|
|
1
|
|
4
|
}; |
|
1
|
|
|
|
|
1
|
|
75
|
|
|
|
|
|
|
|
76
|
|
|
|
|
|
|
1; |
77
|
|
|
|
|
|
|
|