cách tốt nhất để chuỗi quá tải trên một thuộc tính Moose accessor là gì?

Question

Tôi có một lớp mà tôi muốn áp dụng quá tải chuỗi trên thuộc tính id của nó. Tuy nhiên, Moose không cho phép quá tải chuỗi trên các trình truy cập thuộc tính. Ví dụ:

package Foo; 
use Moose; 
use overload '""' => \&id, fallback => 1; 
has 'id' => (
    is => 'ro', 
    isa => 'Int', 
    default => 5, 
); 

package main; 
my $foo = Foo->new; 
print "$foo\n"; 

trên sẽ đưa ra một lỗi:

You are overwriting a locally defined method (id) with an accessor at C:/perl/site/lib/Moose/Meta/Attribute.pm line 927 

Tôi đã thử một vài tùy chọn để làm được việc này:

1. Đánh dấu idis => bare, và thay thế nó với người truy cập của riêng tôi: sub id {$_[0]->{id}}. Nhưng đây chỉ là một hack.

2. Có trình xử lý chuỗi quá tải sử dụng một phương pháp khác chỉ ủy quyền trở lại id: sub to_string {$_[0]->id}.

Tôi chỉ tự hỏi liệu có ai có cách làm tốt hơn không?

Answer 1

use overload '""' => sub {shift->id}, fallback => 1; 

Làm việc tốt cho tôi.

Answer 2

Tôi tin rằng bạn đang gặp lỗi vì \&id tạo trình giữ chỗ cho một phụ được xác định sau, vì Perl sẽ cần phải biết địa chỉ phụ sẽ được xác định khi nó được xác định để tạo tham chiếu đến nó. Moose có kiểm tra riêng của nó để cố gắng tránh ghi đè phương pháp bạn xác định và báo cáo điều này cho bạn.

Vì tôi nghĩ rằng những gì bạn thực sự muốn làm là gọi phương thức id khi đối tượng được sử dụng như một sting như vậy:

use overload '""' => 'id', fallback => 1; 

Từ overload documentation

Values specified as strings are interpreted as method names.