X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FUndefTolerant.pm;h=76cbb5e1d257d9504b80fe560e11319e383958a4;hb=ae05f07ec571c326041d0b1e0f2dc1298f1540bf;hp=b026bc1c0e2440ac15693e6df501d34185dc1b09;hpb=faddd0f15c1461d9d184cc41741ce0a492847a9d;p=gitmo%2FMooseX-UndefTolerant.git diff --git a/lib/MooseX/UndefTolerant.pm b/lib/MooseX/UndefTolerant.pm index b026bc1..76cbb5e 100644 --- a/lib/MooseX/UndefTolerant.pm +++ b/lib/MooseX/UndefTolerant.pm @@ -4,11 +4,15 @@ use Moose qw(); use Moose::Exporter; use MooseX::UndefTolerant::Attribute; +use MooseX::UndefTolerant::Constructor; -our $VERSION = '0.04'; +our $VERSION = '0.06'; Moose::Exporter->setup_import_methods( - class_metaroles => { attribute => [ 'MooseX::UndefTolerant::Attribute' ] } + class_metaroles => { + attribute => [ 'MooseX::UndefTolerant::Attribute' ], + constructor => [ 'MooseX::UndefTolerant::Constructor' ], + } ); 1; @@ -17,7 +21,7 @@ __END__ =head1 NAME -MooseX::UndefTolerant - Make your attribute(s) tolerant to undef intitialization +MooseX::UndefTolerant - Make your attribute(s) tolerant to undef initialization =head1 SYNOPSIS @@ -82,9 +86,9 @@ Maybe[Str] and I still want my predicate (C) to work. The only real solution was: if(defined($foo)) { - $class = My:CLass->new(foo => $foo, bar => 123); + $class = My:Class->new(foo => $foo, bar => 123); } else { - $class = My:CLass->new(bar => 123); + $class = My:Class->new(bar => 123); } Or some type of codemulch using ternarys. This module allows you to make @@ -93,6 +97,8 @@ example: have your cake and eat it too! =head1 PER ATTRIBUTE +See L. + =head1 AUTHOR Cory G Watson, C<< >>