BEGIN
{
    for my $datum (qw( name full_name root_oid plugin_oid full_oid ))
    {
        my $sub = sub
        {
            my $self        = shift;
            $self->{$datum} = shift if @_;
            return $self->{$datum};
        };

        do { no strict 'refs'; *{ $datum } = sub };
    }
}