Pourquoi ne pas accepter accepter -MCarp = verbose?

Question

j'ai couru ce script de test:

use strict; 
use warnings; 
use Test::More tests => 3; 
use Carp; 

ok(1<2); 
pass(); 
fail(); 
croak "example"; 

en utilisant la ligne de commande prove -MCarp=verbose -v foo.pl, et a obtenu les erreurs suivantes:

Subroutine App::Prove::verbose redefined at /opt/ActivePerl-5.12/lib/App/Prove.pm line 407 
     App::Prove::_load_extension('App::Prove=HASH(0x683718)', 'Carp=verbose') called at /opt/ActivePerl-5.12/lib/App/Prove.pm line 419 
     App::Prove::_load_extensions('App::Prove=HASH(0x683718)', 'ARRAY(0x683850)') called at /opt/ActivePerl-5.12/lib/App/Prove.pm line 481 
     App::Prove::run('App::Prove=HASH(0x683718)') called at /opt/ActivePerl-5.12/bin/prove line 11 
Undefined subroutine &Carp::verbose called at /opt/ActivePerl-5.12/lib/App/Prove.pm line 484. 

Si je cours à l'aide perl -MCarp=verbose foo.pl il n'y a pas de problème. Qu'est-ce qui cause prove de rejeter la carpe prolixe? Comment puis-je obtenir une callstack complète de mes tests quand ils croak sans remplacer global croak à confess?

Answer 1

prove -M ne semble pas être équivalent à perl -M. Il semble charger une extension de preuve, ne pas charger un module dans vos tests. Les docs ne sont pas clairs sur ce point, mais le code dans App :: Prove ne l'est pas. Donc prove -MCarp=verbose importe Carp :: verbose dans App :: Prove causant le problème ci-dessus. Un moyen simple de faire ce que vous voulez est d'utiliser la variable d'environnement PERL5OPT plus Carp::Always qui transformera tous les avertissements et les matrices (et les carpes et croassements) en traces de pile.

PERL5OPT=-MCarp::Always prove ... 

Ceci a l'avantage supplémentaire de fonctionner dans n'importe quelle situation, avec ou sans preuve.

Answer 2

Preuve a un ensemble d'arguments de ligne de commande très différent de Perl, étant un programme complètement différent?

Preuve -M est, je crois, destiné à permettre des pragmas; En fait, Carp exporte une référence vers un sous-programme verbose() qui interfère avec le fonctionnement interne de la preuve.

Vous pouvez créer un petit module comme celui-ci:

# Verbme.pm 
use Carp; 
$Carp::Verbose = 1; 

et lui permettre de prouver:

prove -MVerbme -v foo.pl 

bien.

Answer 3

carpe utilise un mécanisme EXPORT_FAIL de l'exportateur pour gérer la verbose « option » à import, ce qui est à peu près tort, comme Exporter::Heavy essayera encore d'attribuer *Carp::verbose à *{"$callerpkg::verbose"} en dépit du fait qu'il était « échoué ». Malheureusement, App::Prove a un sous-verbeux dont il dépend pour fonctionner, et votre option -M provoque l'importation à App::Prove. Je ne sais pas qui est à blâmer ici - pour Carp (ab) en utilisant EXPORT_FAIL de cette façon, ou Exporter::Heavy pour ne pas enlever des choses de @imports si elle est dans la liste @failed, mais ensemble, ils sont le casser :)