From: Jesse Luehrs Date: Thu, 21 Apr 2011 21:16:36 +0000 (-0500) Subject: there's no reason the suffix has to be fixed length X-Git-Tag: 2.0100~43 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9f18035c7eb2e49b5efff56c6d474a35bca40f18;p=gitmo%2FMoose.git there's no reason the suffix has to be fixed length --- diff --git a/lib/Moose/Meta/TypeConstraint/Enum.pm b/lib/Moose/Meta/TypeConstraint/Enum.pm index 4dfc8ce..2e19a57 100644 --- a/lib/Moose/Meta/TypeConstraint/Enum.pm +++ b/lib/Moose/Meta/TypeConstraint/Enum.pm @@ -26,8 +26,7 @@ my $inliner = sub { . '&& $' . $self->_inline_var_name . '{' . $val . '}'; }; -# a quadrillion enums ought to be enough for any app -my $var_suffix = '000000000000000000'; +my $var_suffix = 0; sub new { my ( $class, %args ) = @_;