note
Zaxo
<p>The Camel, 3ed. has an example:<code>
package LuckyDraw;
use overload
'<>' => sub {
my $self = shift;
return splice @$self, rand @$self, 1;
};
sub new {
my class = shift;
return bless [@_] -> $self;
}
1;
</code>The book does not discuss the rules, but I'm sure this example breaks some of them. To work with <tt>while (<$foo>){}</tt>, I think the return value should be true in 'bool' context until the source is exhausted. To cope with <tt>my @shuffle=<$deck>;</tt> and with slices, a [wantarray] clause should be there to shuffle and return the whole $deck, leaving $deck empty.</p>
<p>The rules you observe should only be the ones you <em>need</em> to observe.</p>
<p>After Compline,<br/>Zaxo</p>
8076
168794