[Perl 6] Problem with multi methods

blazar has asked for the wisdom of the Perl Monks concerning the following question:

Ok, this is basically a repost of a part of Re^3: [Perl 6] Object methods on the fly?, in which I probably asked too many further side questions, all of which OT wrt the main thread. So I'm asking again here in the hope that it will have more visibility...

I tried the following in pugs:

pugs> my @array does role {
....>     multi method insert ($x) { @.push($x) if none(self) eqv $x }
....>     multi method insert (@x) { @.insert($_) for @x }
....> } = 1..5;
(1, 2, 3, 4, 5)
pugs> @array.insert($_) for 2..6;
pugs> say @array
123456
Bool::True
pugs> @array.insert(3..7);
pugs> say @array
12345634567
Bool::True
[download]

I would have expected the second say() to similarly print 1234567. (If I use *@x, pugs "hangs", instead.) Did I miss something or is perhaps this only a specific implementation, namely pugs, problem?

Update: TimToady answered in the context of the original thread:

Finally, I think the failure of the multi form is just hitting some things that aren't completely implemented in pugs yet.

Comment on [Perl 6] Problem with multi methods Select or Download Code

Replies are listed 'Best First'.
Re: [Perl 6] Problem with multi methods by chromatic (Archbishop) on Jul 23, 2007 at 17:25 UTC
Are you sure `none(self)` does what you want? I'm not sure it automatically flattens the array contents.	[reply] [d/l]
Re^2: [Perl 6] Problem with multi methods by blazar (Canon) on Jul 23, 2007 at 17:55 UTC
Are you sure none(self) does what you want? I'm not sure it automatically flattens the array contents. No, I'm not really sure: actually $Larry wrote `unless any(self)`. I gathered my version would have been the same and actually it appears to work for one method. I reverted to $Larry's choice, but it doesn't seem to make a difference: `pugs> my @array does role { ....> multi method insert ($x) { @.push($x) unless any(self) eqv $x } ....> multi method insert (@x) { @.insert($_) for @x } ....> } = 1..5; pugs> @array.insert($_) for 2..6; pugs> say @array 123456 Bool::True pugs> @array.insert(3..7); pugs> say @array 12345634567 Bool::True` [download]	[reply] [d/l] [select]