Merge pull request #98 from makamaka/decode_json_prototype

Decode json prototype

Author: charsbar

lib/JSON/PP.pm

@@ -112,7 +112,7 @@ sub encode_json ($) { # encode
 }
 
 
-sub decode_json { # decode
+sub decode_json ($) { # decode
     ($JSON ||= __PACKAGE__->new->utf8)->decode(@_);
 }
 

t/gh_54_context_sensitive_read_file.t

@@ -0,0 +1,21 @@
+use strict;
+use warnings;
+use Test::More;
+
+BEGIN { plan tests => 1 };
+
+BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
+
+use JSON::PP;
+
+my $ds = eval { JSON::PP::decode_json read_file() };
+ok !$@, "No error" or note $@;
+
+sub read_file {
+	my $json = <<"JSON";
+{
+"camel": "Amelia"
+}
+JSON
+	wantarray ? split(/\R/, $json) : $json;
+}