eturn !!1 if is_plain_scalarref($value) && $$value == 1;
require JSON::PP;
return !!1 if JSON::PP::is_bool($value) && $value == JSON::PP::true();
return !!0;
}
sub is_false {
shift;
my ($value)
eturn !!1 if is_plain_scalarref($value) && $$value == 0;
require JSON::PP;
return !!1 if JSON::PP::is_bool($value) && $value == JSON::PP::false();
return !!0;
}
sub is_null {
return !defined $_[1