Just one more line to make it JSON-friendly

ingy,

It's rather unfortunate JSON(::XS)? does not regard boolean.pm.
It's fortunate we need a single line to fix that.

````perl
sub TO_JSON() { ${$_[0]} ? \1 : \ 0 }
````

Would you merge so the rest of us can save the line?

Dan the Fan of Yours