Comportamento anomalo con Moose, Try :: Tiny e TryCatch

Question

Ho appena iniziato a lavorare con Moose e ho incontrato uno strano problema che non riesco a capire. Il codice seguente:

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

produce:

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

Tuttavia, se sostituisco Try::Tiny con TryCatch, agisce come Supporrei dovrebbe:

oops 

Anche se x è il il valore corretto, ad esempio 5, Try::Tiny produce ancora l'errore undefined value.

Poiché tutta la documentazione di Moose che ho letto utilizza Try::Tiny, sono molto confuso sul motivo per cui questo codice non funziona. Sto facendo qualcosa di completamente sbagliato qui?

Answer 1

Try::Tiny richiede un punto e virgola alla fine di una strofa try/catch:

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

Ciò è dovuto alla realizzazione di Try::Tiny - try e catch sono entrambi a pochi funzioni.

Answer 2

try {...} catch {...} non è un builtin (poiché è fornito da un modulo). In Perl 5 questo significa che si deve finire con un punto e virgola in questo modo:

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

Non posso rispondere come TryCatch riesce a gestire il punto e virgola mancante - ma è possibile utilizzando vari magia nera :)