Do not warn on false-but-blessed exceptions

lib/Test2/Tools/Exception.pm

@@ -21,7 +21,7 @@ sub dies(&) {
 
     return undef if $ok;
 
-    unless ($err) {
+    unless (ref($err) or $err) {
         my $ctx = context();
         $ctx->alert("Got exception as expected, but exception is falsy (undef, '', or 0)...");
         $ctx->release;
@@ -139,6 +139,12 @@ disagree with this, and think the actual line of the failing test is
 more important. Ultimately, though L<Test::Fatal> cannot be changed, people
 probably already depend on that behavior.
 
+L<Test::Fatal> will die if the exception is a false value (C<undef>, C<''>, or
+C<0>). C<dies()> will instead warn and return the false exception. Additionally,
+C<dies()> will B<not> warn when the exception is a blessed object that evaluates
+to false (e.g. via overloaded boolification), since this is a legitimate use
+case for objects that use boolean overloading to indicate success or failure.
+
 =head1 SOURCE
 
 The source code repository for Test2-Suite can be found at

t/modules/Tools/Exception.t

@@ -42,6 +42,19 @@ is(
 
 like($err, qr/abc/, '$@ has the exception');
 
+# Test that blessed objects overloading to false do not trigger the falsy warning
+{
+    package FalseException;
+    use overload bool => sub { 0 }, '""' => sub { "false exception object" }, fallback => 1;
+    sub new { bless {}, shift }
+}
+
+my $false_obj = FalseException->new();
+
+my $got;
+is(warning { $got = dies { die $false_obj } }, undef, "no warning for blessed false exception");
+isa_ok($got, ['FalseException'], "dies() returns the blessed false exception object");
+
 like(
     warning { dies { 1 } },
     qr/Useless use of dies\(\) in void context/,