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