sub myor {
   $_[0] or $_[1];
}

if (myor( ..., ...)) {

}