package ContainerObject
@ISA = qw()

sub new
my ($module, @a) = @_;
return $this;

sub DESTROY
my $this = shift;

sub SetParameters
my ($this, @a) = @_;