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

package MooseX::UndefTolerant::Attribute;
use Moose::Role;

around('initialize_instance_slot', sub{
    my $orig = shift;
    my $self = shift;

    # If the parameter passed in was undef, quietly do nothing but return
    return unless defined($_->[2]);

    # If it was defined, call the real init slot method
    $self->$orig(@_)
});

1;
Commit	Line	Data
5447ee45	1	package MooseX::UndefTolerant::Attribute;
	2	use Moose::Role;
	3
	4	around('initialize_instance_slot', sub{
	5	my $orig = shift;
	6	my $self = shift;
	7
	8	# If the parameter passed in was undef, quietly do nothing but return
	9	return unless defined($_->[2]);
	10
	11	# If it was defined, call the real init slot method
	12	$self->$orig(@_)
	13	});
	14
	15	1;