File Coverage

lib/XML/Compile/WSA/Util.pm
Criterion Covered Total %
statement 30 30 100.0
branch n/a
condition n/a
subroutine 10 10 100.0
pod n/a
total 40 40 100.0


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