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.55 by root, Mon Jul 23 22:57:40 2007 UTC

… …
81 81
82package JSON::XS; 82package JSON::XS;
83 83
84use strict; 84use strict;
85 85
86our $VERSION = '1.4'; 86our $VERSION = '1.42';
87our @ISA = qw(Exporter); 87our @ISA = qw(Exporter);
88 88
89our @EXPORT = qw(to_json from_json); 89our @EXPORT = qw(to_json from_json);
90 90
91use Exporter; 91use Exporter;
… …
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