[RostovOnDon.pm] Очумелые ифы.

[Ivan B. Serezhkin]

Rosotov-on-Don Perl Mongres wrote:
> Если по мне, то не очень :)
>
>     * двойное объявление переменной $dbfile, что ведет очистке
>       переменой во втром случае
>
Это я тот кусок кода собирал в почтовике по кусочкам.
>
>     * да-а, мы обсуждали на обеде в первый день YAPC, что shift -
>       быстрей работает
>
    быстрей всего хвостовой foreach =)
>
>     * доступ к конфе без указания хеша - мне твоя магия не понравилась :)
>
    Здря, когда их понапихано как грязи - очень удобно.
>
>     * CamelCase - вообще зло для Perl'а - perlstyle!
>
> Я бы твою функцию написал так:
>
> sub open_database {
>     my $self = shift;
>     for (CFG->TmpStorage.'/'.$self->{Name}.'.db') { # shift || ...
>         $self->OpenExistsDatabase($_) || 
> $self->RecoverBackupDatabase($_) || $self->CreateNewDatabase($_) || 
> die "$! $_";
>         return $self->{$_};
>     }
> }
Во точно, ор дай - самое то.

-- 
Ivan B. Serezhkin