for my $nm ( qw( io fm cv hv pvlv gv av bm pvmg pvnv pviv rv nv iv pv sv ) ) {
	my $nm_pkg = "B::$nm";
	*{ $nm } = sub {
		local *__ANON__ = $nm;
		my $op = shift @_;
		return blessed( $op ) and $op->isa( $nm_pkg );
	}
}