Select Code to Download

C:\Users\Peter>perl -Mstrict -le "my $x; $x = 0 or die $x"
0 at -e line 1.

C:\Users\Peter>perl -MO=Deparse -Mstrict -le "my $x; $x = 0 or die $x"
BEGIN { $/ = "\n"; $\ = "\n"; }
...
my $x;
die $x unless $x = 0;
-e syntax OK

C:\Users\Peter>perl -MO=Deparse -Mstrict -w -E "sub false { 0 } my $x=
+false or die 'Died'; say 'not reached';"
BEGIN { $^W = 1; }
...
die 'Died' unless my $x = false();
say 'not reached';
-e syntax OK

C:\Users\Peter>perl -Mstrict -w -E "sub false { 0 } my $x; $x=false or
+ die 'Died',$x; say 'not reached';"
Died0 at -e line 1.

C:\Users\Peter>perl -MO=Deparse -Mstrict -w -E "sub false { 0 } my $x=
+false || die 'Died',$x; say 'not reached';"
Global symbol "$x" requires explicit package name (did you forget to d
+eclare "my $x"?) at -e line 1.
...
$x = false() || die('Died', $x);
say 'not reached';
-e syntax OK

C:\Users\Peter>perl -MO=Concise,-terse,-exec -Mstrict -w -E "sub false
+ { 0 } my $x=false || die 'Died'; say 'not reached';"
OP (0x2a1c6b8) enter
...
LISTOP (0x2a75f28) say
LISTOP (0x2a75fe8) leave [1]
-e syntax OK