Bonjour,
J'aimerais savoir comment on peut "caster" un objet.
C'est à dire que si j'ai dans le programme qui suit un point, je puisse le transformer en Pixel, sans devoir passer (ligne 17) les attributs 1 à 1.
Les 4 dernières lignes ne fonctionnant évidemment pas.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23 #!/usr/bin/env perl6 use v6; class Point2D { has $.x; has $.y; } class Pixel is Point2D { has $.c; } my Point2D $p2 .= new(x => 1, y => 2); dd $p2; my Pixel $pi .= new(x => $p2.x, y => $p2.y, c => 'red'); dd $pi; #my Pixel $pi2 = $p2; #my Pixel $pi2 = $p2.clone(); #my Pixel $pi2 = $p2.Pixel; #my Pixel $pi2 = Pixel.new($p2);
Partager