Mercurial > pub > Impl
annotate Lib/DOM.pm @ 30:dd4d72600c69
ORM in works
author | Sergey |
---|---|
date | Tue, 03 Nov 2009 16:31:47 +0300 |
parents | 03e58a454b20 |
children | 16ada169ca75 |
rev | line source |
---|---|
0 | 1 package DOM; |
2 require DOM::Site; | |
3 use Common; | |
4 | |
5 my $GlobalSite; | |
6 | |
7 sub Site { | |
8 my $self = shift; | |
9 | |
10 $GlobalSite = construct DOM::Site if not $GlobalSite; | |
11 return $GlobalSite; | |
12 } | |
13 | |
14 sub Cleanup { | |
15 $GlobalSite->Dispose if $GlobalSite; | |
16 undef $GlobalSite; | |
17 } | |
18 | |
19 1; |