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

import SOAP-WSDL 1.24 from CPAN

Browse Source 
git-cpan-module:   SOAP-WSDL
git-cpan-version:  1.24
git-cpan-authorid: MKUTTER
git-cpan-file:     authors/id/M/MK/MKUTTER/SOAP-WSDL-1.24.tar.gz
This commit is contained in:
Martin Kutter authored and Michael G. Schwern committed 2009-12-12 19:47:56 -08:00
1 parent 7ba2f93e44
commit 9e85f63aa0
228 files changed
+2369 -22762
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

t/lib/Typelib/Base.pm
-28
View File
@@ -1,28 +0,0 @@
package Typelib::Base;
use Class::Std::Storable;
sub mk_add_mutators {
my $class = shift;
my $attributes = shift;
for my $method ( keys %{$ attributes }) {
*{ "$class\::add_$method" } = sub {
my ($self, $value) = @_;
my $ident = ident $self;
# we're the first value
return $attributes->{ $method }->{ $ident } = $value
if not defined $attributes->{ $method }->{ $ident };
# we're the second value
return $attributes->{ $method }->{ $ident } = [
$attributes->{ $method }->{ $ident }, $value ]
if not ref $attributes->{ $method }->{ $ident } eq 'ARRAY';
# we're third or later
push @{ $attributes->{ $method }->{ $ident } }, $value;
return $attributes->{ $method }->{ $ident };
}
}
}
1;
t/lib/Typelib/TEnqueueMessage.pm
-17
View File
@@ -1,17 +0,0 @@
package Typelib::TEnqueueMessage;
use strict;
use base qw(Typelib::Base);
my %MMessage_of :ATTR(:name<MMessage> :default<()>);
my %attributes_of :ATTR();
%attributes_of = (
MMessage => \%MMessage_of,
);
# make a add_BLA method for every attribute
__PACKAGE__->mk_add_mutators( \%attributes_of );
1;
t/lib/Typelib/TMessage.pm
-26
View File
@@ -1,26 +0,0 @@
package Typelib::TMessage;
use strict;
use base qw(Typelib::Base);
my %MRecipientURI_of :ATTR(:name<MRecipientURI> :default<()>);
my %MMessageContent_of :ATTR(:name<MMessageContent> :default<()>);
my %MSenderAddress_of :ATTR(:name<MSenderAddress> :default<()>);
my %MSubject_of :ATTR(:name<MSubject> :default<()>);
my %MDeliveryReportRecipientURI_of :ATTR(:name<MDeliveryReportRecipientURI> :default<()>);
my %MKeepalive_of :ATTR(:name<MKeepalive> :default<()>);
my %attributes_of :ATTR();
%attributes_of = (
MRecipientURI => \%MRecipientURI_of,
MMessageContent => \%MMessageContent_of,
MSenderAddress => \%MSenderAddress_of,
MSubject => \%MSubject_of,
MDeliveryReportRecipientURI => \%MDeliveryReportRecipientURI_of,
MKeepalive => \%MKeepalive_of,
);
# make a add_BLA method for every attribute
__PACKAGE__->mk_add_mutators( \%attributes_of );
1;