Mercurial > pub > Impl
view Lib/IMPL/Test/Result.pm @ 276:8a5da17d7ef9
*IMPL::Class refactoring property definition mechanism (incomplete).
author | sergey |
---|---|
date | Thu, 31 Jan 2013 17:37:44 +0400 |
parents | 4267a2ac3d46 |
children |
line wrap: on
line source
package IMPL::Test::Result; use strict; use warnings; use parent qw(IMPL::Object IMPL::Object::Autofill IMPL::Object::Serializable); use IMPL::Class::Property; __PACKAGE__->PassThroughArgs; use constant { SUCCESS => 0, FAIL => 1, ERROR => 2 }; BEGIN { public property Name => prop_all; public property State => prop_all; public property Exception => prop_all; public property TimeExclusive => prop_all; public property TimeInclusive => prop_all; } sub CTOR { my ($this) = @_; $this->TimeInclusive(0) unless defined $this->TimeInclusive; $this->TimeExclusive(0) unless defined $this->TimeExclusive; } 1;