view Lib/DOM.pm @ 16:75d55f4ee263

Окончательная концепция описания схем и построения DOM документов
author Sergey
date Tue, 08 Sep 2009 17:29:07 +0400
parents 03e58a454b20
children 16ada169ca75
line wrap: on
line source

package DOM;
require DOM::Site;
use Common;

my $GlobalSite;

sub Site {
    my $self = shift;
    
    $GlobalSite = construct DOM::Site if not $GlobalSite;
    return $GlobalSite;
}

sub Cleanup {
    $GlobalSite->Dispose if $GlobalSite;
    undef $GlobalSite;
}

1;