Re: $foo->bar = 14;

[BrowserUk]

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.

from

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

What am I doing wrong?

---

Examine what is said, not who speaks.

[sauoq]

I think the proper syntax would be:

*$property = sub : lvalue { ... }

Update: It appears Juerd has fixed it in his original post now too.

-sauoq
"My two cents aren't worth a dime.";