Ensure the stack properly deals and warns on Null-Pattern exception objects

[dbsrgits/DBIx-Class.git] / t / lib / DBICTest / AntiPattern / NullObject.pm

diff --git a/t/lib/DBICTest/AntiPattern/NullObject.pm b/t/lib/DBICTest/AntiPattern/NullObject.pm
new file mode 100644 (file)
index 0000000..dc99c96
--- /dev/null
+++ b/t/lib/DBICTest/AntiPattern/NullObject.pm
@@ -0,0 +1,16 @@
+package DBICTest::AntiPattern::NullObject;
+
+use warnings;
+use strict;
+
+use overload
+  'bool'   => sub { 0 },
+  '""'     => sub { '' },
+  '0+'     => sub { 0 },
+  fallback => 1
+;
+
+our $null = bless {}, __PACKAGE__;
+sub AUTOLOAD { $null }
+
+1;