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.63 by root, Thu Oct 11 23:07:43 2007 UTC vs.
Revision 1.65 by root, Sat Oct 13 01:55:31 2007 UTC

86 86
87package JSON::XS; 87package JSON::XS;
88 88
89use strict; 89use strict;
90 90
91our $VERSION = '1.5'; 91our $VERSION = '1.51';
92our @ISA = qw(Exporter); 92our @ISA = qw(Exporter);
93 93
94our @EXPORT = qw(to_json from_json); 94our @EXPORT = qw(to_json from_json);
95 95
96use Exporter; 96use Exporter;
978design bugs, but it is still you who will have to deal with it, as major 978design bugs, but it is still you who will have to deal with it, as major
979browser developers care only for features, not about doing security 979browser developers care only for features, not about doing security
980right). 980right).
981 981
982 982
983=head1 THREADS
984
985This module is I<not> guarenteed to be thread safe and there are no
986plans to change this until Perl gets thread support (as opposed to the
987horribly slow so-called "threads" which are simply slow and bloated
988process simulations - use fork, its I<much> faster, cheaper, better).
989
990(It might actually work, but you ahve ben warned).
991
992
983=head1 BUGS 993=head1 BUGS
984 994
985While the goal of this module is to be correct, that unfortunately does 995While the goal of this module is to be correct, that unfortunately does
986not mean its bug-free, only that I think its design is bug-free. It is 996not mean its bug-free, only that I think its design is bug-free. It is
987still relatively early in its development. If you keep reporting bugs they 997still relatively early in its development. If you keep reporting bugs they
988will be fixed swiftly, though. 998will be fixed swiftly, though.
999
1000Please refrain from using rt.cpan.org or any other bug reporting
1001service. I put the contact address into my modules for a reason.
989 1002
990=cut 1003=cut
991 1004
992our $true = do { bless \(my $dummy = 1), "JSON::XS::Boolean" }; 1005our $true = do { bless \(my $dummy = 1), "JSON::XS::Boolean" };
993our $false = do { bless \(my $dummy = 0), "JSON::XS::Boolean" }; 1006our $false = do { bless \(my $dummy = 0), "JSON::XS::Boolean" };

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines