Mercurial > pub > Impl

comparison Lib/IMPL/Test/Result.pm @ 0:03e58a454b20

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Создан репозитарий
author Sergey
date Tue, 14 Jul 2009 12:54:37 +0400
parents
children 16ada169ca75
comparison
equal deleted inserted replaced
-1:000000000000 0:03e58a454b20
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;