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

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;
Commit	Line	Data
84e4e006	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;