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.

##</code><code>##

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