将函数/子例程导入子类

Question

我正在使用Moops,我想要这样的工作:

use Moops;

class A {
  fun f {
    print "yay,f!\n";
  }
}

class B extends A {
  fun g {
    f();
  }
}
B->g(); # should print 'yay, f!'

相反,这会产生:

Undefined subroutine &B::f called at static-functions-lexical-scope.pl line 11.

我可以通过继承Exporterin A和一个use语句来"修复"这个B:

class A extends Exporter {
  our @EXPORT = qw(f);
  fun f {
    print "yay,f!\n";
  }
}

class B extends A {
  use A;
  fun g {
    f();
  }
}

这看起来有点笨拙,但如果A在另一个文件中定义它会变得更糟.然后我必须在这之外添加第二个use A(require不会这样做)B:

use  A;
class B extends A {
  use A;
  fun g {
    f();
  }
}

有没有办法让词汇包含(导出)功能更优雅？

Answer 1

首先,感谢使用Moops!:-)

其次,在测试和示例中命名类"B"可能是个坏主意.BPerl附带了一个名为的模块,Moops实际上使用它!

来到你的实际问题,一般来说,与课程,你应该思考method而不是fun.方法调用尊重继承; 函数调用没有.

use Moops;

class AAA {
  method f {
    say "yay,f!";
  }
}

class BBB extends AAA {
  method g {
    $self->f;
  }
}

BBB->g;

输出:

yay,f!

如果你想方便函数库既符合现有AAA和BBB以后,分裂这些方便的功能到一个单独的包:

use Moops;

namespace MyUtils {
  use Exporter::Shiny qw( f );
  fun f {
    say "yay,f!";
  }
}

class AAA {
  use MyUtils -all;
  method m1 {
    f();
  }
}

class BBB extends AAA {
  use MyUtils -all;
  method m2 {
    f();
  }
}

BBB->m1;
BBB->m2;

输出:

yay,f!
yay,f!

你甚至可以进一步从内部扩展Moops.以下示例定义了:utils可添加到类的特征:

use Moops;

namespace MyUtils {
  use Exporter::Shiny qw( f );
  fun f {
    say "yay,f!";
  }
}

role Moops::TraitFor::Keyword::utils {
   around generate_package_setup {
     return (
       $self->$next(@_),
       'use MyUtils -all;',
     );
   }
}

class AAA :utils {
  method m1 {
    f();
  }
}

class BBB extends AAA :utils {
  method m2 {
    f();
  }
}

BBB->m1;
BBB->m2;

与前一个示例相同的输出.