Help for this page

Select Code to Download


  1. or download this
     
sub ors :lvalue {
  $_ && return $_ for @_ ;
...
# define analogous &defs

ors($x,$y,$z) = 42;
  2. or download this
     
sub lv(&) :lvalue { ${ \( $_[0]->() ) } }

lv{ $a // $b } = 666;