t/lib/DBICTest/AntiPattern/NullObject.pm

   1 package DBICTest::AntiPattern::NullObject;
   2
   3 use warnings;
   4 use strict;
   5
   6 use overload
   7   'bool'   => sub { 0 },
   8   '""'     => sub { '' },
   9   '0+'     => sub { 0 },
  10   fallback => 1
  11 ;
  12
  13 our $null = bless {}, __PACKAGE__;
  14 sub AUTOLOAD { $null }
  15
  16 1;