|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Artem Chuprina 2:5020/400 14 Nov 2003 14:58:55
To : Mikhail Polykovsky
Subject : Re: 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е указан код стратегии')
MP> Был и такой вариант.
MP> Can't use string ("Child") as a HASH ref while "strict refs" in use at 1.pl
MP> line 15.
А, ну да, конечно, это же new. То же самое, но $self вместо $this и после
bless, а не до.
--
Artem Chuprina
RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/122.256, ICQ: 13038757
--- ifmail v.2.15dev5.1
* Origin: Leninsky 45 home network (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
