package Mouse::Meta::Method::Accessor;
use Mouse::Util; # enables strict and warnings
-use Scalar::Util qw(blessed);
sub _inline_slot{
my(undef, $self_var, $attr_name) = @_;
}
elsif(defined $constraint){
$accessor .= "my \$tmp = $value;\n";
- #XXX: The following 'defined and' check is for backward compatibility
- $accessor .= "defined(\$tmp) and ";
$accessor .= "\$compiled_type_constraint->(\$tmp)";
$accessor .= " || \$attribute->verify_type_constraint_error(\$name, \$tmp, \$constraint);\n";
=head1 VERSION
-This document describes Mouse version 0.40_01
+This document describes Mouse version 0.40_05
=head1 SEE ALSO