aboutsummaryrefslogtreecommitdiff
path: root/lib/App/Beam/History/Entry.pm
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;



   

Return to:

Send suggestions and report system problems to the System administrator.