Perhaps something like this:

if($type eq 'x'){
     eval "use Some::Module";
}

eval { mysubtocheck(); };
if($@){ 
    #Sub ran
}else{
    #Sub not present or died
}
[download]