Released version 0.29

Changes

@@ -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:

Makefile.PL

@@ -1,3 +1,3 @@
-use inc::Module::Package 'Ingy:modern 0.15';
+use inc::Module::Package 'Ingy:modern 0.20';
 
 recommends      'Readonly';

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.

lib/boolean.pm

@@ -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.

t/json.t

@@ -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');
     }
 };