Bir canavar Perl modülünü alt modüller halinde yeniden düzenlemenin iyi bir yolu nedir?

Question

Bir proje için Perl modülüm var. Bende bir düzine program var ve bir sürü çöp var. Daha önce DBI ile çok yakın kişisel zaman geçirmemiştim, bu yüzden bu parça düzeltilebilir, ama büyük olan şey büyük. Tam anlamıyla 2KLOC.

Bu işlevin ayrılmasının (Dumb.pm olarak adlandırın) ayrı modüllere (Dumb :: FormTools, Dumb :: Database, vb.) Ayrılması kolay olurdu. 'Dumb'ı kullan;'

Ben tekrar tekrar bu varyasyonları var kalmadan Dumb aracılığıyla Dumb :: veritabanı'nın ihraç işlevleri vermek istiyoruz

:

sub my_dumb_function { return Dumb::Database::my_dumb_function(@_) ; } 

Ben yukarıda olduğumu değil. Bu, sorunun ele alınmasının aptal ve adaletsiz şekli gibi gözüküyor. Bir keresinde "daha iyi bilme" mazeretini kullandım ve bir zamanlar senden gerçekten daha fazla. Yardım et?

Answer 1

Şu anda nasıl kullandığınızdan emin değil misiniz (şu anda yöntemleri dışa aktarıyor mu?), Ancak işlevlerini içe aktarmanıza (Exporter kullanarak) izin vermek için yeni alt modülleri kurabilir ve sonra özgün modülü açıkça almalısınız. şimdi parçalanmış parçaları içe aktar. Şunlar gibi:

package Dumb; 

use Dumb::Database qw(my_dumb_function); 

1; 

package Dumb::Database; 

use base qw(Exporter); 

our @EXPORT_OK = qw(my_dumb_function); 

sub my_dumb_function { 1; } 

1; 

Answer 2

Size özel tavsiyelerde bulunmak zordur, çünkü farklı kod tabanları farklı stratejiler gerektirir. Bir alt modülün ve tekrarlanan kodun birçoğundan farklı olarak 500 satırlık altprogramlarla bir modülü yeniden düzenlerim. Arabirimi de değiştirmem gerekirse, bunun için farklı stratejiler var.

1. Her şeyi kaynak kontrolüne alın. Orijinal ve ara sürümleri tutmaya devam etmelisiniz.
2. Zaten bir test paketiniz yoksa, bir tane yazın. Test kapsamını olabildiğince yüksek tutun. Bu test paketi, gelecekteki sürümlerde, hatalarda ve hepsinde aynı davranışı korumak için temeldir. Muhtemelen orijinal modülde bir hatayı etkileyen bir programla karşılaşacaksınız.
3. Bilgisayarı kapatmaya başlayın. Her adımda, kalan kısımların hala orijinal testleri geçtiğini ve yayınlanan arayüzün hala aynı davranışla sonuçlandığını kontrol edin.

Aslında asıl sorunuzu "Dumb yüklenen orijinal modüle nasıl dışa aktarırım?" Diye düşünüyorum. Exporter'ın import_to_level yöntemini kullanan kendi import rutinini sağlayabilirsiniz. Sizi yükleyen acil durumdan daha yüksek seviyelere alabilirsiniz. Dumb::Databaseimport, Dumb::Database yüklüyse Dumb öğelerini Dumb yüklenen ad alanına yükleyebilir.

Answer 3

Dumb.pm'in şu anda Exporter'ı kullandığını farz ediyorum. İşlevleri yeniden adlandırmak istemediğinizi varsayarak (sadece bunları ayrı modüllere ayırın), mevcut @EXPORT tanımlarını saklayabilir, alt modüllerinizden her şeyi içe aktarabilir ve işlevleri yeniden dışa aktarabilirsiniz.

package Dumb; 
use Dumb::FormTools ':all'; 
use Dumb::Database ':all'; 

use Exporter 'import'; 

our @EXPORT = ...; # Unchanged from original version 
our @EXPORT_OK = ...; # Unchanged from original version 

1; 

:all etiketi

varsayılan olarak tanımlanmadı. Bunu manuel olarak tanımlamanız gerekir (her alt modülde).bir alt modül yok @EXPORT_OK fonksiyonları varsa

Öte yandan

our %EXPORT_TAGS = (all => [ @EXPORT, @EXPORT_OK ]); 
# or, for a module that doesn't export anything by default: 
our %EXPORT_TAGS = (all => \@EXPORT_OK); 

, o zaman :all etiketi atlayıp sadece use Dumb::Submodule; söylüyorlar.

Answer 4

Ayrıca doğru dürüst bir cevap yazmaya vaktim yok Sub::Exporter