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