# New Ticket Created by John Kingsley
# Please include the string: [perl #123016]
# in the subject line of all future correspondence about this issue.
# <URL: https://rt.perl.org/Ticket/Display.html?id=123016 >
Hi,
When I define a gist() method, it doesn't get called when I expected it to be
called.
This occurs when you call gist() not on the object directly, but instead
on another object which uses the class where the gist() is defined.
So if you are defining a gist() method on your class, you pretty much
need to do it on every class in your program for it to be useful.
I would argue it would be better to allow programmers to define gist
on an incremental fashion.
The problem is here in the core:
multi method gist(Mu:D:) { self.perl }
If a gist method isn't defined on a class, then it uses .perl for every
attribute,
even when attributes may have a .gist method.
Test below, with output.
cheers, John
$ perl6 -v
This is perl6 version 2014.09 built on MoarVM version 2014.09
Test:
================================
#!/usr/bin/env perl6
class Coord {
has Int $.x;
has Int $.y;
multi method gist(Coord:D:) {
"L($.x,$.y)";
}
}
class Route1 {
has Coord @.loc;
}
class Route2 {
has Coord @.loc;
multi method gist(Route2:D:) {
"Route2(" ~ @.loc.map({.gist}).join(", ") ~ ")";
}
}
my $r1 = Route1.new(loc => [Coord.new(x => 0, y => 0), Coord.new(x => 0, y =>
1)]);
note "Got: " ~ $r1.gist;
note "Exp: " ~ "Route1.new(loc => Array[Coord].new(L(0,0), L(0,1)))";
my $r2 = Route2.new(loc => [Coord.new(x => 0, y => 0), Coord.new(x => 0, y =>
1)]);
note "Got: " ~ $r2.gist;
note "Exp: " ~ "Route2(L(0,0), L(0,1))";
================================
Output:
================================
Got: Route1.new(loc => Array[Coord].new(Coord.new(x => 0, y => 0), Coord.new(x
=> 0, y => 1)))
Exp: Route1.new(loc => Array[Coord].new(L(0,0), L(0,1)))
Got: Route2(L(0,0), L(0,1))
Exp: Route2(L(0,0), L(0,1))
================================
