Code for forward compat with Moose 1.99+

[gitmo/MooseX-UndefTolerant.git] / lib / MooseX / UndefTolerant / Class.pm

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) = @_;

                my @source = $self->$orig(@_);

                my $init_arg = $attr->init_arg;

                return
                        "if ( exists \$params->{$init_arg} && defined \$params->{$init_arg} ) {",
                                @source,
                        '} else {',
                               "delete \$params->{$init_arg};",
                        '}';
        });
}

no Moose::Role;

1;