[sarabob]

Not quite - that was his initial implementation which he described as "That’s not good at all, but I was trying to work within Perl’s limitations". The corinna syntax is

  class Point {
    field ( $x, $y ) :param = 0;

    method clear () {
      ( $x, $y ) = ( 0, 0 );
    }
  }