Mercurial > pub > Impl

comparison lib/IMPL/Test/Result.pm @ 407:c6e90e02dd17 ref20150831

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
renamed Lib->lib
author cin
date Fri, 04 Sep 2015 19:40:23 +0300
parents
children 9335cf010b23
comparison
equal deleted inserted replaced
406:f23fcb19d3c1 407:c6e90e02dd17
1 package IMPL::Test::Result;
2 use strict;
3 use warnings;
4
5 use parent 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;