First page Back Continue Last page Overview Graphics

Perl 6: OOP

multi sub infix:+(Point $p, Num $d) {
return Point.new(
x => $p.x + $d,
y => $p.y + $d,
);
}
multi sub infix:+(Point $p, Point $q) {
return Point.new(
x => $p.x + $q.x,
y => $p.y + $q.y,
);
}
$p3 = $p1 + 0.5;
$p3 = $p1 + $p2;

Notes:

Definizione (e overloading) degli operatori: semplicissimo