import SOAP-WSDL 2.00_07 from CPAN

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
2009-12-12 19:47:45 -08:00
parent 25548e6296
commit 40e0e67e84
89 changed files with 3874 additions and 1313 deletions
@@ -1,31 +1,48 @@
-#!/usr/bin/perl -w
 package SOAP::WSDL::Client::Base;
-
-################################################################################## 
-## <OWNER>Internetteam
-## <AUTHOR>Martin Kutter <martin.kutter@siemens.com>
-## <CREATIONDATE>25.10.2006
-##
-## <FUNCTION>Base client for WSDL-based SOAP access
-## Automatisch gefüllt:
-## <CVSPROJECT>$HeadURL:$
-## <REVISION>$Revision:$
-################################################################################
-
 use strict;
-use Log::Log4perl;
+use warnings;
+use base 'SOAP::WSDL::Client';

-use Class::Accessor;
+sub __create_new {
+  my ($package, %args_of) = @_;
+  
+  no strict qw(refs);
+  
+  *{ "$package\::new" } = sub {
+      my $class = shift;
+      my $self = $class->SUPER::new({
+          proxy => $args_of{ proxy },
+          class_resolver => $args_of{ class_resolver }
+      });
+      bless $self, $class;
+      return $self;
+  }
+  
+}

-use base qw/Class::Accessor/;
+sub __create_methods {
+  my ($package, %parts_of) = @_;
+  
+  no strict qw(refs);
+  
+  for my $method (keys %parts_of){
+      *{ "$package\::$method" } = sub {
+          my $self = shift;
+          my @param = map { 
+            my $data = shift || {};
+            eval "require $_";
+            $_->new( $data );
+          } @{ $parts_of{ $method } };
+          
+          $self->call( $method, @param );
+      }
+  }

-$SOAP::WSDL::Client::Base::VERSION = sprintf("0.%d", q$LastChangedRevision: 1$ =~/(\d+)/ );
+}

-__PACKAGE__->mk_accessors( 
-	qw// 
-);
+1;

-my $log = undef;	# Global logger to speed up performance
+__END__

 =pod

@@ -35,93 +52,9 @@ SOAP::WSDL::Client::Base - Base client for WSDL-based SOAP access

 =head1 SYNOPSIS

+ package MySoapClient;
 use SOAP::WSDL::Client::Base;
-
-# TODO Add more Synopsis information
-
-=head1 DESCRIPTION
-
-# TODO Add Description
-
-=cut
-
-=pod
-
-=head2 new
-
-=over
-
-=item SYNOPSIS
-
- my $obj = ->new();
-
-=item DESCRIPTION
-
-Constructor.
-
-=back
-
-=cut
-
-sub new
-{
-	my $proto = shift;
-	my $class = ref $proto || $proto;
-	my $self = {
-			soapBindingStyle => 'rpc',
-		};
-	bless $self, $class;
-	$self->init(@_);
-	return $self;
-}
-
-sub soapBindingStyle
-{
-	my $self = shift;
-	my $style = shift;
-	if ($style)
-	{
-		die "Binding style must be one of rpc|document" 
-			if (not( $style=~m/^(rpc|document)$/));
-		$self->{ soapBindingStyle } = $style;
-	}
-	return $self->{ soapBindingStyle };
-}
-
-sub init
-{
-}
-
-sub call
-{
-	my $self = shift;
-	my $method = shift;
-	my $data = shift;
-	my $content;
-}
-
-1;
-
-__END__
-
-=pod
-
-=head1 AUTHOR
-
-Martin Kutter <martin.kutter@siemens.com>
-
-=head1 COPYING
-
-Copyright (c) 2005 SIEMENS AG. All rights reserved.
-
-=head1 Repository information
-
- $ID: $
-
- $LastChangedDate: $
- $LastChangedRevision: $
- $LastChangedBy: $
-
- $HeadURL: $
+ __PACKAGE__->__create_methods( qw(one two three) );
+ 1;

 =cut