sub read : lvalue
{
        my ($self) = @_;
        vec($self->{value},0,1);
}