view Lib/IMPL/Test/Result.pm @ 245:7c517134c42f

Added Unsupported media type Web exception corrected resourceLocation setting in the resource Implemented localizable resources for text messages fixed TT view scopings, INIT block in controls now sets globals correctly.
author sergey
date Mon, 29 Oct 2012 03:15:22 +0400
parents 4267a2ac3d46
children
line wrap: on
line source

package IMPL::Test::Result;
use strict;
use warnings;

use parent 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;