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; |