Mercurial > pub > Impl

comparison Lib/IMPL/Web/View/Metadata/FormMeta.pm @ 364:82b6c967bcf1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
sync, working on metadata
author cin
date Fri, 29 Nov 2013 16:33:07 +0400
parents d67e45705be5
children 7c621bb95e53
comparison
equal deleted inserted replaced
363:d67e45705be5 364:82b6c967bcf1
1 package IMPL::Web::View::Metadata::FormMeta; 1 package IMPL::Web::View::Metadata::FormMeta;
2 use strict; 2 use strict;
3 3
4 use IMPL::Const qw(:prop); 4 use IMPL::Const qw(:prop);
5 use IMPL::declare { 5 use IMPL::declare {
6 require => {
7 Exception => 'IMPL::Exception',
8 ArgException => '-IMPL::InvalidArgumentException'
9 },
6 base => [ 10 base => [
7 'IMPL::Object' => undef 11 'IMPL::Web::View::Metadata::BaseMeta' => '@_'
8 ], 12 ],
9 props => [ 13 props => [
10 decl => PROP_RO, 14 decl => PROP_RO,
11 schema => PROP_RO, 15 schema => PROP_RO,
12 nodes => PROP_RO, 16 nodes => PROP_RO,
13 errors => PROP_RO 17 errors => PROP_RO
14 ] 18 ]
15 }; 19 };
16 20
21 sub CTOR {
22 my ($this,$provider,$model,$type,$args) = @_;
23
24 if ($args) {
25 $this->$_($args->{$_}) foreach grep $args->{$_}, qw(decl schema nodes errors);
26 }
27
28 $this->$_() || die ArgException->new($_ => "The $_ is required")
29 foreach qw(decl schema);
30 }
31
32 sub GetOwnErrors {
33
34 }
17 35
18 36
19 1; 37 1;
20 38
21 __END__ 39 __END__