родитель
СОДЕРЖАНИЕ
ИМЯ
родитель - Установить отношения ISA с базовыми классами во время компиляции
СИНТАКСИС
package Baz;
use parent qw(Foo Bar); ОПИСАНИЕ
Позволяет загрузить один или несколько модулей, одновременно настраивая наследование из этих модулей. В основном аналогично
package Baz;
BEGIN {
require Foo;
require Bar;
push @ISA, qw(Foo Bar);
} По умолчанию каждый базовый класс должен находиться в отдельном файле. Если вы хотите иметь подкласс и его базовый класс в одном файле, вы можете указать parent не загружать никакие модули, используя переключатель %%%CODE_BLOCK_5%%:
package Foo;
sub exclaim { "I CAN HAS PERL" }
package DoesNotLoadFooBar;
use parent -norequire, 'Foo', 'Bar';
# will not go looking for Foo.pm or Bar.pm Это эквивалентно следующему коду:
package Foo;
sub exclaim { "I CAN HAS PERL" }
package DoesNotLoadFooBar;
push @DoesNotLoadFooBar::ISA, 'Foo', 'Bar'; Это также полезно в случае, когда пакет находится в файле с другим именем:
package MyHash;
use Tie::Hash;
use parent -norequire, 'Tie::StdHash'; Это эквивалентно следующему коду:
package MyHash;
require Tie::Hash;
push @ISA, 'Tie::StdHash'; Если вы хотите загрузить подкласс из файла, который require не будет считать допустимым именем файла (то есть, он не заканчивается ни на .pm ни на .pmc), используйте следующий код:
package MySecondPlugin;
require './plugins/custom.plugin'; # contains Plugin::Custom
use parent -norequire, 'Plugin::Custom'; ИСТОРИЯ
Этот модуль был разветвлён от base для удаления накопившегося в нём мусора.
ЗАМЕЧАНИЯ
СМОТРИТЕ ТАКЖЕ
- base
- parent::versioned
-
Разветвление родителя, предоставляющее проверку версий в модулях родительского класса.
АВТОРЫ И СОТРУДНИКИ
Rafaël Garcia-Suarez, Bart Lateur, Max Maischein, Anno Siegel, Michael Schwern
ОБЛАДАТЕЛЬ
Max Maischein corion@cpan.org
Copyright (c) 2007-2017 Max Maischein <corion@cpan.org> Основано на идее base.pm, которая была представлена в Perl 5.004_04.
ЛИЦЕНЗИЯ
Этот модуль выпущен на тех же условиях, что и сам Perl.
© 1993–2021 Larry Wall and others
Licensed under the GNU General Public License version 1 or later, or the Artistic License.
The Perl logo is a trademark of the Perl Foundation.
https://perldoc.perl.org/5.36.0/parent