X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FMeta%2FTypeConstraint%2FParameterizable.pm;h=4a3ef27a20bd1696f597b3bb9074894dab0a102c;hb=1a6ad4bd25e1d53f22666fbca664568cbd8bf36f;hp=3afb43dad2b734488400ee74ffe54376b72be532;hpb=6c0e3459abf23be46753e90396936be6d748adc9;p=gitmo%2FMooseX-Dependent.git diff --git a/lib/MooseX/Meta/TypeConstraint/Parameterizable.pm b/lib/MooseX/Meta/TypeConstraint/Parameterizable.pm index 3afb43d..4a3ef27 100644 --- a/lib/MooseX/Meta/TypeConstraint/Parameterizable.pm +++ b/lib/MooseX/Meta/TypeConstraint/Parameterizable.pm @@ -76,15 +76,15 @@ has 'constraining_value' => ( This class defines the following methods. -=head2 BUILD +=head2 new Do some post build stuff =cut ## Right now I add in the parameterizable type coercion until I can merge some Moose -## changes upstream. TODO change to BUILD or something - +## changes upstream. + around 'new' => sub { my ($new, $class, @args) = @_; my $self = $class->$new(@args); @@ -396,6 +396,5 @@ it under the same terms as Perl itself. =cut -1; -##__PACKAGE__->meta->make_immutable(inline_constructor => 0); +__PACKAGE__->meta->make_immutable(inline_constructor => 0);