perl -le 'use blib; use Alter qw(ego); $f = {ego($a, { 1, 2 }),1}'
current: 166 # OP_METHOD
next: 5      # OP_CONST
array context

perl -le 'use blib; use Alter qw(ego); $f = 1,ego($a, { 1, 2 }),1'
current: 166 # OP_METHOD
next: 141    # OP_JOIN
array context