diff options
author | Paul "LeoNerd" Evans <leonerd@leonerd.org.uk> | 2022-12-10 15:45:10 +0000 |
---|---|---|
committer | Paul Evans <leonerd@leonerd.org.uk> | 2022-12-19 17:27:55 +0000 |
commit | abf1aa2b099b9613c2e6901d3f61eb8da735d934 (patch) | |
tree | bf21b4d273643874ea55af93ce951dd6d46f84bb /ext | |
parent | e53949d80e5b3c49f5b33071e988970b50cf8f66 (diff) | |
download | perl-abf1aa2b099b9613c2e6901d3f61eb8da735d934.tar.gz |
Define OP_HELEMEXISTSOR, a handy LOGOP shortcut for HELEM existence tests
This op is constructed using an OP_HELEM as the op_first and any scalar
expression as the op_other.
It is roughly equivalent to the following perl code:
exists $hv{$key} ? $hv{$key} : OTHER
except that the HV and the KEY expression are evaluated only once, and
only one hv_* function is invoked to both test and obtain the value. It
is therefore smaller and more efficient.
Likewise, adding the OPpHELEMEXISTSOR_DELETE flag turns it into the
equivalent of
exists $hv{$key} ? delete $hv{$key} : OTHER
Diffstat (limited to 'ext')
-rw-r--r-- | ext/Opcode/Opcode.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/ext/Opcode/Opcode.pm b/ext/Opcode/Opcode.pm index 9f28f900bf..5b0092d1bb 100644 --- a/ext/Opcode/Opcode.pm +++ b/ext/Opcode/Opcode.pm @@ -1,4 +1,4 @@ -package Opcode 1.62; +package Opcode 1.63; use strict; @@ -332,6 +332,7 @@ invert_opset function. list lslice splice push pop shift unshift reverse cond_expr flip flop andassign orassign dorassign and or dor xor + helemexistsor warn die lineseq nextstate scope enter leave |