BEGIN {
    my @methods = qw/status deadline chasedate/;

    for my $method (@methods) {
        no strict 'refs'; # allow symbolic reference
        *$method = sub { return $_[0]->{$method} };
    }
}