package com::oclib::perl::lang::Root;

use strict;
use warnings;
use utf8;
my $string_utf = "Нормализатор utf ©";

sub new {
 my $invocant = shift;
 my $class = ref($invocant) || $invocant;
 my $self = {
             classCreated => "20050927",
			 classCreator => "http://www.oclib.com/",
			 classEditors => "http://www.oclib.com/,http://www.krassotkin.ru/",	
			 classHistory => "20070211,20060617,20051012,20050927",
			 classIndexLocation => "http://www.oclib.com/library/com/oclib/perl/lang/root/",
			 classLocation => "http://www.oclib.com/library/com/oclib/perl/lang/Root.pm",
			 className => "Root",
			 classNamespace => "com::oclib::perl::lang::Root",
			 classVersion => "20070211", 
			 classVersionIndexLocation => "http://www.oclib.com/library/com/oclib/perl/lang/root/20070211/", 
			 classVersionLocation => "http://www.oclib.com/library/com/oclib/perl/lang/root/20070211/Root.pm",
			 
			 debugging => 0,
			 tracing => 0,
			 
             @_}; 
 bless($self, $class);
 return $self;
}

sub get {my $self = shift; my $name = shift; return $self->{$name};}

sub Get {return shift->get(shift);}

sub getAttribute {return shift->get(shift);}

sub GetAttribute {return shift->get(shift);}

sub getParam {return shift->get(shift);}

sub GetParam {return shift->get(shift);}

sub set {my $self = shift; my $name = shift; $self->{$name} = shift; return $self->{$name};}

sub Set {return shift->set(shift);}

sub setAttribute {return shift->set(shift);}

sub SetAttribute {return shift->set(shift);}

sub setParam {return shift->set(shift);}

sub SetParam {return shift->set(shift);}
                                       
1;