only color the actual warning/error

also clean up a couple more edge cases

1 files changed, 10 insertions, 0 deletions

diff --git a/t/005-object.t b/t/005-object.t
new file mode 100644
index 0000000..3a88dd3
--- /dev/null
+++ b/t/005-object.t
@@ -0,0 +1,10 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Test::More tests => 1;
+
+use Carp::Always::Color;
+
+my $err = bless({}, 'My::Error::Class');
+eval { die $err };
+is($@, $err, "exception objects aren't affected");