Exception::Class & Try::Tiny

Hi! I'm looking at Exception::Class documentation and it recommends to 
use Try::Tiny module (for non Moose code).

But problem with Try::Tiny is that in catch block caller needs to always 
check if cough exception is really blessed object from package 
Exception::Class::Base. So to correctly handle exception, something like 
this needs to be used for every try { ... } catch { ... } usage.

try { ... } catch {
	if ( blessed $_ && $_->isa('Exception::Class::Base') ) {
		...
	} else {
		...
	}
}

I found on cpan module Exception::Class::TryCatch which automatically 
create Exception::Class::Base object from any non-object exception, but 
with this module caller must use eval yourself and correctly. How to use 
eval correctly is written in Try::Tiny BACKGROUND documentation: 
https://metacpan.org/pod/Try::Tiny#BACKGROUND

So.. what do you think would be useful for more people cpan module which

1) will use Tiny::Try

2) and if exception is not Exception::Class::Base object then
   automatically create it (like Exception::Class::TryCatch)

?

Expected usage:

try {
	some_unsafe_code()
} catch {
	# $_ is always Exception::Class::Base or derived
	process($_) if $_->isa('My::Exception');
	...
}

• Exception::Class & Try::Tiny by pali
• Re: Exception::Class & Try::Tiny by Lukas Mai
• Re: Exception::Class & Try::Tiny by pali