lib/App/Beam/List.pm


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

package App::Beam::List;

use strict;
use Carp;
use POSIX qw(strftime);

require App::Beam;
our @ISA = qw(App::Beam);

sub run {
    my $self = shift;

    $self->lock();
    my @stat = @{$self->{status}};
    shift @stat;
    foreach my $ent (@stat) {
	print strftime "%c ", localtime $ent->{timestamp};
	printf("% 3d% 3d% 3d  %s", $ent->{cycle}, $ent->{round}, $ent->{level},
	       $ent->{result});
	print "\n";
    }
    $self->unlock();
}

1;