line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
# Copyrights 2010-2014 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
|
|
829
|
use warnings; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
33
|
|
6
|
1
|
|
|
1
|
|
11
|
use strict; |
|
1
|
|
|
|
|
11
|
|
|
1
|
|
|
|
|
56
|
|
7
|
|
|
|
|
|
|
|
8
|
|
|
|
|
|
|
package XML::Compile::WSA::Util; |
9
|
|
|
|
|
|
|
our $VERSION = '0.93'; |
10
|
|
|
|
|
|
|
|
11
|
1
|
|
|
1
|
|
4
|
use base 'Exporter'; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
213
|
|
12
|
|
|
|
|
|
|
|
13
|
|
|
|
|
|
|
my @wsa09 = qw/WSA09 WSA09FAULT WSA09ROLE_ANON/; |
14
|
|
|
|
|
|
|
my @wsa10 = qw/WSA10 WSA10FAULT WSA10ADDR_ANON WSA10ADDR_NONE |
15
|
|
|
|
|
|
|
WSA10REL_REPLY WSA10REL_UNSPEC WSA10MODULE WSA10SOAP_FAULT/; |
16
|
|
|
|
|
|
|
my @wsdl11 = qw/WSDL11WSAW/; |
17
|
|
|
|
|
|
|
my @wsdl12 = (); # don't know (yet) |
18
|
|
|
|
|
|
|
my @soap11 = (); |
19
|
|
|
|
|
|
|
my @soap12 = qw/SOAP12FEAT_DEST SOAP12FEAT_SE SOAP12FEAT_RE SOAP12FEAT_FE |
20
|
|
|
|
|
|
|
SOAP12FEAT_ACT SOAP12FEAT_ID SOAP12FEAT_REL SOAP12FEAT_REF/; |
21
|
|
|
|
|
|
|
|
22
|
|
|
|
|
|
|
our @EXPORT_OK = (@wsa09, @wsa10, @wsdl11, @wsdl12, @soap11, @soap12); |
23
|
|
|
|
|
|
|
our %EXPORT_TAGS = |
24
|
|
|
|
|
|
|
( wsa09 => \@wsa09 |
25
|
|
|
|
|
|
|
, wsa10 => \@wsa10 |
26
|
|
|
|
|
|
|
, wsdl11 => \@wsdl11 |
27
|
|
|
|
|
|
|
, wsdl12 => \@wsdl12 |
28
|
|
|
|
|
|
|
, soap11 => \@soap11 |
29
|
|
|
|
|
|
|
, soap12 => \@soap12 |
30
|
|
|
|
|
|
|
); |
31
|
|
|
|
|
|
|
|
32
|
|
|
|
|
|
|
|
33
|
|
|
|
|
|
|
use constant |
34
|
1
|
|
|
|
|
575
|
{ WSA09 => 'http://schemas.xmlsoap.org/ws/2004/08/addressing' |
35
|
|
|
|
|
|
|
, WSA10 => 'http://www.w3.org/2005/08/addressing' |
36
|
1
|
|
|
1
|
|
5
|
}; |
|
1
|
|
|
|
|
2
|
|
37
|
|
|
|
|
|
|
|
38
|
|
|
|
|
|
|
use constant |
39
|
1
|
|
|
|
|
259
|
{ WSA09FAULT => WSA09.'/fault' |
40
|
|
|
|
|
|
|
, WSA09ROLE_ANON => WSA09.'/role/anonymous' |
41
|
1
|
|
|
1
|
|
9
|
}; |
|
1
|
|
|
|
|
3
|
|
42
|
|
|
|
|
|
|
|
43
|
|
|
|
|
|
|
|
44
|
|
|
|
|
|
|
use constant |
45
|
1
|
|
|
|
|
3056
|
{ WSA10FAULT => WSA10.'/fault' |
46
|
|
|
|
|
|
|
, WSA10SOAP_FAULT => WSA10.'/soap/fault' |
47
|
|
|
|
|
|
|
, WSA10ADDR_ANON => WSA10.'/anonymous' |
48
|
|
|
|
|
|
|
, WSA10ADDR_NONE => WSA10.'/none' |
49
|
|
|
|
|
|
|
, WSA10REL_REPLY => WSA10.'/reply' |
50
|
|
|
|
|
|
|
, WSA10REL_UNSPEC => WSA10.'/unspecified' |
51
|
|
|
|
|
|
|
, WSA10MODULE => WSA10.'/module' |
52
|
1
|
|
|
1
|
|
9
|
}; |
|
1
|
|
|
|
|
3
|
|
53
|
|
|
|
|
|
|
|
54
|
|
|
|
|
|
|
|
55
|
|
|
|
|
|
|
use constant |
56
|
1
|
|
|
|
|
174
|
{ WSDL11WSAW => 'http://www.w3.org/2006/05/addressing/wsdl' |
57
|
1
|
|
|
1
|
|
17
|
}; |
|
1
|
|
|
|
|
3
|
|
58
|
|
|
|
|
|
|
|
59
|
|
|
|
|
|
|
|
60
|
|
|
|
|
|
|
use constant |
61
|
1
|
|
|
|
|
261
|
{ SOAP12FEATURE => 'http://www.w3.org/2005/08/addressing/feature' |
62
|
1
|
|
|
1
|
|
10
|
}; |
|
1
|
|
|
|
|
3
|
|
63
|
|
|
|
|
|
|
|
64
|
|
|
|
|
|
|
use constant |
65
|
1
|
|
|
|
|
279
|
{ SOAP12FEAT_DEST => SOAP12FEATURE.'/Destination' |
66
|
|
|
|
|
|
|
, SOAP12FEAT_SE => SOAP12FEATURE.'/SourceEndpoint' |
67
|
|
|
|
|
|
|
, SOAP12FEAT_RE => SOAP12FEATURE.'/ReplyEndpoint' |
68
|
|
|
|
|
|
|
, SOAP12FEAT_FE => SOAP12FEATURE.'/FaultEndpoint' |
69
|
|
|
|
|
|
|
, SOAP12FEAT_ACT => SOAP12FEATURE.'/Action' |
70
|
|
|
|
|
|
|
, SOAP12FEAT_ID => SOAP12FEATURE.'/MessageID' |
71
|
|
|
|
|
|
|
, SOAP12FEAT_REL => SOAP12FEATURE.'/Relationship' |
72
|
|
|
|
|
|
|
, SOAP12FEAT_REF => SOAP12FEATURE.'/ReferenceParameters' |
73
|
1
|
|
|
1
|
|
9
|
}; |
|
1
|
|
|
|
|
4
|
|
74
|
|
|
|
|
|
|
|
75
|
|
|
|
|
|
|
1; |
76
|
|
|
|
|
|
|
|