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     my $ia = $self->init_arg;
   9
  10     # $_[2] is the hashref of options passed to the constructor. If our
  11     # parameter passed in was undef, pop it off the args...
  12     pop unless (defined $ia && defined($_[2]->{$ia}));
  13
  14     # Invoke the real init, as the above line cleared the unef
  15     $self->$orig(@_)
  16 });
  17
  18 1;
  19
  20 # ABSTRACT: Make your attribute(s) tolerant to undef intitialization
  21
  22 __END__
  23
  24 =head1 SYNOPSIS
  25
  26   package My:Class;
  27   use Moose;
  28
  29   use MooseX::UndefTolerant::Attribute;
  30
  31   has 'bar' => (
  32       traits => [ qw(MooseX::UndefTolerant::Attribute)],
  33       is => 'ro',
  34       isa => 'Num',
  35       predicate => 'has_bar'
  36   );
  37
  38   # Meanwhile, under the city...
  39
  40   # Doesn't explode
  41   my $class = My::Class->new(bar => undef);
  42   $class->has_bar # False!
  43
  44 =head1 DESCRIPTION
  45
  46 Applying this trait to your attribute makes it's initialization tolerant of
  47 of undef.  If you specify the value of undef to any of the attributes they
  48 will not be initialized (or will be set to the default, if applicable).
  49 Effectively behaving as if you had not provided a value at all.
  50
  51 =cut