Làm thế nào tôi có thể thực hiện công việc perltidy với Phương pháp :: Chữ ký?

Question

Tôi đang sử dụng Eclipse kết hợp với EPIC để viết mã Perl của mình. Tôi đã định cấu hình EPIC để sử dụng Perltidy với kiểu "-pbp" (perl best practices) để định dạng mã của mình.

Tính năng này không hoạt động tốt khi sử dụng Method::Signatures 'named parameters. Ví dụ: func (:$arg1, : $arg2) được định dạng là func (: $arg1, : $arg2) mang lại lỗi.

Ngoài ra, func từ khóa không được công nhận như sub do đó thụt lề là sai.

Liên quan đến this câu hỏi chưa được trả lời trước đó và this bài đăng chéo.

Answer 1

Bạn không thể, trừ khi bạn thực hiện PPI, đó là những gì Perltidy sử dụng cho hầu hết công việc của mình, nhận biết các mô-đun chữ ký khác nhau như MooseX::Method::Signatures, Method::Signatures::Simple hoặc Method::Signatures.

Giải pháp hợp lý có thể là không chạy Perltidy trên tất cả mã của bạn, nhưng chỉ trên các phần của mã bạn vừa mới viết và muốn định dạng theo một cách nào đó. Bằng cách đó bạn có thể dễ dàng bỏ qua việc chạy nó trên bất kỳ chữ ký phương thức nào và nó chỉ xử lý các phương thức của phương thức thay thế.

Answer 2

Perl :: Tidy/perltidy không tận dụng PPI, nó xảy ra trước PPI khoảng 9 năm ( http://sourceforge.net/projects/perltidy/ nói đã đăng ký: 2000/12/23)

Answer 3

Bạn có thể thay đổi kịch bản perlcritic với trước và bộ lọc bài đăng. Các changelog cung cấp các ví dụ sau

Perl::Tidy::perltidy(
    prefilter => sub { $_ = $_[0]; s/^method (.*)/sub $1 \#__METHOD/gm; return $_ }, 
    postfilter => sub { $_ = $_[0]; s/^sub (.*?)\s* \#__METHOD/method $1/gm; return $_ } 
); 

Perlcritic bây giờ sẽ đối xử với method như một sub cho các mục đích của định dạng. Chúng tôi có thể làm tương tự với func. Tôi đã sửa đổi của tôi/usr/local/bin/perlcritic để làm việc với func như sau:

#!/usr/bin/perl 

eval 'exec /usr/bin/perl -S $0 ${1+"$@"}' 
    if 0; # not running under some shell 
package main; 

use Perl::Tidy; 

my $arg_string = undef; 

# give Macs a chance to provide command line parameters 
if ($^O =~ /Mac/) { 
    $arg_string = 
     MacPerl::Ask('Please enter @ARGV (-h for help)', 
     defined $ARGV[0] ? "\"$ARGV[0]\"" : ""); 
} 

Perl::Tidy::perltidy(
    argv => $arg_string, 
    prefilter => sub { $_ = $_[0]; s/\W\Kfunc\((.*)/sub($1 \#__FUNC/gm; return $_ }, 
    postfilter => sub { $_ = $_[0]; s/\W\Ksub\((.*?)\s* \#__FUNC/func($1/gm; return $_ } 
); 

Answer 4

Trong khi đó một module mới tồn tại trên CPAN mà giải quyết vấn đề này. Được gọi là Perl::Tidy::Sweetened và cung cấp tập lệnh perltidier.

Nó cũng sử dụng các móc prefilter và postfilter của Perl::Tidy, nhưng bạn không cần phải tự lo về điều đó.