--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/Lib/IMPL/Test/Result.pm	Tue Jul 14 12:54:37 2009 +0400
@@ -0,0 +1,32 @@
+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;