1 package MooseX::UndefTolerant;
6 use MooseX::UndefTolerant::Attribute;
7 use MooseX::UndefTolerant::Constructor;
11 Moose::Exporter->setup_import_methods(
13 attribute => [ 'MooseX::UndefTolerant::Attribute' ],
14 constructor => [ 'MooseX::UndefTolerant::Constructor' ],
24 MooseX::UndefTolerant - Make your attribute(s) tolerant to undef initialization
31 use MooseX::UndefTolerant;
36 predicate => 'has_name'
39 # Meanwhile, under the city...
42 my $class = My::Class->new(name => undef);
43 $class->has_name # False!
45 Or, if you only want one attribute to have this behaviour:
50 use MooseX::UndefTolerant::Attribute;
53 traits => [ qw(MooseX::UndefTolerant::Attribute)],
56 predicate => 'has_bar'
61 Loading this module in your L<Moose> class makes initialization of your
62 attributes tolerant of undef. If you specify the value of undef to any of
63 the attributes they will not be initialized. Effectively behaving as if you
64 had not provided a value at all.
68 I often found myself in this quandry:
80 my $foo = ... # get the param from something
82 my $class = My:Class->new(foo => $foo, bar => 123);
84 What if foo is undefined? I didn't want to change my attribute to be
85 Maybe[Str] and I still want my predicate (C<has_foo>) to work. The only
89 $class = My:Class->new(foo => $foo, bar => 123);
91 $class = My:Class->new(bar => 123);
94 Or some type of codemulch using ternarys. This module allows you to make
95 your attributes more tolerant of undef so that you can keep the first
96 example: have your cake and eat it too!
100 See L<MooseX::UndefTolerant::Attribute>.
104 Cory G Watson, C<< <gphat at cpan.org> >>
106 =head1 ACKNOWLEDGEMENTS
108 Many thanks to the crew in #moose who talked me through this module:
110 Hans Dieter Pearcey (confound)
116 Dylan Hardison (dylan)
118 Jay Shirley (jshirley)
122 =head1 COPYRIGHT & LICENSE
124 Copyright 2009 Cory G Watson.
126 This program is free software; you can redistribute it and/or modify it
127 under the terms of either: the GNU General Public License as published
128 by the Free Software Foundation; or the Artistic License.
130 See http://dev.perl.org/licenses/ for more information.