Mercurial > pub > Impl
view Lib/Schema/Form/Filter.pm @ 15:16795016e70b
Dom schema in progress
author | Sergey |
---|---|
date | Mon, 07 Sep 2009 17:30:55 +0400 |
parents | 03e58a454b20 |
children | 16ada169ca75 |
line wrap: on
line source
package Schema::Form::Filter; use strict; use Common; our @ISA = qw(Object); my %LoadedModules; BEGIN { DeclareProperty Name => ACCESS_READ; DeclareProperty Class => ACCESS_READ; DeclareProperty Args => ACCESS_READ; DeclareProperty Attributes => ACCESS_READ; DeclareProperty _Instance => ACCESS_READ; } sub CTOR { my ($this,%args) = @_; $this->{$Name} = $args{'Name'} or die new Exception('A filter name is required'); $this->{$Class} = $args{'Class'} or die new Exception('A filter class is required'); $this->{$Args} = $args{'Args'}; $this->{$Attributes} = {}; } sub Create { my ($this) = @_; if (not $LoadedModules{$this->{$Class}}) { eval "require $this->{$Class};" or die new Exception('Can\'t load the specified filter',$this->{$Name},$this->{$Class},$@); $LoadedModules{$this->{$Class}} = 1; } return $this->{$Class}->new($this->{$Name},$this->{$Attributes}{'message'},$this->Args); } sub Instance { my ($this) = @_; if (my $instance = $this->{$_Instance}) { return $instance; } else { return $this->{$_Instance} = $this->Create; } } 1;