Hello v_melnink,

Update: I did not see Athanasius reply. Possibly is something that you are looking for.

I am not really sure what you are trying to achieve but a few points that I have noticed.

Are you referring to Try::Tiny or to Error::TryCatch?

I can not understand what you are trying to achieve so I created a small sample of code that probably it will not help you but probably can help you describe what you are truing to do.

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

sub normal {

    open my $normal , ">" , "normal.txt" or die $!;

    print $normal "This is just a sample\n";

    close $normal or die $!;

}

normal();

sub handle {

    open my $handle , ">" , "handle.txt";
    my $open = try {
        die $!;
    } catch {
    warn "caught error: $_"; # not $@
    };

    print "\$open: ".$open."\n";

    print $handle "This is another sample\n";

    close $handle;
    my $close = try {
        die $!;
    } catch {
    warn "caught error: $_"; # not $@
    };

    print "\$close: ".$close."\n";
}

handle();

__END__

caught error: Inappropriate ioctl for device at try::tint.pl line 22.
$open: 1
caught error: Inappropriate ioctl for device at try::tint.pl line 33.
$close: 1
[download]

Take a look also on alternative modules, Error::TryCatch and Error. Maybe you fill find some functionality that you where looking for.