$type ||= 'accessor';
- my $accessor = sprintf(qq{#line 1 "%s for %s (%s)"\n}, $type, $name, __FILE__)
+ my $accessor = sprintf(qq{package %s;\n#line 1 "%s for %s (%s)"\n}, $class->name, $type, $name, __FILE__)
. "sub {\n";
if ($type eq 'accessor' || $type eq 'writer') {
else{
$accessor .= "$slot = $value;\n";
}
+ if ($is_weak) {
+ $accessor .= "Scalar::Util::weaken($slot) if ref $slot;\n";
+ }
$accessor .= "}\n";
}
$accessor .= "return $slot;\n}\n";
- #print "# class ", $class->name, "\n", $accessor, "\n";
+ #print $accessor, "\n";
my $code;
my $e = do{
local $@;
=head1 VERSION
-This document describes Mouse version 0.40_05
+This document describes Mouse version 0.40_07
=head1 SEE ALSO