Héritage et casting

Version imprimable

Héritage et casting

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:

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);

Bonjour.

Je ne suis pas un expert de perl6 mais j'imagine qu'avec une méthode on arrive à peu près à ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
#!/usr/bin/env perl6
 
use v6;
 
class Point2D {
    has $.x;
    has $.y;
}
 
class Pixel is Point2D {
    has $.c;
    method from_point( Point2D $p, Str $c ) {
        Pixel.new(
            x => $p.x,
            y => $p.y,
            c => $c,
        )
    }
}
 
my $p2 = Point2D.new(x => 1, y => 2);
dd $p2;
 
my $pi = Pixel.from_point($p2, 'red');
dd $pi;

Sinon j'ignore s’il y a une formulation toute faite dans perl6 pour faire ça :)

27/12/2020, 20h08
alainbb

Oui, c'est sûr que c'est possible.
Mais on passe quand même les attributs un à un. Donc si je rajoute un attribut à la classe Point2D, je dois aussi rajouter une ligne dans la méthode from_point.
Bon, en pratique mon objet a une dizaine d'attribut, donc si je n'ai pas d'autres solutions, je le ferai, mais bon, je me dit qu'il doit exister quelque chose d'autre...

Bonjour.

Alors peut être partir sur une composition plutôt qu'un héritage ?:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#!/usr/bin/env perl6
 
use v6;
 
class Point2D {
    has $.x;
    has $.y;
}
 
class Pixel {
    has Point2D $.coord;
    has $.c;
}
 
my $p2 = Point2D.new(x => 1, y => 2);
dd $p2;
 
my $pi = Pixel.new(coord => $p2, c => 'red');
dd $pi;
 
say "le pixel est (x=", $pi.coord.x, " y=", $pi.coord.y, ") avec la couleur ", $pi.c;

28/12/2020, 17h53
alainbb

Oui, si ce n'est que là, je vais devoir mettre des .coord un peu partout...
A priori, plutôt la première proposition...