Mercurial > pub > Impl
annotate Lib/DOM.pm @ 126:c8dfbbdd8005
Several bug fixes
Forms support pre-alfa version
author | wizard |
---|---|
date | Fri, 11 Jun 2010 04:29:51 +0400 |
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; |