sub STORE {
        my ($self, $value) = @_;
        $$self->set(0 + $value);
}