projects
/
dbsrgits/DBIx-Class.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
dc99c963237a3dabe128d11cf5ce81b38810db8f
[dbsrgits/DBIx-Class.git]
/
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;