diff options
author | Karen Etheridge <karen@etheridge.ca> | 2010-08-03 14:28:52 -0700 |
---|---|---|
committer | Karen Etheridge <karen@etheridge.ca> | 2010-08-03 14:28:52 -0700 |
commit | 8210a2f9207a60a672e8730cb188a072c5d2d2a2 (patch) | |
tree | b0a55e7f3eb157f9921a88e890a1541110f5540d | |
parent | 90d2721a0cfab188a9d7880d47c9fcd4f90413a2 (diff) | |
download | mx-alwayscoerce-8210a2f9207a60a672e8730cb188a072c5d2d2a2.tar.gz mx-alwayscoerce-8210a2f9207a60a672e8730cb188a072c5d2d2a2.zip |
isa is not a required option -- dont do anything extra if class attr was not defined with an isa
-rw-r--r-- | lib/MooseX/AlwaysCoerce.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/MooseX/AlwaysCoerce.pm b/lib/MooseX/AlwaysCoerce.pm index dd00ba5..2738638 100644 --- a/lib/MooseX/AlwaysCoerce.pm +++ b/lib/MooseX/AlwaysCoerce.pm @@ -78,7 +78,7 @@ Use C<< coerce => 0 >> to disable a coercion explicitly. my ($what, %opts) = @_; my $type = Moose::Util::TypeConstraints::find_or_parse_type_constraint($opts{isa}); - $opts{coerce} = 1 if !exists $opts{coerce} and $type->has_coercion; + $opts{coerce} = 1 if $type and not exists $opts{coerce} and $type->has_coercion; $self->$next($what, %opts); }; |