Увидел вот такой код внутри класса.
sub clear{
my $template = shift @args;
@{$self->{tokens}} = ();
foreach (map {$_->{name}} @{$template->{si}}){
while (my $r = shift @{$self->{$_}->{res}}){}
}
}
Заслуживает внимания способ очистки массива:
while (my $r = shift @a) {}
Клево же :-)
--
Andrew Shitov
______________________________________________________________________
[email protected] | http://shitov.ru
--
Moscow.pm mailing list
[email protected] | http://moscow.pm.org
