Mercurial > pub > Impl
view Lib/IMPL/Test/Result.pm @ 76:b1652a158b2b
Web::DOM
author | wizard |
---|---|
date | Wed, 31 Mar 2010 16:17:13 +0400 |
parents | 16ada169ca75 |
children | 4267a2ac3d46 |
line wrap: on
line source
package IMPL::Test::Result; use strict; use warnings; use base 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;