sub FETCH
{
    my $self = shift;
    my $key  = shift;
    my $value = $self->{USER_OPT}->direct_get($key, $self->{ATTRS});

    return $value;
}

sub STORE
{
    my $self  = shift;
    my $key   = shift;
    my $value = shift;
    my $name;

    ($name, $value) =
      $self->{USER_OPT}->direct_set($key, $value, $self->{ATTRS});

    return $value;
}