Mercurial > pub > Impl

comparison Lib/IMPL/Object/PublicSerializable.pm @ 194:4d0e1962161c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Replaced tabs with spaces IMPL::Web::View - fixed document model, new features (control classes, document constructor parameters)
author cin
date Tue, 10 Apr 2012 20:08:29 +0400
parents d1676be8afcc
children 4ddb27ff4a0b
comparison
equal deleted inserted replaced
193:8e8401c0aea4 194:4d0e1962161c
13 return $class->new(@$data); 13 return $class->new(@$data);
14 } 14 }
15 } 15 }
16 16
17 sub save { 17 sub save {
18 my ($this,$ctx) = @_; 18 my ($this,$ctx) = @_;
19 19
20 my %seen; 20 my %seen;
21 21
22 my $val; 22 my $val;
23 23
24 defined($val = $this->$_()) and $ctx->AddVar($_,$val) foreach 24 defined($val = $this->$_()) and $ctx->AddVar($_,$val) foreach
25 map $_->Name,$this->get_meta( 25 map $_->Name,$this->get_meta(
26 'IMPL::Class::PropertyInfo', 26 'IMPL::Class::PropertyInfo',
27 sub { 27 sub {
28 $_->Access == IMPL::Class::Member::MOD_PUBLIC and 28 $_->Access == IMPL::Class::Member::MOD_PUBLIC and
29 $_->canGet and 29 $_->canGet and
30 not $_->ownerSet and 30 not $_->ownerSet and
31 not $seen{$_->Name} ++ 31 not $seen{$_->Name} ++
32 }, 32 },
33 1 33 1
34 ); 34 );
35 } 35 }
36 36
37 1; 37 1;