Try::Tiny gotcha

gistfile1.pl

#!/usr/bin/env perl
use Modern::Perl;

use Test::More;
use Test::Fatal qw/dies_ok/;

use Try::Tiny;

dies_ok { wrong_try_catch()  } "First is dies";
dies_ok { wrong_try_catch2() } "Second should die too";

sub wrong_try_catch {
    try {
        "bla";
    }
    catch {
        die "catch";
    }    ## <-- ';' is omitted

    say 1;

    return 1;
}

sub wrong_try_catch2 {
    try {
        "bla";
    }
    catch {
        die "catch";
    }    ## <-- ';' is omitted

    return 2;
}