Kendi pragma'mı eski perl'e eklerken doğru yolu

Question

Gerçekten eski bir perl sistemi (yaklaşık 8-10 yaş) var, ama büyük bir tane (100+ pm dosyaları). Şimdi bir sebepten dolayı "yeniden biçimlendirmek" gerekiyor - adım adım. i halletmek istediğini ilk şey

biri her modülün içine benim pragma eklemek geçerli:

use MySw::PerlDefs; 

Modern::Perl gibi şeyler içeriğinin nasıl olacağının ve/veya bu soruya gibi: How to make "use My::defaults" with modern perl & utf8 defaults?

QST1: Önerilen yol nedir?

1. yüzden

    
   package MySw::SomePackage; 
   use MySw::PerlDefs;   #my new "pragma" 
   

2. olsun veya paket ilanı sonrasında BEGIN blokta kapalı PerlDefs katacak use MySw::PerlDefs; ekleyerek? ör .:

    
   package MySw::SomePackage; 
   BEGIN {use MySw::PerlDefs;} #my new "pragma" in the BEGIN block 
   

Sorular:

• tercih edilen yöntem nedir?
• Farklılıklar ve/veya dezavantajlar nelerdir?

Ps: Ben derleme zamanında exectuted BEGIN'e daha anlıyorum ama yukarıdaki bağlamda - bu "basit kullanım" daha iyi değil mi?

Answer 1

BEGIN bloğundaki kullanımı sarmak işe yaramaz; Sözcüksel pragmaların etkisi, bloğun sonunun ötesine uzanmayacaktır.

karşılaştır:

$ perl -e'BEGIN{ use Modern::Perl; } $x=42; print "$x\n"' 
42 
$ perl -e'use Modern::Perl; $x=42; print "$x\n"' 
Global symbol "$x" requires explicit package name at -e line 1. 
Global symbol "$x" requires explicit package name at -e line 1. 
Execution of -e aborted due to compilation errors.