Bug #94620 for Types-XSD-Lite: Moo breaks maxInclusive

Thu Apr 10 17:17:29 2014 djerius [...] cpan.org - Ticket created

Subject:

Moo breaks maxInclusive

Moo 1.004002 Types::XSD::Lite 0.003 I've attached a script which should cause a validation failure. If run as is, it doesn't load Moo, and it fails: % perl foo Value "10" did not pass type constraint "NonNegativeInteger[maxInclusive=>"9"]" (in $_[0]) at foo line 24 When run with the environment variable USE_MOO set, it loads Moo and has two bites at the rotten apple; neither fails: % USE_MOO=1 perl foo % So, loading Moo is doing something...

Subject:

foo

Download foo
application/octet-stream 372b

Message body not shown because it is not plain text.

Thu Apr 10 17:21:06 2014 djerius [...] cpan.org - Correspondence added

I forgot to note that it's just the maxInclusive part which is failing; changing the test value to -1 successfully fails (!) with and without Moo.

Sat Apr 12 05:43:19 2014 perl [...] toby.ink - Correspondence added

Confirmed. Seems to happen with Moose too.

Sat Apr 12 05:43:19 2014 The RT System itself - Status changed from 'new' to 'open'

Sat Apr 12 06:34:52 2014 perl [...] toby.ink - Correspondence added

If you want a temporary workaround, you can do this before parameterizing the type constraint. delete( NonNegativeInteger->{inline_generator} );

Sat Apr 12 06:47:30 2014 perl [...] toby.ink - Correspondence added

This is the fix... diff -r 8d9b585a7819 lib/Types/XSD/Lite.pm --- a/lib/Types/XSD/Lite.pm Mon Jul 08 16:50:19 2013 +0100 +++ b/lib/Types/XSD/Lite.pm Sat Apr 12 11:46:16 2014 +0100 @@ -298,9 +298,10 @@ my $inline_generator = sub { - my %p = @_; + my %p_not_destroyed = @_; return sub { local $T = $_[0]->parent; + my %p = %p_not_destroyed; # copy; my $var = $_[1]; my $r = sprintf( '(%s)',

Sat Apr 12 06:47:30 2014 perl [...] toby.ink - Status changed from 'open' to 'patched'

Sat Apr 12 07:07:04 2014 perl [...] toby.ink - Correspondence added

Fixed in 0.004.

Sat Apr 12 07:07:06 2014 perl [...] toby.ink - Status changed from 'patched' to 'resolved'