okay, dam@cpan.org's fix for using not using ->usa('UNIVERSAL') to test if something loaded apparently works in a situation where mine doesn't, that was causing tests to fail.

This commit is contained in:
Scott Walters
2014-08-28 18:26:41 -04:00
parent 35321ce5d0
commit 285ffa463c

View File

@@ -7,6 +7,7 @@ use SOAP::WSDL::XSD::Typelib::Builtin;
use Scalar::Util qw(blessed);
use Data::Dumper;
require Class::Std::Fast::Storable;
use Class::Load ();
use base qw(SOAP::WSDL::XSD::Typelib::Builtin::anyType);
@@ -155,8 +156,9 @@ sub _factory {
my $type = $CLASSES_OF{ $class }->{ $name }
or croak "No class given for $name";
$type->can('serialize')
or eval "require $type"
# require all types here
Class::Load::is_class_loaded($type)
or eval { Class::Load::load_class $type }
or croak $@;
# check now, so we don't need to do it later.