|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Yury Kopyl 2:5020/400 13 Oct 2003 13:07:21
To : Mikhail Polykovsky
Subject : Re: Снимите с ручника
--------------------------------------------------------------------------------
Mikhail Polykovsky -> "Снимите с ручника" :
MP> Я написал класс, создал экземпляр. При отсутствии use strict все
MP> отлично работает. Если строки (2) и следующую за ней поменять
MP> местами, тоже все работает. А вот в таком виде, как ниже, выдает
MP> ошибку
MP> Can't use string ("Mod") as a HASH ref while "strict refs" in use at
MP> Mod.pm line 29.
MP> BEGIN failed--compilation aborted at 1.pl line 6.
MP> Почему?? Ведь если перед строкой (1) поставить return Dumper($self),
MP> он говорит, что $VAR1 = bless( {}, 'Mod' );
MP> Вот модуль ==================================================
MP> package Mod;
MP> use Data::Dumper;
MP> sub new{
MP> my $self = {};
MP> bless $self;
MP> return $self;
MP> }
Перепиши констурктор так, заодно и поддержка наследования появиться.
sub new{
my $class_name=shift;
my $self = {};
bless $self,$class_name;
}
Yury Kopyl aka hrg | http://id.totem.ru | "бысто сп..ил и ушел - называется
нашел..."
--- ifmail v.2.15dev5
* Origin: IAC Samara-Internet, Ltd. (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: Снимите с ручника 
