add VERSION method to JSON::Backend packages to show VERSION of the a…

…ctual backend module (JSON::XS, JSON::PP etc), for backward compatibility
makamaka · May 18, 2017 · 9025223 · 9025223 · Grinnz · May 18, 2017
1 parent ec9ac56
commit 9025223
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/lib/JSON.pm b/lib/JSON.pm
@@ -356,6 +356,7 @@ sub init {
 
 sub is_xs { 0 };
 sub is_pp { 1 };
+sub VERSION { $JSON::BackendModule->VERSION }
 
 #
 # To save memory, the below lines are read only when XS backend is used.
@@ -407,6 +408,7 @@ sub init {
 
 sub is_xs { 1 };
 sub is_pp { 0 };
+sub VERSION { $JSON::BackendModule->VERSION }
 
 sub support_by_pp {
     my ($class, @methods) = @_;