|
49
|
1 package IMPL::Test::Result;
|
|
|
2 use strict;
|
|
|
3 use warnings;
|
|
|
4
|
|
|
5 use base qw(IMPL::Object IMPL::Object::Autofill IMPL::Object::Serializable);
|
|
|
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;
|
