in reply to Try::Tiny - return in catch from sub

The doc for that module says it supports a return from the "try" block, doesn't mention the "catch" block - you could try setting a flag inside the catch (defined at the sub level) and return if that flag is set e.g. 

sub foo {
   my $error = 0;
   try {
      die;
   }
   catch {
      print "error\n";
      $error = 1;
   }
   return if $error;
   print "no_err\n";
}

[download]

I agree from a program flow point-of-view, it would be better if the return inside the catch worked as expected - it may be that the "catch" is itself similar to a sub, and the return is returning from that?

Replies are listed 'Best First'.
Re^2: Try::Tiny - return in catch from sub
by Anonymous Monk on Nov 26, 2010 at 15:03 UTC
    um, it says what try returns, what catch returns ... see this example 
      try {
    die_sometimes();
  } catch {
    # ...code run in case of error
  } finally {
    if (@_) {
      print "The try block died with: @_\n";
    } else {
      print "The try block ran without error.\n";
    }
  };

    [download]
    if you want to return from your sub from within a try/catch then use as directed 
     use TryCatch;

 sub foo {
   my ($self) = @_;

   try {
     die Some::Class->new(code => 404 ) if $self->not_found;
     return "return value from foo";
   }
   catch (Some::Class $e where { $_->code > 100 } ) {
   }
 }

    [download]
    Try::Tiny is for when TryCatch is too much, it is not a drop in replacement, mind the caveats
[reply]
[d/l]
[select]
      um, not in the CPAN documentation:

      This module provides bare bones try/catch/finally statements that are designed to minimize common mistakes with eval blocks, and NOTHING else. This is unlike TryCatch which provides a nice syntax and avoids adding another call stack layer, and supports calling return from the try block to return from the parent subroutine.

[reply]
        That says Try::Tiny does not support returning from try/catch/finally blocks like TryCatch, its how they're different
[reply]

In Section Seekers of Perl Wisdom