use DBICTest;
use Storable qw(dclone freeze nfreeze thaw);
use Scalar::Util qw/refaddr/;
+use Carp;
sub ref_ne {
- my ($refa, $refb) = map { refaddr $_ or die "$_ is not a reference!" } @_[0,1];
+ my ($refa, $refb) = map { refaddr $_ or croak "$_ is not a reference!" } @_[0,1];
cmp_ok (
$refa,
'!=',