in reply to Bug in eval in pre-5.14

Note that Try::Tiny doesn't provide more than the "or do" pattern
It actually does, it preserves the value of $@, the following modifications to your script demonstrate the difference: 
...;
eval { die "Foo!" };

# Exception details lost.
eval {
    my $o2 = 'My::Obj'->new;
    die "Exception!";
1 } or do {
    warn "Caught with or: $@";
};

say "\$\@ after eval or do: $@";

# not same as above.
use Try::Tiny;

eval { die "Foo!" };

try {
    my $o3 = 'My::Obj'->new;
    die "Exception!";
} catch {
    warn "Caught with Try::Tiny: $_";
};

say "\$\@ after try catch: $@";

[download]

Replies are listed 'Best First'.
Re^2: Bug in eval in pre-5.14
by choroba (Cardinal) on Jul 14, 2016 at 15:57 UTC
    Solvable by localizing $@: 
    eval { die "Foo!" };

# Exception details not lost.
{   local $@;
    eval {
        my $o2 = 'My::Obj'->new;
        die "Exception!";
        1 } or do {
            warn "Caught with or: $@";
        };
}

warn "\$\@ after eval or do: $@";

    [download]

    ($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,

    [download]
[reply]
[d/l]
[select]

In Section Meditations