disjoin

# given sub { $_[0] % 2 }

$code = $code->disjoin(sub { -1 });
$code->(0); # -1
$code->(1); #  1
$code->(2); # -1
$code->(3); #  1
$code->(4); # -1

The disjoin method creates a code reference which execute the code and the argument in a logical OR operation having the code as the lvalue and the argument as the rvalue. This method returns a Data::Object::Code object.

disjoin(CodeRef $arg1) : CodeRef

method