ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/JSON-XS/XS.pm
(Generate patch)

Comparing JSON-XS/XS.pm (file contents):
Revision 1.52 by root, Mon Jul 2 02:57:11 2007 UTC vs.
Revision 1.53 by root, Mon Jul 2 07:39:31 2007 UTC

… …
878still relatively early in its development. If you keep reporting bugs they 878still relatively early in its development. If you keep reporting bugs they
879will be fixed swiftly, though. 879will be fixed swiftly, though.
880 880
881=cut 881=cut
882 882
883our $true = do { bless \(my $dummy = "1"), "JSON::XS::Boolean" }; 883our $true = do { bless \(my $dummy = 1), "JSON::XS::Boolean" };
884our $false = do { bless \(my $dummy = "0"), "JSON::XS::Boolean" }; 884our $false = do { bless \(my $dummy = 0), "JSON::XS::Boolean" };
885 885
886sub true() { $true } 886sub true() { $true }
887sub false() { $false } 887sub false() { $false }
888 888
889sub is_bool($) { 889sub is_bool($) {

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines