<div>проблемы вроде бы и нет</div><div>Как уже и говорилось ниже, вот пример:</div><div><p>package Test;</p><p>use overload (<br /> '<>' => sub {<br /> warn 'IterCall' . $_[0]->{iter};<br /> return $_[0]->{iter}++ > 100 ? undef : 1;<br /> }<br />);</p><p>sub new {<br /> bless {}, Test;<br />}</p><p>package main;</p><p>my $test = new Test;<br />while (<$test>) {</p><p>}</p></div><div> </div><div>02.02.2016, 23:04, "Sergey Aleynikov" <sergey.aleynikov@gmail.com>:</div><blockquote type="cite"><p>Добрый день,<br /><br /></p><blockquote> overload говрит, что можно перегуржать <><br /> "Iteration<br /> If <> is overloaded then the same implementation is used for both the<br /> read-filehandle syntax <$var> and globbing syntax<${var}>.<br /> "<br /><br /> но как??</blockquote><p><br />Точно так же, как и любой другой overload:<br /><br />use 5.020;<br />use overload "<>" => sub {state $i=10; $i?--$i:undef};<br />my $f=bless {};<br /><br />warn $_ while (<$f>);<br /><br />Best regards,<br />Sergey Aleynikov</p><span>-- <br />Moscow.pm mailing list<br /><a href="mailto:moscow-pm@pm.org">moscow-pm@pm.org</a> | <a href="http://moscow.pm.org/">http://moscow.pm.org</a><br /></span></blockquote>