dinislage/SOAP-WSDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

import SOAP-WSDL 2.00.07 from CPAN

Browse Source 
git-cpan-module:   SOAP-WSDL
git-cpan-version:  2.00.07
git-cpan-authorid: MKUTTER
git-cpan-file:     authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00.07.tar.gz
This commit is contained in:
Martin Kutter
2009-12-12 19:48:57 -08:00
committed by Michael G. Schwern
parent 3de318be40
commit bfc3247583
229 changed files with 16685 additions and 2064 deletions
Download Patch File Download Diff File Expand all files Collapse all files
lib/SOAP/WSDL/Generator/Iterator/WSDL11.pm
+3 -2
View File
@@ -2,7 +2,7 @@ package SOAP::WSDL::Generator::Iterator::WSDL11;
use strict; use warnings;
use Class::Std::Fast;
use version; our $VERSION = qv('2.00.05');
use version; our $VERSION = qv('2.00.07');
my %definitions_of :ATTR(:name<definitions> :default<[]>);
my %nodes_of :ATTR(:name<nodes> :default<[]>);
@@ -73,7 +73,8 @@ my %METHOD_OF = (
$node->get_type()
? do {
die "unsupported global type <"
. $node->get_type . "> found in part ". $node->get_name();
. $node->get_type . "> found in part <". $node->get_name() . ">\n"
. "Looks like a rpc/literal WSDL, which is not supported by SOAP::WSDL\n";
## use this once we can auto-generate an element for RPC bindings
# $types->find_type( $node->expand($node->get_type) )
}
lib/SOAP/WSDL/Generator/PrefixResolver.pm
+1 -1
View File
@@ -3,7 +3,7 @@ use strict; use warnings;
use Class::Std::Fast::Storable;
use version; our $VERSION = qv('2.00.05');
use version; our $VERSION = qv('2.00.07');
my %namespace_prefix_map_of :ATTR(:name<namespace_prefix_map> :default<{}>);
my %namespace_map_of :ATTR(:name<namespace_map> :default<{}>);
lib/SOAP/WSDL/Generator/Template.pm
+37 -1
View File
@@ -5,7 +5,7 @@ use Class::Std::Fast::Storable;
use Carp;
use SOAP::WSDL::Generator::PrefixResolver;
use version; our $VERSION = qv('2.00.05');
use version; our $VERSION = qv('2.00.07');
my %tt_of :ATTR(:get<tt>);
my %definitions_of :ATTR(:name<definitions> :default<()>);
@@ -70,3 +70,39 @@ sub _process :PROTECTED {
}
1;
=pod
=head1 NAME
SOAP::WSDL::Generator::Template - Template-based code generator
=head1 DESCRIPTION
SOAP::WSDL's template based code generator
Base class for writing template based generators
=head1 AUTHOR
Replace the whitespace by @ for E-Mail Address.
Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
=head1 LICENSE AND COPYRIGHT
Copyright 2008, 2009 Martin Kutter.
This file is part of SOAP-WSDL. You may distribute/modify it under
the same terms as perl itself
=head1 Repository information
$Id: WSDLParser.pm 770 2009-01-24 22:55:54Z kutterma $
$LastChangedDate: 2009-01-24 23:55:54 +0100 (Sa, 24 Jan 2009) $
$LastChangedRevision: 770 $
$LastChangedBy: kutterma $
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Expat/WSDLParser.pm $
lib/SOAP/WSDL/Generator/Template/Plugin/XSD.pm
+1 -1
View File
@@ -4,7 +4,7 @@ use warnings;
use Carp qw(confess);
use Class::Std::Fast::Storable constructor => 'none';
use Scalar::Util qw(blessed);
use version; our $VERSION = qv('2.00.05');
use version; our $VERSION = qv('2.00.07');
my %namespace_prefix_map_of :ATTR(:name<namespace_prefix_map> :default<{}>);
my %namespace_map_of :ATTR(:name<namespace_map> :default<{}>);
lib/SOAP/WSDL/Generator/Template/XSD.pm
+114 -7
View File
@@ -5,15 +5,15 @@ use Class::Std::Fast::Storable;
use File::Basename;
use File::Spec;
use version; our $VERSION = qv('2.00.05');
use version; our $VERSION = qv('2.00.07');
use SOAP::WSDL::Generator::Visitor::Typemap;
use SOAP::WSDL::Generator::Visitor::Typelib;
use SOAP::WSDL::Generator::Template::Plugin::XSD;
use base qw(SOAP::WSDL::Generator::Template);
my %output_of :ATTR(:name<output> :default<()>);
my %typemap_of :ATTR(:name<typemap> :default<({})>);
my %silent_of :ATTR(:name<silent> :default<0>);
sub BUILD {
my ($self, $ident, $arg_ref) = @_;
@@ -113,7 +113,8 @@ sub _generate_interface {
$service,
$port,
));
print "Creating interface class $output\n";
print "Creating interface class $output\n"
if not $silent_of{ident $self};
$self->_process($template_name,
{
@@ -173,7 +174,8 @@ sub generate_typemap {
my $output = $arg_ref->{ output }
? $arg_ref->{ output }
: $self->_generate_filename( $self->get_name_resolver()->create_typemap_name($service) );
print "Creating typemap class $output\n";
print "Creating typemap class $output\n"
if not $silent_of{ident $self};
$self->_process('Typemap.tt',
{
service => $service,
@@ -205,7 +207,8 @@ sub visit_XSD_Element {
my $output = defined $output_of{ ident $self }
? $output_of{ ident $self }
: $self->_generate_filename( $self->get_name_resolver()->create_xsd_name($element) );
warn "Creating element class $output \n";
warn "Creating element class $output \n"
if not $silent_of{ ident $self};
$self->_process('element.tt', { element => $element } , $output);
}
@@ -214,7 +217,8 @@ sub visit_XSD_SimpleType {
my $output = defined $output_of{ ident $self }
? $output_of{ ident $self }
: $self->_generate_filename( $self->get_name_resolver()->create_xsd_name($type) );
warn "Creating simpleType class $output \n";
warn "Creating simpleType class $output \n"
if not $silent_of{ ident $self};
$self->_process('simpleType.tt', { simpleType => $type } , $output);
}
@@ -223,8 +227,111 @@ sub visit_XSD_ComplexType {
my $output = defined $output_of{ ident $self }
? $output_of{ ident $self }
: $self->_generate_filename( $self->get_name_resolver()->create_xsd_name($type) );
warn "Creating complexType class $output \n";
warn "Creating complexType class $output \n"
if not $silent_of{ ident $self};
$self->_process('complexType.tt', { complexType => $type } , $output);
}
1;
=pod
=head1 NAME
SOAP::WSDL::Generator::Template::XSD - XSD code generator
=head1 DESCRIPTION
SOAP::WSDL's XSD code generator
=head1 SYNOPSIS
See L<wsdl2perl.pl|wsdl2perl.pl> for an example on how to use this class.
=head1 METHODS
=head2 new
Constructor.
Options (Options can also be set via set_OPTION methods):
=over
=item * silent
Suppress warnings about what's being generated
=back
=head2 generate
Shortcut for calling L<generate_typelib> and L<generate_client>
=head2 generate_client
Generates a client interface
=head2 generate_server
Generates a server class
=head2 generate_typelib
Generates type and element classes
=head2 generate_typemap
Generate a typemap class required by SOAP::WSDL's MessageParser
=head2 generate_interface
(Deprecated) alias for generate_client
=head2 get_name_resolver
Returns a name resolver template plugin
=head2 visit_XSD_Attribute
Visitor method for SOAP::WSDL::XSD::Attribute. Should be factored out into
visitor class.
=head2 visit_XSD_ComplexType
Visitor method for SOAP::WSDL::XSD::ComplexType. Should be factored out into
visitor class.
=head2 visit_XSD_Element
Visitor method for SOAP::WSDL::XSD::Element. Should be factored out into
visitor class.
=head2 visit_XSD_SimpleType
Visitor method for SOAP::WSDL::XSD::SimpleType. Should be factored out into
visitor class.
=head1 AUTHOR
Replace the whitespace by @ for E-Mail Address.
Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
=head1 LICENSE AND COPYRIGHT
Copyright 2008, 2009 Martin Kutter.
This file is part of SOAP-WSDL. You may distribute/modify it under
the same terms as perl itself
=head1 Repository information
$Id: WSDLParser.pm 770 2009-01-24 22:55:54Z kutterma $
$LastChangedDate: 2009-01-24 23:55:54 +0100 (Sa, 24 Jan 2009) $
$LastChangedRevision: 770 $
$LastChangedBy: kutterma $
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Expat/WSDLParser.pm $
lib/SOAP/WSDL/Generator/Template/XSD/Typemap.tt
-1
View File
@@ -7,7 +7,6 @@ our [% USE Dumper(varname = 'typemap_'); Dumper.dump( typemap ) %];
sub get_class {
my $name = join '/', @{ $_[1] };
exists $typemap_1->{ $name } or die "Cannot resolve $name via " . __PACKAGE__;
return $typemap_1->{ $name };
}
lib/SOAP/WSDL/Generator/Template/XSD/complexType.tt
+4
View File
@@ -8,6 +8,10 @@ use warnings;
# may be sub-packages...
#-%]
__PACKAGE__->_set_element_form_qualified([%-
IF complexType.schema.get_elementFormDefault == 'qualified'
-%]1[% ELSE %]0[% END %]);
[% INCLUDE complexType/contentModel.tt %]
1;
lib/SOAP/WSDL/Generator/Template/XSD/element.tt
+2 -2
View File
@@ -102,9 +102,9 @@ perl code only, XML output uses the original name:
[% END %]
[% END; %]
=back
[% END;
END;
[% END;
END; -%]
lib/SOAP/WSDL/Generator/Visitor.pm
+1 -1
View File
@@ -3,7 +3,7 @@ use strict;
use warnings;
use Class::Std::Fast::Storable;
use version; our $VERSION = qv('2.00.05');
use version; our $VERSION = qv('2.00.07');
my %definitions_of :ATTR(:name<definitions> :default<()>);
my %type_prefix_of :ATTR(:name<type_prefix> :default<()>);
lib/SOAP/WSDL/Generator/Visitor/Typelib.pm
-11
View File
@@ -1,11 +0,0 @@
package SOAP::WSDL::Generator::Visitor::Typelib;
use strict;
use warnings;
use base qw(SOAP::WSDL::Generator::Visitor
SOAP::WSDL::Generator::Template
);
use version; our $VERSION = qv('2.00.05');
1;
lib/SOAP/WSDL/Generator/Visitor/Typemap.pm
+37 -1
View File
@@ -5,7 +5,7 @@ use Class::Std::Fast::Storable;
use base qw(SOAP::WSDL::Generator::Visitor);
use version; our $VERSION = qv('2.00.05');
use version; our $VERSION = qv('2.00.07');
my %path_of :ATTR(:name<path> :default<[]>);
my %typemap_of :ATTR(:name<typemap> :default<()>);
@@ -182,3 +182,39 @@ sub visit_XSD_ComplexType {
}
1;
__END__
=pod
=head1 NAME
SOAP::WSDL::Generator::Visitor::Typemap - Visitor class for generating typemaps
=head1 DESCRIPTION
Visitor used by SOAP::WSDL's XSD generator for creating typemaps
=head1 AUTHOR
Replace the whitespace by @ for E-Mail Address.
Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
=head1 LICENSE AND COPYRIGHT
Copyright 2008, 2009 Martin Kutter.
This file is part of SOAP-WSDL. You may distribute/modify it under
the same terms as perl itself
=head1 Repository information
$Id: WSDLParser.pm 770 2009-01-24 22:55:54Z kutterma $
$LastChangedDate: 2009-01-24 23:55:54 +0100 (Sa, 24 Jan 2009) $
$LastChangedRevision: 770 $
$LastChangedBy: kutterma $
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Expat/WSDLParser.pm $