|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Andrey Sapozhnikov 2:5020/400 07 Feb 2003 18:23:50
To : Artem Chuprina
Subject : Re: died at (eval 1) line 1
--------------------------------------------------------------------------------
Artem Chuprina wrote:
> AS> sub AUTOLOADER {
> AS> my $self = shift;
> AS> my ($method = $AUTOLOAD) =~ s/^.*:://;
> AS> my $ret = eval { $self->{RETCODE}->$method(@_) };
> AS> die "ID: $self->{ID} $@" if $@;
> AS> bless {RETCODE => $ret, ID => $self->{ID}}, ref($self};
> AS> }
>
> Понятно. Это тоже сводится к лишним eval'ам во время выполнения.
Их можно убрать заменив на проверку RETCODE, в частных случаях...
> Здравствуй, Anatoly Moskovsky.
> AM> Может я не не до конца понял условия, но не подойдет ли нечто такое:
>
> AM> my $sub = eval q'#line 1 "some_name"
> AM> sub {my $a = 0; 5/$a;}
> AM> ';
> AM> $sub->();
>
> Йес! Мэни сэньксов.
И как таки тут определить по выводимой ошибке в
выражении:
$fr->parent->parent->...
"сущность" этого fr если первый parent вернул undef?
Эту "сущность" ведь нужно протаскивать из объекта в
объект по цепочке выполнения методов. Кажется это я
ихначально не понял чего требуется, да?...
Андрей
--- ifmail v.2.15dev5
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
