Select Code to Download

Win8 Strawberry 5.8.9.5 (32)  Wed 10/28/2020 15:06:58
C:\@Work\Perl\monks
...
        $side,            ($x || $y),      $x ? $x : $y;
^Z
side effect 'default string'  logical-or 'default string'  ternary 'de
+fault string'

sub func {
    ...
    ...
    if ($x) { foo(); bar(); } else { fee(); fie(); }
    }

Win8 Strawberry 5.8.9.5 (32)  Wed 10/28/2020 22:49:24
C:\@Work\Perl\monks
...
^Z
x is true   'from main::bar' returned from true clause
x is false  'from main::fie' returned from false clause