Mercurial > pub > Impl
diff Lib/Schema/Form/Item.pm @ 49:16ada169ca75
migrating to the Eclipse IDE
author | wizard@linux-odin.local |
---|---|
date | Fri, 26 Feb 2010 10:49:21 +0300 |
parents | 03e58a454b20 |
children |
line wrap: on
line diff
--- a/Lib/Schema/Form/Item.pm Fri Feb 26 01:43:42 2010 +0300 +++ b/Lib/Schema/Form/Item.pm Fri Feb 26 10:49:21 2010 +0300 @@ -1,41 +1,41 @@ -package Schema::Form::Item; -use strict; -use Common; -our @ISA = qw(Object); - -BEGIN { - DeclareProperty Name => ACCESS_READ; - DeclareProperty isMulti => ACCESS_READ; - DeclareProperty Filters => ACCESS_READ; - DeclareProperty Attributes => ACCESS_READ; -} - -sub CTOR { - my ($this,$name,$multi,$filters,$attributes) = @_; - - $this->{$Name} = $name or die new Exception("A name is required for the item"); - $this->{$isMulti} = defined $multi ? $multi : 0; - $this->{$Filters} = $filters || []; - $this->{$Attributes} = $attributes || {}; -} - -sub AddFilter { - my ($this,$filter) = @_; - - push @{$this->{$Filters}}, $filter; -} - -sub isMandatory { - my ($this) = @_; - - return ( grep $_->Name eq 'mandatory', $this->Filters ) ? 1 : 0 ; -} - -sub GetFirstFilter { - my ($this,$filterName) = @_; - - my ($filter) = grep $_->Name eq $filterName, $this->Filters; - return $filter; -} - -1; +package Schema::Form::Item; +use strict; +use Common; +our @ISA = qw(Object); + +BEGIN { + DeclareProperty Name => ACCESS_READ; + DeclareProperty isMulti => ACCESS_READ; + DeclareProperty Filters => ACCESS_READ; + DeclareProperty Attributes => ACCESS_READ; +} + +sub CTOR { + my ($this,$name,$multi,$filters,$attributes) = @_; + + $this->{$Name} = $name or die new Exception("A name is required for the item"); + $this->{$isMulti} = defined $multi ? $multi : 0; + $this->{$Filters} = $filters || []; + $this->{$Attributes} = $attributes || {}; +} + +sub AddFilter { + my ($this,$filter) = @_; + + push @{$this->{$Filters}}, $filter; +} + +sub isMandatory { + my ($this) = @_; + + return ( grep $_->Name eq 'mandatory', $this->Filters ) ? 1 : 0 ; +} + +sub GetFirstFilter { + my ($this,$filterName) = @_; + + my ($filter) = grep $_->Name eq $filterName, $this->Filters; + return $filter; +} + +1;