JEEN · May 30, 2011 05:45
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;
 }
	use Try::Tiny;

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

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

	try {
	shout();
	} catch {
	warn "WTF?";
	return 0;
	};
	return 1;
	}