view release on metacpan or  search on metacpan

t/01-require.t  view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;

use Test::More;


my $rules = require Data::Compare::Plugins::JSON;

is ref($rules), 'ARRAY';
foreach (@$rules) {
	is ref($_), 'ARRAY' or next;

	my ($handler, $type1, undef, @extra) = reverse(@$_);

	ok defined($type1);
	ok !ref($type1);
	is ref($handler), 'CODE';