X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMooseX-UndefTolerant.git;a=blobdiff_plain;f=lib%2FMooseX%2FUndefTolerant%2FClass.pm;h=d8484b947896ab0a4e750fac403f460880804df8;hp=c8bd25c178081d7687777c1a62fe97e42521ebca;hb=e5d1b64215dcded06a34e7c389958c79f33c3906;hpb=0dd9c65b0cd3941fe1901f40045e5fa6732e7692 diff --git a/lib/MooseX/UndefTolerant/Class.pm b/lib/MooseX/UndefTolerant/Class.pm index c8bd25c..d8484b9 100644 --- a/lib/MooseX/UndefTolerant/Class.pm +++ b/lib/MooseX/UndefTolerant/Class.pm @@ -1,24 +1,22 @@ package MooseX::UndefTolerant::Class; use Moose::Role; -if ( $Moose::VERSION >= 1.9900 ) { - around('_inline_init_attr_from_constructor', sub { - my $orig = shift; - my $self = shift; - my ($attr, $idx) = @_; +around _inline_init_attr_from_constructor => sub { + my $orig = shift; + my $self = shift; + my ($attr, $idx) = @_; - my @source = $self->$orig(@_); + my @source = $self->$orig(@_); - my $init_arg = $attr->init_arg; + my $init_arg = $attr->init_arg; - return - "if ( exists \$params->{$init_arg} && defined \$params->{$init_arg} ) {", - @source, - '} else {', - "delete \$params->{$init_arg};", - '}'; - }); -} + return + "if ( exists \$params->{$init_arg} && defined \$params->{$init_arg} ) {", + @source, + '} else {', + "delete \$params->{$init_arg};", + '}'; +}; no Moose::Role;