Merge pull request #179 from djerius/dd_warn

ignore warnings issued by Data::Dumper

Author: tobyink

lib/Type/Tiny.pm

@@ -494,6 +494,7 @@ sub _dd {
 		local $Data::Dumper::Maxdepth = 2;
 		my $str;
 		eval {
+                        local $SIG{__WARN__} = sub { };
 			$str = Data::Dumper::Dumper( $value );
 			$str = substr( $str, 0, $N - 12 ) . '...' . substr( $str, -1, 1 )
 				if length( $str ) >= $N;