Stringify exceptions using Devel::PartialDump

This is much friendlier than just stringifying refs. Anyone using structured
exceptions will thank you.

Makefile.PL

@@ -9,6 +9,7 @@ requires 'strictures';
 requires 'true';
 requires 'Try::Tiny';
 requires 'Sub::Exporter';
+requires 'Devel::PartialDump';
 
 test_requires  'Test::Most';
 

lib/Try/Tiny/WarnCaught.pm

@@ -3,6 +3,7 @@ our $VERSION = 0.01;
 use strictures;
 use true;
 use Try::Tiny ();
+use Devel::PartialDump 'warn';
 use Sub::Exporter -setup => {
     exports => [qw(catch)],
     groups => {
@@ -13,7 +14,7 @@ use Sub::Exporter -setup => {
 sub catch (&;@) {
     my $cb = shift;
     Try::Tiny::catch {
-        warn "Caught exception: $_";
+        warn "Caught exception: ", $_;
         $cb->(@_);
     };
 }

t/01_warn.t

@@ -6,16 +6,30 @@ use Test::Most;
 use Try::Tiny;
 use Try::Tiny::WarnCaught;
 
-my $should_warn = sub {
-    try {
-        die "hello world";
-    } catch {
-        1;
-    }
-};
+{
+    my $should_warn = sub {
+        try {
+            die "hello world";
+        } catch {
+            1;
+        }
+    };
 
-warning_is { $should_warn->() } "Caught exception: hello world",
-    "catch block warns automatically now"
-;
+    warning_is { $should_warn->() } "Caught exception: hello world",
+        "catch block warns automatically now";
+}
+
+{
+    my $should_warn = sub {
+        try {
+            die { foo => 42 };
+        } catch {
+            1;
+        }
+    };
+
+    warning_is { $should_warn->() } "Caught exception: { foo: 42 }",
+        "exceptions get dumped partially";
+}
 
 done_testing;