Mercurial > pub > Impl

comparison Lib/DOM.pm @ 0:03e58a454b20

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Создан репозитарий
author Sergey
date Tue, 14 Jul 2009 12:54:37 +0400
parents
children 16ada169ca75
comparison
equal deleted inserted replaced
-1:000000000000 0:03e58a454b20
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;