Select Code to Download

$ perl -MO=Deparse -e 'sub ONE { 1 } if (ONE) { print ONE if ONE }'
sub ONE {
...
    print 1
};
-e syntax OK

$ perl -MO=Deparse -e 'use v5.36; sub ONE () { 1 } if (ONE) { print ON
+E if ONE }'
sub BEGIN {
...
    print ONE() if ONE;
}
-e syntax OK

$ perl -MO=Deparse -e 'use v5.36; sub ONE :prototype() { 1 } if (ONE) 
+{ print ONE if ONE }'
sub ONE () {
...
    print 1
};
-e syntax OK

$ perl -MO=Deparse -e 'use v5.36; sub ONE :prototype() () { 1 } if (ON
+E) { print ONE if ONE }'
sub BEGIN {
...
    print ONE if ONE;
}
-e syntax OK

$ perl -MO=Deparse -e 'use constant ONE => 1; if (ONE) { print ONE if 
+ONE }'
use constant ('ONE', 1);
...
    print 1
};
-e syntax OK