Permalink
Browse files

Released version 0.29

  • Loading branch information...
ingydotnet committed Apr 2, 2013
1 parent af20ccb commit bc156f8ee9d8c500bc97d87b99c1ff2f530b213d
Showing with 14 additions and 7 deletions.
  1. +5 −0 Changes
  2. +1 −1 Makefile.PL
  3. +1 −1 README
  4. +3 −3 lib/boolean.pm
  5. +4 −2 t/json.t
View
@@ -1,4 +1,9 @@
---
+version: 0.29
+date: Mon Apr 1 21:48:31 PDT 2013
+changes:
+- Support JSON and JSON::XS. dankogai-san++
+---
version: 0.28
date: Mon Sep 12 13:51:47 CEST 2011
changes:
View
@@ -1,3 +1,3 @@
-use inc::Module::Package 'Ingy:modern 0.15';
+use inc::Module::Package 'Ingy:modern 0.20';
recommends 'Readonly';
View
2 README
@@ -121,7 +121,7 @@ AUTHOR
Ingy döt Net <ingy@cpan.org>
COPYRIGHT
- Copyright (c) 2007, 2008, 2010, 2011. Ingy döt Net.
+ Copyright (c) 2007, 2008, 2010, 2011, 2013. Ingy döt Net.
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
View
@@ -2,7 +2,7 @@ use 5.005003;
package boolean;
use strict;
-$boolean::VERSION = '0.28';
+$boolean::VERSION = '0.29';
my ($true, $false);
@@ -79,7 +79,7 @@ sub truth {
&Internals::SvREADONLY( \ !!1, 1);
}
-sub TO_JSON() { ${$_[0]} ? \1 : \ 0 }
+sub TO_JSON() { ${$_[0]} ? \1 : \0 }
1;
@@ -236,7 +236,7 @@ Ingy döt Net <ingy@cpan.org>
=head1 COPYRIGHT
-Copyright (c) 2007, 2008, 2010, 2011. Ingy döt Net.
+Copyright (c) 2007, 2008, 2010, 2011, 2013. Ingy döt Net.
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
View
@@ -5,7 +5,9 @@ SKIP: {
skip "JSON is missing", 2 unless $HAVE_JSON;
eval{
my $json = JSON->new->convert_blessed();
- is($json->encode({false => (0 == 1)}), '{"false":false}');
- is($json->encode({true => (1 == 1)}), '{"true":true}');
+ is($json->encode({false => (0 == 1)}), '{"false":false}',
+ 'JSON false works');
+ is($json->encode({true => (1 == 1)}), '{"true":true}',
+ 'JSON true works');
}
};

0 comments on commit bc156f8

Please sign in to comment.