view Lib/Schema/Form/Container.pm @ 31:d59526f6310e

Small fixes to Test framework (correct handlinf of the compilation errors in the test units) Imported and refactored SQL DB schema from the old project
author Sergey
date Mon, 09 Nov 2009 01:39:16 +0300
parents 03e58a454b20
children 16ada169ca75
line wrap: on
line source

package Schema::Form::Container;
use Form::Container;
use Common;
use base qw(Schema::Form::Item);

BEGIN {
    DeclareProperty Children => ACCESS_READ;
}

sub CTOR {
    my ($this,%args) = @_;
    
    $this->SUPER::CTOR(@args{qw(Name isMulti Filters)});
    
    $this->{$Children} = [];
    
}

sub AddChild {
    my ($this,$child) = @_;
    
    not grep { $_->Name eq $child->Name } $this->Children or die new Exception("The item already exists",$child->Name);
    
    push @{$this->{$Children}},$child;
}

sub FindChild {
    my ($this,$name) = @_;
    
    my @result = grep { $_->Name eq $name} $this->Children;
    return $result[0];
}

sub Dispose {
    my ($this) = @_;
    
    delete $this->{$Children};
    
    $this->SUPER::Dispose;
}
1;