JEEN · May 30, 2011 05:46
diff --git a/try-tiny.pl b/try-tiny.pl
 use Try::Tiny;

 print yell();
 sub shout {
  die "AAA";
 }

 sub yell {
  my ($cat) = @_;

  try {
     shout();
  } catch {
    warn "WTF?";
    return 0;
  };
  return 1;
 }
 __END__
 $ perl try-tiny.pl 
 WTF? at try-tiny.pl line 14.
 1
	use Try::Tiny;

	print yell();
	sub shout {
	die "AAA";
	}

	sub yell {
	my ($cat) = @_;

	try {
	shout();
	} catch {
	warn "WTF?";
	return 0;
	};
	return 1;
	}
	__END__
	$ perl try-tiny.pl
	WTF? at try-tiny.pl line 14.
	1