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, quietly do nothing but return.
  12     return unless exists($_[2]->{$ia}) && defined($_[2]->{$ia});
  13
  14     # If it was defined, call the real init slot method
  15     $self->$orig(@_)
  16 });
  17
  18 1;
  19
  20 =head1 NAME
  21
  22 MooseX::UndefTolerant::Attribute - Make your attribute tolerant to undef intitialization
  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.  Effectively behaving as if you had not provided a
  49 value at all.
  50
  51 =head1 AUTHOR
  52
  53 Cory G Watson, C<< <gphat at cpan.org> >>
  54
  55 =head1 COPYRIGHT & LICENSE
  56
  57 Copyright 2009 Cory G Watson.
  58
  59 This program is free software; you can redistribute it and/or modify it
  60 under the terms of either: the GNU General Public License as published
  61 by the Free Software Foundation; or the Artistic License.
  62
  63 See http://dev.perl.org/licenses/ for more information.
  64
  65 =cut