Workaround for some JSON backends that don't decode booleans properly

leto · Jun 3, 2009 · ca18bad · ca18bad
1 parent 9f3ae4b
commit ca18bad
Show file tree

Hide file tree

Showing 7 changed files with 15 additions and 8 deletions.
diff --git a/Changes b/Changes
@@ -1,3 +1,6 @@
+3.00003 2009-06-03
+    - Added a workaround for JSON backends that don't handle booleans properly
+
 3.00002 2009-06-01
     - Updated version requirements in Makefile.PL
 

diff --git a/README b/README
@@ -2,7 +2,7 @@ NAME
     Net::Twitter - A perl interface to the Twitter API
 
 VERSION
-    This document describes Net::Twitter version 3.00002
+    This document describes Net::Twitter version 3.00003
 
 SYNOPSIS
       use Net::Twitter;

diff --git a/lib/Net/Identica.pm b/lib/Net/Identica.pm
@@ -2,7 +2,7 @@ package Net::Identica;
 use Net::Twitter;
 
 # use *all* digits for fBSD ports
-our $VERSION = '3.00002';
+our $VERSION = '3.00003';
 
 $VERSION = eval $VERSION; # numify for warning-free dev releases
 

diff --git a/lib/Net/Twitter.pm b/lib/Net/Twitter.pm
@@ -5,7 +5,7 @@ use Carp;
 use Net::Twitter::Core;
 
 # use *all* digits for fBSD ports
-our $VERSION = '3.00002';
+our $VERSION = '3.00003';
 
 $VERSION = eval $VERSION; # numify for warning-free dev releases
 

diff --git a/lib/Net/Twitter/Core.pm b/lib/Net/Twitter/Core.pm
@@ -1,5 +1,5 @@
 package Net::Twitter::Core;
-use 5.8.1;
+use 5.008001;
 use Moose;
 use Carp;
 use JSON::Any qw/XS DWIW JSON/;
@@ -11,7 +11,7 @@ use namespace::autoclean;
 with 'MooseX::Traits';
 
 # use *all* digits for fBSD ports
-our $VERSION = '3.00002';
+our $VERSION = '3.00003';
 
 $VERSION = eval $VERSION; # numify for warning-free dev releases
 
@@ -77,7 +77,11 @@ sub _parse_result {
     my $content = $res->content;
     $content =~ s/^"(true|false)"$/$1/;
 
-    my $obj = $self->_from_json($content);
+    # some JSON backends don't handle booleans correctly
+    # TODO: move this fix to JSON::Any
+    my $obj = $content eq 'true'  ? 1
+            : $content eq 'false' ? ''
+            : $self->_from_json($content);
 
     # Twitter sometimes returns an error with status code 200
     if ( $obj && ref $obj eq 'HASH' && exists $obj->{error} ) {

diff --git a/lib/Net/Twitter/OAuth.pm b/lib/Net/Twitter/OAuth.pm
@@ -2,7 +2,7 @@ package Net::Twitter::OAuth;
 use Net::Twitter;
 
 # use *all* digits for fBSD ports
-our $VERSION = '3.00002';
+our $VERSION = '3.00003';
 
 $VERSION = eval $VERSION; # numify for warning-free dev releases
 

diff --git a/lib/Net/Twitter/Search.pm b/lib/Net/Twitter/Search.pm
@@ -2,7 +2,7 @@ package Net::Twitter::Search;
 use Net::Twitter;
 
 # use *all* digits for fBSD ports
-our $VERSION = '3.00002';
+our $VERSION = '3.00003';
 
 $VERSION = eval $VERSION; # numify for warning-free dev releases