Mercurial > pub > Impl
view Lib/IMPL/Object/PublicSerializable.pm @ 266:89179bb8c388
*corrected TTView to handle plain (and undefined) values
*added URL generating methods to Application::Action
*fixed the compare validatior for schemas
author | cin |
---|---|
date | Mon, 14 Jan 2013 03:10:06 +0400 |
parents | 4d0e1962161c |
children | 4ddb27ff4a0b |
line wrap: on
line source
package IMPL::Object::PublicSerializable; use strict; use IMPL::Class::Member; sub restore { my ($class,$data,$refSurrogate) = @_; if ($refSurrogate) { $refSurrogate->callCTOR(@$data); return $refSurrogate; } else { return $class->new(@$data); } } sub save { my ($this,$ctx) = @_; my %seen; my $val; defined($val = $this->$_()) and $ctx->AddVar($_,$val) foreach map $_->Name,$this->get_meta( 'IMPL::Class::PropertyInfo', sub { $_->Access == IMPL::Class::Member::MOD_PUBLIC and $_->canGet and not $_->ownerSet and not $seen{$_->Name} ++ }, 1 ); } 1;