Yet Another CPAN Grep

Data-Compare-Plugins-JSON ( D/DI/DIONYS/Data-Compare-Plugins-JSON-1.04.tar.gz, DIONYS, 2017; MetaCPAN )

Data-Compare-Plugins-JSON/lib/Data/Compare/Plugins/JSON.pm ( view source; MetaCPAN )

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 _com

pare($_[0], ${$_[1]});
}


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

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


__END__

=head1 NAME

Data::Compare::Plugins::JSON - Plugi