Re: $foo->bar = 14;

I'm getting

syntax error at C:\test\lvalue.pl line 10, near "$property :"
BEGIN not safe after errors--compilation aborted at C:\test\lvalue.pl 
+line 10.
[download]

from

BEGIN {
    no strict 'refs';
    for my $property (qw/id debug display_time default_text/) {
        *$property : lvalue = sub { $_[SELF]->{$property} };
    }
}
[download]

What am I doing wrong?

Examine what is said, not who speaks.

In Section Meditations