Cách tốt nhất để cấu trúc lại mô-đun Perl quái vật thành mô-đun con là gì?

Question

Tôi có một mô-đun Perl cho một dự án. Tôi có thể có một tá chương trình treo nó và rất nhiều chương trình là rác. Tôi đã không dành nhiều thời gian cá nhân gần gũi với DBI trước đây, vì vậy mà một phần là fixable, nhưng điều lớn là nó là lớn. Nghĩa đen 2KLOC.

Sẽ dễ dàng chia nhỏ chức năng này (hãy gọi nó là Dumb.pm) thành các mô-đun riêng biệt (Dumb :: FormTools, Dumb :: Database, v.v.) ngoại trừ, như tôi đã nói, có rất nhiều chương trình đã 'sử dụng Dumb;'

Tôi muốn xuất khẩu chức năng xuất khẩu Dumb :: Cơ sở dữ liệu thông qua Dumb mà không cần phải có sự thay đổi điều này hơn và hơn nữa:

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

Nó không phải là tôi đang ở trên đó. Nó chỉ là điều này có vẻ như cách ngu ngốc và không thích hợp để xử lý vấn đề. Tôi đã sử dụng lý do "Không biết không tốt hơn" một lần, và một khi thực sự nhiều hơn bạn nhận được. Cứu giúp?

Answer 1

Không chắc chắn bạn đang sử dụng nó như thế nào (hiện tại nó có xuất phương pháp không?), Nhưng bạn có thể thiết lập mô-đun con mới để cho phép bạn nhập các chức năng của chúng (sử dụng Trình xuất), và sau đó chỉ có mô-đun gốc rõ ràng nhập khẩu các mảnh vỡ bây giờ. Một cái gì đó như:

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

Rất khó để cung cấp cho bạn lời khuyên cụ thể vì các cơ sở mã khác nhau yêu cầu các chiến lược khác nhau. Tôi tái cấu trúc một mô-đun với các chương trình con 500 dòng khác với chương trình con với các chương trình con nhỏ và nhiều mã lặp lại. Nếu tôi cần phải thay đổi giao diện quá, có những chiến lược khác nhau cho điều đó.

1. Đưa mọi thứ vào kiểm soát nguồn. Bạn cần giữ lại các phiên bản gốc và trung gian.
2. Nếu bạn chưa có bộ thử nghiệm, hãy viết một bộ. Nhận phạm vi kiểm tra cao nhất có thể. Bộ thử nghiệm này là đường cơ sở để duy trì hành vi tương tự trong các phiên bản, lỗi và tất cả trong tương lai. Bạn có thể sẽ gặp phải một chương trình phụ thuộc vào một lỗi trong mô-đun ban đầu.
3. Bắt đầu lấy cắp dữ liệu. Tại mỗi bước, hãy kiểm tra xem phần còn lại vẫn vượt qua các thử nghiệm ban đầu và giao diện đã xuất bản vẫn dẫn đến hành vi tương tự.

Tôi nghĩ câu hỏi thực tế của bạn là "Làm cách nào để xuất sang mô-đun ban đầu đã tải Dumb?". Bạn có thể cung cấp quy trình import của riêng mình sử dụng phương thức import_to_level của Nhà xuất khẩu. Bạn có thể nhập vào các cấp cao hơn cấp độ trực tiếp đã tải bạn. Do đó, Dumb::Databaseimport có thể tải xuất khẩu của nó vào không gian tên đã tải Dumb mặc dù nó là Dumb tải Dumb::Database.

Answer 3

Tôi giả sử rằng Dumb.pm hiện đang sử dụng Trình xuất. Giả sử bạn không muốn đổi tên các hàm (chỉ cần tách chúng thành các mô-đun riêng biệt), bạn có thể giữ các định nghĩa hiện tại @EXPORT, nhập mọi thứ từ các mô-đun con của bạn và chỉ cần xuất lại các hàm.

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; 

Thẻ :all không được xác định theo mặc định. Bạn phải định nghĩa nó theo cách thủ công (trong mỗi mô-đun con).

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

Mặt khác, nếu một submodule không có @EXPORT_OK chức năng, sau đó bạn có thể bỏ tag :all và chỉ nói use Dumb::Submodule;.

Answer 4

Bạn cũng có thể muốn xem xét Sub::Exporter