sub track_blessings {
	my $type = shift;

	if ($type =~ /^global$/i) {
            *CORE::GLOBAL::bless = \&bless;
	}
}