projects
/
gitmo/MooseX-UndefTolerant.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
use new Moose::Exporter features
[gitmo/MooseX-UndefTolerant.git]
/
lib
/
MooseX
/
UndefTolerant
/
Attribute.pm
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;