*isa= UNIVERSAL::isa; #... if( isa( $ref, "CODE" ) ) {