Как мне наследовать функции в объекте и разрешить их использование из данного объекта?

Question

У меня проблемы с формулировкой этого вопроса, но как я могу сделать что-то вроде этого:

FileSpecClone.pm
package FileSpecClone;
use File::Spec::Unix;

sub new() {
bless {};
}

CloneScript.pl
use FileSpecClone;
$obj = FileSpecClone->new();
# A FileSpec::Unix subroutine
$obj->catpath('a','b','c');

Answer 1

Вы должны указать, что FileSpecClone должен наследовать методы File::Spec::Unix, установив переменную пакета @ISA.

package FileSpecClone;
use File::Spec::Unix;
<b>our @ISA = qw(File::Spec::Unix);</b>
...

Это задокументировано в perlobj.

Если у вас есть модуль parent (основной модуль начиная с v5.10), он будет обрабатывать детали настройки @ISA во время компиляции. (HT: daxim)

use parent 'File::Spec::Unix';