File Coverage

lib/XML/Compile/WSA/Util.pm
Criterion Covered Total %
statement 27 27 100.0
branch n/a
condition n/a
subroutine 9 9 100.0
pod n/a
total 36 36 100.0


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