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

[Ivan B. Serezhkin]

Привет.
Что скажете  ?
Ну окромя того, что КамельКейс - это плохо ?
sub OpenDatabase { # returns open dbfile with backup restoring workaround
    my ($self,$dbfile)=@_;
    my $dbfile||=CFG->TmpStorage.'/'.$self->{Name}.'.db';
    (
     $self->OpenExistsDatabase($dbfile)
     or $self->RecoverBackupDatabase($dbfile)
     or $self->CreateNewDatabase($dbfile)
    ) and return $self->{$dbfile};
    die "$! $dbfile ";
}


-- 
Ivan B. Serezhkin