Hành vi kỳ quặc với Moose, Thử :: Tiny, và TryCatch

Question

Tôi vừa mới bắt đầu làm việc với Moose và đã gặp phải một vấn đề kỳ lạ mà tôi không thể hiểu được. Các mã sau đây:

#!/usr/bin/env perl 
use strict; 
use warnings; 
use Try::Tiny; 

{ 
    package Foo; 
    use Moose; 
    has x => (is => 'ro', isa => 'Int'); 
} 

my $f; 
try { 
    $f = Foo->new(x => 'x'); 
} catch { 
    die "oops\n"; 
} 
print $f->x . "\n"; 

sản xuất:

Can't call method "x" on an undefined value at m2.pl line 19. 

Tuy nhiên, nếu tôi thay Try::Tiny với TryCatch, nó đóng vai trò như tôi sẽ giả định nó nên:

oops 

Thậm chí nếu x là giá trị chính xác, giả sử 5, Try::Tiny vẫn sản xuất lỗi undefined value.

Vì tất cả tài liệu Moose tôi đã đọc đều sử dụng Try::Tiny, tôi rất bối rối vì sao mã này không hoạt động. Tôi đang làm điều gì đó hoàn toàn sai ở đây?

Answer 1

Try::Tiny đòi hỏi một dấu chấm phẩy ở cuối bài kệ try/catch:

try { 
    $f = Foo->new(x => 'x'); 
} catch { 
    die "oops\n"; 
}; 

Điều này là do việc thực hiện Try::Tiny - try và catch đều chỉ chức năng.

Answer 2

try {...} catch {...} không phải là nội trang dựng sẵn (vì nó được cung cấp bởi một mô-đun). Trong perl 5 này có nghĩa là bạn phải kết thúc nó bằng dấu chấm phẩy như vậy:

try { 
    $f = Foo->new(x => 'x'); 
} catch { 
    die "oops\n"; 
}; 
print $f->x . "\n"; 

tôi không thể trả lời như thế nào TryCatch quản lý để xử lý các dấu chấm phẩy thiếu - nhưng nó có thể sử dụng nhiều ma thuật đen :)