This is the user sandbox of Btx40. A user sandbox is a subpage of the user's user page. It serves as a testing spot and page development space for the user and is not an encyclopedia article. Create or edit your own sandbox here.
Finished writing a draft article? Are you ready to request review of it by an experienced editor for possible inclusion in Wikipedia? Submit your draft for review!
usev6;ourBoolsubinfix{'<|-'}($targetisrw,&block){my$new=block();$target=$new;if$targeteqv$new{returnTrue;}else{fail"Target not set";}CATCH{fail$!;}}ourBoolsubinfix:{'-|>'}(&block,$targetisrw){return($target<|-&block);}# test case# should print:# $x set to 22# $x not setmyInt$x=0;if($x<|-{22}){"\$x set to $x".say;if(x<|-{22/0}){"\$x set to $x".say;}else{"\$x not set".say;}}else{"\$x not set".say;}