use lib qw(t/lib);
use DBICTest::RunMode;
-use DBICTest::Util::LeakTracer qw(populate_weakregistry assert_empty_weakregistry visit_refs hrefaddr);
+use DBICTest::Util::LeakTracer qw(populate_weakregistry assert_empty_weakregistry visit_refs);
use Scalar::Util qw(weaken blessed reftype);
use DBIx::Class;
-use DBIx::Class::_Util 'sigwarn_silencer';
+use DBIx::Class::_Util qw(hrefaddr sigwarn_silencer);
BEGIN {
plan skip_all => "Your perl version $] appears to leak like a sieve - skipping test"
if DBIx::Class::_ENV_::PEEPEENESS;
## anything we have seen so far is cool
#delete @{$interim_wr}{keys %$weak_registry};
#
- ## I still don't get any of this...
- #delete $interim_wr->{$_} for grep {
- # ref ($interim_wr->{$_}{weakref}) eq 'SCALAR'
- # and
- # ${$interim_wr->{$_}{weakref}} eq 'very closure... much wtf... wow!!!'
- #} keys %$interim_wr;
- #
## moment of truth - the rest ought to be gone
#assert_empty_weakregistry($interim_wr);
}