Mercurial > pub > Impl
annotate Lib/DOM.pm @ 66:f47f93534005
Documentation
author | wizard |
---|---|
date | Thu, 18 Mar 2010 17:58:33 +0300 |
parents | 16ada169ca75 |
children |
rev | line source |
---|---|
49 | 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; |