use Devel::Gladiator qw/walk_arena/;
use Data::Structure::Util qw/has_circular_ref/;
use Scalar::Util qw/blessed/;
sub find_all_cycles {
	my $all = walk_arena();
	for my $sv (@$all) {
		# limit search to objects
		next unless blessed($sv);
		warn "Has circular references: $sv\n"
			if has_circular_ref($sv);
	}
	@$all=();
}
END { find_all_cycles() }