Small change for MooseX::Attribute::TypeConstraint::CustomizeFatal

Author: upasana-me

lib/Moose/Meta/Attribute.pm

@@ -693,7 +693,7 @@ sub _inline_check_constraint {
                                                 'type_constraint_message => $msg , '.
                                                 'class_name              => $class_name, '.
                                                 'attribute_name          => "'.$attr_name.'",'.
-                                                'value                   => '.$value
+                                                'value                   => '.$value, $value
                 ).';',
             '}',
         );
@@ -708,7 +708,7 @@ sub _inline_check_constraint {
                                                 'type_constraint_message => $msg , '.
                                                 'class_name              => $class_name, '.
                                                 'attribute_name          => "'.$attr_name.'",'.
-                                                'value                   => '.$value
+                                                'value                   => '.$value, $value
                 ).';',
             '}',
         );

lib/Moose/Meta/Method/Accessor/Native/Collection.pm

@@ -115,6 +115,7 @@ sub _inline_check_member_constraint {
                                                 'class_name              => $class_name,'.
                                                 'value                   => $new_val,'.
                                                 'new_member              => 1',
+                                                '$new_val'
                 ) . ';',
             '}',
         '}',