1 files changed, 25 insertions, 0 deletions
diff --git a/lib/App/Beam/List.pm b/lib/App/Beam/List.pm
new file mode 100644
index 0000000..3bba7e0
--- /dev/null
+++ b/lib/App/Beam/List.pm
@@ -0,0 +1,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;