import SOAP-WSDL 2.00_25 from CPAN

git-cpan-module:   SOAP-WSDL
git-cpan-version:  2.00_25
git-cpan-authorid: MKUTTER
git-cpan-file:     authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00_25.tar.gz

t/lib/Typelib/Base.pm

@@ -1,5 +1,5 @@
 package Typelib::Base;
-use Class::Std::Storable;
+use Class::Std::Fast::Storable;
 
 sub mk_add_mutators {
     my $class = shift;
@@ -7,7 +7,7 @@ sub mk_add_mutators {
     for my $method ( keys %{$ attributes }) {
        *{ "$class\::add_$method" } = sub {
            my ($self, $value) = @_;
-           my $ident = ident $self;
+           my $ident = ${ $self };
            
            # we're the first value
            return $attributes->{ $method }->{ $ident } = $value

t/lib/Typelib/TMessage.pm

@@ -1,6 +1,7 @@
 package Typelib::TMessage;
 use strict;
 use base qw(Typelib::Base);
+use Class::Std::Fast constructor => 'basic';
 
 my %MRecipientURI_of   :ATTR(:name<MRecipientURI> :default<()>);
 my %MMessageContent_of :ATTR(:name<MMessageContent> :default<()>);
@@ -23,4 +24,5 @@ my %attributes_of       :ATTR();
 # make a add_BLA method for every attribute
 __PACKAGE__->mk_add_mutators( \%attributes_of );
 
+Class::Std::Fast::initialize();
 1;