1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
|
# Copyrights 2007-2019 by [Mark Overmeer <markov@cpan.org>].
# For other contributors see ChangeLog.
# See the manual pages for details on the licensing terms.
# Pod stripped from pm file by OODoc 2.02.
# This code is part of distribution XML-Compile-SOAP. Meta-POD processed
# with OODoc into POD and HTML manual-pages. See README.md
# Copyright Mark Overmeer. Licensed under the same terms as Perl itself.
package XML::Compile::SOAP::Util;
use vars '$VERSION';
$VERSION = '3.26';
use base 'Exporter';
use warnings;
use strict;
my @soap10 = qw/SOAP11HTTP WSDL11HTTP WSDL11MIME SOAP11ENV/;
my @soap11 = qw/SOAP11ENV SOAP11ENC SOAP11NEXT SOAP11HTTP WSDL11SOAP/;
my @wsdl11 = qw/WSDL11 WSDL11SOAP WSDL11HTTP WSDL11MIME WSDL11SOAP12/;
my @daemon = qw/MSEXT XC_DAEMON_NS/;
my @xop10 = qw/XOP10 XMIME10 XMIME11/;
our @EXPORT_OK = (@soap10, @soap11, @wsdl11, @daemon, @xop10);
our %EXPORT_TAGS =
( soap10 => \@soap10
, soap11 => \@soap11
, wsdl11 => \@wsdl11
, daemon => \@daemon
, xop10 => \@xop10
);
use constant SOAP11 => 'http://schemas.xmlsoap.org/soap/';
use constant
{ SOAP11ENV => SOAP11. 'envelope/'
, SOAP11ENC => SOAP11. 'encoding/'
, SOAP11NEXT => SOAP11. 'actor/next'
, SOAP11HTTP => SOAP11. 'http'
};
use constant WSDL11 => 'http://schemas.xmlsoap.org/wsdl/';
use constant
{ WSDL11SOAP => WSDL11. 'soap/'
, WSDL11HTTP => WSDL11. 'http/'
, WSDL11MIME => WSDL11. 'mime/'
, WSDL11SOAP12 => WSDL11. 'soap12/'
};
use constant
{ MSEXT => SOAP11ENV
, XC_DAEMON_NS => 'http://perl.org/xml-schemas/xml-compile-daemon/1.0'
};
use constant
{ XOP10 => 'http://www.w3.org/2004/08/xop/include'
, XMIME10 => 'http://www.w3.org/2004/11/xmlmime'
, XMIME11 => 'http://www.w3.org/2005/05/xmlmime'
};
1;
|
