Help for this page

Select Code to Download


  1. or download this
    perl -MO=Deparse,-p -e 'sub x {return (1,2)} @c=x()||(1,2);@d=x() or (
    +1,2);'
    sub x {
    ...
    }
    (@c = (x() || (1, 2)));
    ((@d = x()) or ('???', '???'));