Если по мне, то не очень :)<br><ul><li>двойное объявление переменной $dbfile, что ведет очистке переменой во втром случае<br></li><li>да-а, мы обсуждали на обеде в первый день YAPC, что shift - быстрей работает</li><li>доступ к конфе без указания хеша - мне твоя магия не понравилась :)</li>
<li>CamelCase - вообще зло для Perl'а - perlstyle!</li></ul>Я бы твою функцию написал так:<br><br>sub open_database {<br> my $self = shift;<br> for (CFG->TmpStorage.'/'.$self->{Name}.'.db') { # shift || ...<br>
$self->OpenExistsDatabase($_) || $self->RecoverBackupDatabase($_) || $self->CreateNewDatabase($_) || die "$! $_";<br> return $self->{$_};<br> }<br>}<br><br>если все-таки нужен второй параметр, то для for - shift || ...<br>
<br><div class="gmail_quote">3 июня 2008 г. 3:10 пользователь Ivan B. Serezhkin <<a href="mailto:ivan@serezhkin.com">ivan@serezhkin.com</a>> написал:<br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Привет.<br>
Что скажете ?<br>
Ну окромя того, что КамельКейс - это плохо ?<br>
sub OpenDatabase { # returns open dbfile with backup restoring workaround<br>
my ($self,$dbfile)=@_;<br>
my $dbfile||=CFG->TmpStorage.'/'.$self->{Name}.'.db';<br>
(<br>
$self->OpenExistsDatabase($dbfile)<br>
or $self->RecoverBackupDatabase($dbfile)<br>
or $self->CreateNewDatabase($dbfile)<br>
) and return $self->{$dbfile};<br>
die "$! $dbfile ";<br>
}<br>
<font color="#888888"><br>
<br>
--<br>
Ivan B. Serezhkin<br>
<br>
_______________________________________________<br>
RostovOnDon-pm mailing list<br>
<a href="mailto:RostovOnDon-pm@pm.org">RostovOnDon-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rostovondon-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rostovondon-pm</a><br>
</font></blockquote></div><br><br clear="all"><br>-- <br>С уважением,<br> Анатолий Шарифулин.