Moose: l'exportateur extensible provoque la disparition du constructeur?

Question

Voici quelque chose d'étrange que je ne peux pas comprendre. J'ai une classe Moose que je veux aussi exporter certaines constantes, en utilisant l'ancien module Exporter standard. Cependant, dès que j'ajoute extends Exporter à ma classe, pour une raison quelconque, la valeur par défaut constructeur Moose ne reçoit plus hérité et je reçois l'erreur fatale:

Can't locate object method "new" via package "MyApp::Dispatch" 

Voici un test simple qui illustre le problème.

package Foo; 
use Moose; 
use constant NARF => 'poit'; 
extends 'Exporter'; 

1; 

$ perl -I./lib -MFoo -e '$f=Foo->new' 
Can't locate object method "new" via package "Foo" at -e line 1. 

Retrait de la ligne extends fait le problème disparaît.

Ceci utilise Moose 0.93.

Answer 1

Il est supposé que vous héritez d'une autre classe Moose, donc il n'hérite pas de Moose :: Object. Je ne suis pas sûr de ce que la réponse standard serait: juste en ajoutant manuellement Moose :: Object ou en quelque sorte en utilisant MooseX :: NonMoose ou autre chose.

Mais Exporter fonctionne très bien même s'il n'est pas hérité; il suffit d'importer sa routine d'importation:

use Exporter "import"; 

Answer 2

Vous avez déjà eu la vraie réponse, mais la vraie question est pourquoi avez-vous un module qui exporte des choses et est un objet? C'est un design assez bizarre, et peut être une odeur de code.