Try::Tiny not returning error

Audar has asked for the wisdom of the Perl Monks concerning the following question:

Hi All,
I am trying to add some error handling to my code and am using Try::Tiny to do so. I notice that my try/catch block dosen't capture the error I have forced in my code, to test out the catch block. I would appreciate any guidance here!

sub set_delim {
  # Add the delimiter to list if it's not already there
  undef $delim;
  try {
        if (! exists $delimiters{$delim}) {
          $choose_delim_be->insert('end', "$delim");
          $delimiters{$delim} = 'unk';
        } else {
          if ($delimiters{$delim} ne 'unk') {
              $delim = chr($delimiters{$delim});
          }
        }
  } catch {
        $msg = "Error occured while loading delimiters : $_";
        chomp($msg);
        print $msg;
        handleErr ($msg, 1006,0);    
  };
  
}
[download]

Here, of course $delim is undefined and I do see an error in my command line, however its not the error text I am specifying. I get this -
Use of uninitialized value $delim in exists at FMGB2_6.pm line 646.

Can someone please explain?

Comment on Try::Tiny not returning error Select or Download Code

Replies are listed 'Best First'.
Re: Try::Tiny not returning error by dsheroh (Monsignor) on Feb 13, 2014 at 08:47 UTC
`Use of uninitialized value` is a warning, not a fatal error. Try::Tiny only catches fatal errors.	[reply] [d/l]
Re^2: Try::Tiny not returning error by Audar (Novice) on Feb 13, 2014 at 15:02 UTC
Gottit! thank you.	[reply]
Re: Try::Tiny not returning error by tangent (Parson) on Feb 13, 2014 at 04:38 UTC
You are undefining $delim and then trying to use it, perl itself is giving you the 'uninitialized value' warning (see perllexwarn). Try instead: `delete $delimiters{$delim};` [download] Update: no that won't throw an exception in this context	[reply] [d/l]
Re^2: Try::Tiny not returning error by Audar (Novice) on Feb 13, 2014 at 04:43 UTC
Hi, I just tried that, but it didn't give an error at all, not even from Perl. If I DID want to capture the Perl errors themselves, is that possible though?	[reply]
Re^3: Try::Tiny not returning error by tangent (Parson) on Feb 13, 2014 at 05:01 UTC
Sorry, I didn't read your post properly. I don't think Try::Tiny handles warnings (just exceptions) but you can catch them: `sub set_delim { undef $delim; local $SIG{__WARN__} = sub { die() }; try { ...` [download] Or you could turn warnings into exceptions: `sub set_delim { undef $delim; use warnings 'FATAL' => 'all'; try { ...` [download]	[reply] [d/l] [select]
Re^4: Try::Tiny not returning error by Audar (Novice) on Feb 13, 2014 at 14:58 UTC
Re^4: Try::Tiny not returning error by Audar (Novice) on Feb 13, 2014 at 15:03 UTC