Set $Carp::Internal{"Try::Tiny"}

diff --git a/lib/Try/Tiny.pm b/lib/Try/Tiny.pm
index 7c0256d..d8d006a 100644 (file)
--- a/lib/Try/Tiny.pm
+++ b/lib/Try/Tiny.pm
@@ -16,6 +16,8 @@ $VERSION = eval $VERSION;
 
 @EXPORT = @EXPORT_OK = qw(try catch);
 
+$Carp::Internal{+__PACKAGE__}++;
+
 sub try (&;$) {
        my ( $try, $catch ) = @_;