Dziwne zachowanie z Moose, Try :: Tiny i TryCatch

Question

Właśnie zacząłem pracować z Moose i natknąłem się na dziwny problem, którego nie mogę zrozumieć. Poniższy kod:

#!/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"; 

produkuje:

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

Jednakże, jeśli mogę wymienić Try::Tiny z TryCatch, działa jako Przypuszczam, że powinien:

oops 

Nawet jeśli x jest poprawna wartość, na przykład 5, Try::Tiny nadal powoduje błąd undefined value.

Ponieważ cała dokumentacja łosia, którą czytałem używa Try::Tiny, jestem bardzo zdezorientowany, dlaczego ten kod nie działa. Czy robię tutaj coś całkowicie nie tak?

Answer 1

Try::Tiny wymaga średnik na końcu strofy try/catch:

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

Wynika to z realizacji Try::Tiny - try i catch oba są tylko funkcje.

Answer 2

try {...} catch {...} nie jest wbudowany (ponieważ jest dostarczany przez moduł). W Perl 5 oznacza to, że trzeba zakończyć je średnikiem tak:

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

nie mogę odpowiedzieć jak TryCatch udaje się obsłużyć brakujące średnik - ale jest to możliwe przy użyciu różnych czarną magią :)