view Lib/IMPL/Test/Result.pm @ 353:feeb3bc4a818

corrected error handling while loading templates corrected variables lookup in controls updated handles to use the new view features
author cin
date Fri, 11 Oct 2013 15:49:04 +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;