File Coverage

blib/lib/Data/Compare/Plugins/JSON.pm

Criterion	Covered	Total	%
statement	12	14	85.7
branch	3	4	75.0
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	20	23	86.9

package Data::Compare::Plugins::JSON;

use strict;
use warnings;

use Data::Compare qw(Compare);


our $VERSION = '1.04';


sub _compare_object_and_object {
	return $_[0] eq $_[1] ? 1 : 0;
}

sub _compare_object_and_scalar {
	return Compare(${$_[0]}, $_[1]) if ref($_[0]);
	return Compare($_[0], ${$_[1]});
}


[
	['JSON::PP::Boolean',             \&_compare_object_and_object],
	['JSON::PP::Boolean',         '', \&_compare_object_and_scalar],
	['JSON::XS::Boolean',             \&_compare_object_and_object],
	['JSON::XS::Boolean',         '', \&_compare_object_and_scalar],
	['JSON::backportPP::Boolean',     \&_compare_object_and_object],
	['JSON::backportPP::Boolean', '', \&_compare_object_and_scalar],
];


__END__