y ($self) = @_; return $$self; } sub negate { my ($self) = @_; return $self ? $false : $true; } sub TO_JSON { my ($self) = @_; return $self ? JSON::true() : JSON::false(); } 1;