Attached patch fixes the issue.
--
Cheers,
ZZ [
https://metacpan.org/author/ZOFFIX ]
diff -Naur WSDL-Compile-0.03_orig/Build.PL WSDL-Compile-0.03/Build.PL
--- WSDL-Compile-0.03_orig/Build.PL 2014-01-25 12:32:42.764049663 -0500
+++ WSDL-Compile-0.03/Build.PL 2014-01-25 12:33:07.884174230 -0500
@@ -18,6 +18,7 @@
'List::Util' => '1.21',
'Perl6::Junction' => '1.40000',
'XML::LibXML' => '1.69',
+ 'Class::Load' => 0.20,
},
add_to_cleanup => ['WSDL-Compile-*'],
create_makefile_pl => 'passthrough',
diff -Naur WSDL-Compile-0.03_orig/lib/WSDL/Compile/Utils.pm WSDL-Compile-0.03/lib/WSDL/Compile/Utils.pm
--- WSDL-Compile-0.03_orig/lib/WSDL/Compile/Utils.pm 2014-01-25 12:32:42.764049663 -0500
+++ WSDL-Compile-0.03/lib/WSDL/Compile/Utils.pm 2014-01-25 12:32:44.716059339 -0500
@@ -24,7 +24,7 @@
);
}
-use Class::MOP;
+use Class::Load;
use Moose::Meta::Class;
use MooseX::Params::Validate qw(pos_validated_list);
use Perl6::Junction qw( any );
@@ -41,7 +41,7 @@
=cut
sub wsdl_attributes {
- my ( $meta ) = pos_validated_list( \@_,
+ my ( $meta ) = pos_validated_list( \@_,
{ isa => 'Moose::Meta::Class' },
);
@@ -61,15 +61,15 @@
=cut
sub parse_attr {
- my ( $attr ) = pos_validated_list( \@_,
+ my ( $attr ) = pos_validated_list( \@_,
{ isa => 'WSDL::Compile::Meta::Attribute::WSDL' },
);
my %data;
-
+
my $associated_class = $attr->associated_class ?
$attr->associated_class->name : 'unknown class';
-
+
$data{minOccurs} = $attr->xs_minOccurs;
die $attr->name, " is required - xs_minOccurs cannot be set to 0"
if $attr->is_required && $attr->xs_minOccurs == 0;
@@ -82,7 +82,7 @@
if $data{minOccurs} > $data{maxOccurs};
}
$data{name} = $attr->has_xsname ? $attr->xs_name : $attr->name;
-
+
my $tc = $attr->type_constraint;
my $tc_orig = $tc;
if ($tc->parent->name eq 'Maybe') {
@@ -110,7 +110,7 @@
if 'HashRef' eq any (
$tc->parent->name,
$tc_orig->parent->name,
- defined $tc->can('type_parameter') ?
+ defined $tc->can('type_parameter') ?
(
$tc->type_parameter->parent->name,
$tc->type_parameter->name,
@@ -165,11 +165,11 @@
=cut
sub load_class_for_meta {
- my ( $class_name ) = pos_validated_list( \@_,
+ my ( $class_name ) = pos_validated_list( \@_,
{ isa => 'Str' },
);
- Class::MOP::load_class( $class_name );
+ Class::Load::load_class( $class_name );
return Moose::Meta::Class->initialize(
$class_name
);
