Mojo::JSON::j exception

gistfile1.pl

diff --git a/lib/Mojo/JSON.pm b/lib/Mojo/JSON.pm
index cc5c6e3..1b83a27 100644
--- a/lib/Mojo/JSON.pm
+++ b/lib/Mojo/JSON.pm
@@ -102,8 +102,22 @@ sub false {$FALSE}
 
 sub j {
   my $d = shift;
-  return __PACKAGE__->new->encode($d) if ref $d eq 'ARRAY' || ref $d eq 'HASH';
-  return __PACKAGE__->new->decode($d);
+  my $json = __PACKAGE__->new;
+
+  my $res;
+  if (ref $d eq 'ARRAY' || ref $d eq 'HASH') {
+    $res = $json->encode($d);
+  }
+  else {
+    $res = $json->decode($d);
+  }
+
+  if ($json->error) {
+      die($json->error);
+  }
+  else {
+      return($res);
+  }
 }