49
+ − 1 package IMPL::Test::Result;
+ − 2 use strict;
+ − 3 use warnings;
+ − 4
166
+ − 5 use parent qw(IMPL::Object IMPL::Object::Autofill IMPL::Object::Serializable);
49
+ − 6 use IMPL::Class::Property;
+ − 7
+ − 8 __PACKAGE__->PassThroughArgs;
+ − 9
+ − 10 use constant {
+ − 11 SUCCESS => 0,
+ − 12 FAIL => 1,
+ − 13 ERROR => 2
+ − 14 };
+ − 15
+ − 16 BEGIN {
+ − 17 public property Name => prop_all;
+ − 18 public property State => prop_all;
+ − 19 public property Exception => prop_all;
+ − 20 public property TimeExclusive => prop_all;
+ − 21 public property TimeInclusive => prop_all;
+ − 22 }
+ − 23
+ − 24 sub CTOR {
+ − 25 my ($this) = @_;
+ − 26
+ − 27 $this->TimeInclusive(0) unless defined $this->TimeInclusive;
+ − 28 $this->TimeExclusive(0) unless defined $this->TimeExclusive;
+ − 29 }
+ − 30
+ − 31
+ − 32 1;