如何扩展 Moose 的自动编译指示导出？

Question

您知道 Moose 如何在导入过程中自动打开 strict 和 warnings 吗？我想通过在我的 Moose 类中打开 autodie 和 use feature ':5.10' 来扩展该行为。

我已经在 Moose::Exporter 中找到了 Moose 执行此操作的位置，它为 Moose 组装了一个自定义 import 子函数，调用 strict->import code> 和调用类的 warnings->import 。

但是，我无法找到一种以 Moose 式的方式扩展此导入方法的方法。

我应该如何处理这个问题？

http://www.friedo.com/bullwinkle.gif

Answer 1

我的方法是向后解决问题。

为什么不使用 ToolSet 创建一组包含 use 语句code>Moose 以及您的附加指令？

代码应该类似于：

 # MagicMoose.pm
 package MagicMoose;

 use base 'ToolSet'; 

 ToolSet->use_pragma( qw/feature :5.10/ ); # perl 5.10
 ToolSet->use_pragma( qw/autodie/ );

 # define exports from other modules
 ToolSet->export(
     'Moose'          => undef,       # get the defaults
 );

 1; # modules must return true

我还没有测试过这个。坦白说，我几天前才发现ToolSet，还没有机会尝试一下。 FWIW，评论是积极的。

Answer 2

由于模块可以通过多种方式将其函数导出到 use-ing 命名空间中，因此您可能需要进行一些代码挖掘才能实现每个所需的库。您所要求的并不是 Moose 特有的任何内容，因此您可以编写您或您公司自己的最佳实践模块，该模块将为您建立一组可供使用的标准，例如

use OurCompany::BestPractices::V1;

使用

package OurCompany::BestPractices::V1;

use strict;
use warnings;
use feature (':5.10');
require Fatal;
require Moose;

# Required for straight implementation of autodie code
our @ISA;
push @ISA, qw(
   Fatal
);

sub import {
   my $caller = caller;
   strict->import;
   warnings->import;
   feature->import( ':5.10' );
   Moose->import ({into => $caller});

   #autodie implementation copied from autodie source
   splice(@_,1,0,Fatal::LEXICAL_TAG);
   goto &Fatal::import;
}

1;

Autodie 会使事情变得更加复杂，因为它依赖于从 caller() 查找用户的包并使用 goto，但您也许可以通过更多测试找到更好的方法。您实现的越多，这个库可能就越复杂，但它可能具有足够高的价值，让您拥有可以在您或您公司的所有代码中使用的一次性解决方案。

Answer 3

Moose::Exporter 将允许您为您正在使用的糖类定义自定义import 方法。 MooseX::POE 多年来一直使用这个版本，但我认为这样做是一种“hackish”方式。查看 Moose::Exporter 的文档，以下内容应该大致是您所要求的

package Modern::Moose;
use Moose ();
use Moose::Exporter;

my ($import) = Moose::Exporter->build_import_methods(
    also => 'Moose',
    install => [qw(unimport init_meta)],
);

sub import { # borrowing from mortiz's answer for feature/mro
    feature->import( ':5.10' );
    mro::set_mro( scalar caller(), 'c3' );        
    goto &$import;
}

然后可以像这样使用

package MyApp;
use Modern::Moose;

has greeting => (is => 'ro', default => 'Hello');
sub run { say $_[0]->greeting } # 5.10 is enabled

Answer 4

您必须在包中定义一个名为 import 的子项，并导入其中的所有其他内容。

来自 Modern::Perl 的示例（您可能会查看的另一个策略模块）：

use 5.010_000;

use strict;
use warnings;

use mro     ();
use feature ();

sub import {
     warnings->import();
     strict->import();
     feature->import( ':5.10' );
     mro::set_mro( scalar caller(), 'c3' );
}

更新：抱歉，没有足够仔细地阅读问题。

扩展现有导入方法的一个好方法是在新包中编写自己的导入方法，并从那里调用 Moose 的导入方法。你可以通过子类化来做到这一点，也许你甚至可以自己使用 Moose ;-)