|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Mikhail Polykovsky 2:5020/400 13 Nov 2003 19:26:28
To : Artem Chuprina
Subject : Re[2]: Hаследование?
--------------------------------------------------------------------------------
MP>> sub set_err{
MP>> my ($self, $msg, $state, $result) = @_;
MP>> if( $self ){ (15)
MP>> $self->{'_errstr'} = $msg;
MP>> }else{
MP>> $errstr = $msg;
MP>> }
MP>> return $result; # usually undef;
MP>> sub new {
MP>> my ($this, $strategy) = @_;
MP>> return set_err(undef, 'Hе указан код стратегии')
AC> return $this->set_err('Hе указан код стратегии')
Был и такой вариант.
Can't use string ("Child") as a HASH ref while "strict refs" in use at 1.pl line
15.
--
Михаил Полыковский
http://copi.ru/27690/
Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru
--- ifmail v.2.15dev5.1
* Origin: UTC (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re[2]: Hаследование? 
