blob: e5a8c7eeb008d86b96485540aa35a169c11169f9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
package App::Beam::History::Entry;
use strict;
use Carp;
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(STATE_PENDING STATE_SUCCESS STATE_FAILURE state_string);
our %EXPORT_TAGS = (
state => [ qw(STATE_PENDING STATE_SUCCESS STATE_FAILURE) ]
);
use constant {
STATE_PENDING => 0,
STATE_SUCCESS => 1,
STATE_FAILURE => 2
};
my @state_str = (
'PENDING',
'SUCCESS',
'FAILURE'
);
sub new {
my $class = shift;
return bless { start_time => time(),
end_time => time(),
state => STATE_PENDING }, $class;
}
sub state {
my ($self, $value) = @_;
if (defined($value)) {
croak "can't modify finished entry"
unless $self->{state} == STATE_PENDING;
$self->{state} = $value;
$self->{end_time} = time();
}
return $self->{state};
}
sub state_string {
my ($state) = @_;
return $state unless $state <= $#state_str;
return $state_str[$state];
}
sub state_name {
my ($self) = @_;
return state_string($self->state);
}
sub start_time {
my ($self) = @_;
return $self->{start_time};
}
sub end_time {
my ($self) = @_;
return $self->{end_time};
}
1;
|