Mercurial > pub > Impl
view Lib/IMPL/Test/Result.pm @ 166:4267a2ac3d46
Added Class::Template,
Rewritten SQL::Schema
'use parent' directive instead of 'use base'
author | wizard |
---|---|
date | Sat, 23 Apr 2011 23:12:06 +0400 |
parents | 16ada169ca75 |
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;