The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!perl -w

use Data::Compare ();
Data::Compare->register_plugins();

print "1..1\n";

my $test = 0;

# and now there should be plugins

print "not " if(Data::Compare::Compare({}, Data::Compare::plugins()));
print 'ok '.(++$test)." plugins available in no-import mode if explicitly asked for\n";