rulinux.net - Статьи - Development - Локализация $@ в DESTROY http://rulinux.net/ rulinux.net - Статьи - Development - Локализация $@ в DESTROY http://rulinux.net/ http://rulinux.net/rss_icon.png Локализация $@ в DESTROY https://rulinux.net/message.php?newsid=34858&page=1#109460 https://rulinux.net/message.php?newsid=34858&page=1#109460 Wed, 01 Jun 2011 18:31:00 +0400 Недавно обнаружил, что локализовывать переменную $@ в DESTROY методе бывает очень полезно. Даже, похоже, сабж можно поместить в мануал как best practice (или я невнимательно читал мануалы, и там такое уже есть?). Без лишних слов:

perl

#!perl -w
 
use strict;
use warnings;
 
package Animal;
 
sub new
{
            my $class = shift;
            return bless { 'a' => shift, }, ref($class) || $class;
}
 
sub moo
{
            my $self = shift;
 
            print "$self->{'a'} says: moo\n";
}
 
sub DESTROY
{
            my $self = shift;
            eval { $self->moo; };
}
 
1;
 
package main;
 
eval {
            my $a = Animal->new('Cow');
            $a->bark;
};
 
if ($@)
{
            print "Cow cannot bark\n";
} else {
            print "Cow can bark\n";
}

 

Программа выведет: Cow says: moo Cow can bark

Ну, наверное, вам уже стало понятно почему корова может гавкать?! Тут всё довольно просто и прозрачно. А вот диагностировать подобную проблему в сложной системе с кучей используемых модулей и фреймворков довольно сложно. На это можно убить даже не несколько часов, а несколько дней. Так что, рекомендую локализовывать $@ в DESTROY методе ваших классов.

По этой же причине значению, которое вернул eval, вообще нельзя доверять (ты же не контролируешь код всех модулей, которые используешь), и стоит использовать Try::Tiny или что-то подобное.

(с) этот текст - найденная на просторах интернета копипаста

]]>