don't skip blessed JSON::PP::Boolean values for expected scalars

metacpan · Oct 20, 2016 · 1487187 · 1487187
1 parent 104a0bd
commit 1487187
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 1 deletion.
diff --git a/cpanfile b/cpanfile
@@ -2,6 +2,7 @@ requires "Carp" => "0";
 requires "HTTP::Tiny" => "0.056";
 requires "IO::Socket::SSL" => "1.42";
 requires "JSON::MaybeXS" => "0";
+requires "JSON::PP" => "0";
 requires "Moo" => "0";
 requires "Moo::Role" => "0";
 requires "Net::SSLeay" => "1.49";

diff --git a/lib/MetaCPAN/Client/Role/Entity.pm b/lib/MetaCPAN/Client/Role/Entity.pm
@@ -5,6 +5,7 @@ package MetaCPAN::Client::Role::Entity;
 
 use Moo::Role;
 
+use JSON::PP;
 use Ref::Util qw< is_ref is_arrayref is_hashref >;
 
 has data => (
@@ -32,7 +33,12 @@ sub BUILDARGS {
         $args{data}{$k} = $args{data}{$k}->[0]
             if is_arrayref( $args{data}{$k} ) and @{$args{data}{$k}} == 1;
 
-        delete $args{data}{$k} if is_ref( $args{data}{$k} ); # warn?
+        if ( JSON::PP::is_bool($args{data}{$k}) ) {
+            $args{data}{$k} = JSON::PP::true == $args{data}{$k} ? 1 : 0;
+        }
+        elsif ( is_ref( $args{data}{$k} ) ) {
+            delete $args{data}{$k};
+        }
     }
 
     for my $k ( @{ $known_fields->{arrayref} } ) {