How do I... create a new meta operator?

Hi,

quoting A12:
> infix_postfix_meta_operator:<=>             $x += 2;
> postfix_prefix_meta_operator:{'»'}         @array »++
> prefix_postfix_meta_operator:{'«'}         -« @magnitudes
> infix_circumfix_meta_operator:{'»','«'}   @a »+« @b

so will the following work?

  # Silly example
  sub infix_circumfix_meta_operator:{'->', '<-'} (
    Code &op,
    $left, $right,
  ) {
    op $left + 1, $right + 1;
  }

  say 2 ->+<- 3;  # 7
  say 2 ->*<- 3;  # 12


--Ingo

-- 
Linux, the choice of a GNU | Time sharing - the use of many people by
generation on a dual AMD   | the computer.  
Athlon!                    | 

• How do I... create a new meta operator? by Ingo Blechschmidt
• Re: How do I... create a new meta operator? by Luke Palmer
• Re: How do I... create a new meta operator? by =?ISO-8859-1?Q?=22TSa_=28Thomas_Sandla=DF=29=22?=