BEGIN {
    no strict 'refs';
    for my $property (qw/id debug display_time default_text/) {
        *$property = sub {
            my ($self, $value) = @_;
            croak "Too many arguments for $property method" if @_ > 2;
            $self->{$property} = $value if @_ == 2;
            return $self->{$property};
        }
    }
}