diff options
Diffstat (limited to 'lib/App/Beam')
-rw-r--r-- | lib/App/Beam/Command.pm | 6 | ||||
-rw-r--r-- | lib/App/Beam/Config.pm | 1 | ||||
-rw-r--r-- | lib/App/Beam/Config/Locus.pm | 1 | ||||
-rw-r--r-- | lib/App/Beam/List.pm | 25 |
4 files changed, 27 insertions, 6 deletions
diff --git a/lib/App/Beam/Command.pm b/lib/App/Beam/Command.pm index ed6c686..1b6c343 100644 --- a/lib/App/Beam/Command.pm +++ b/lib/App/Beam/Command.pm @@ -88,9 +88,3 @@ sub exit_code { } 1; - - - - - - diff --git a/lib/App/Beam/Config.pm b/lib/App/Beam/Config.pm index 5e5e7d7..d76cd1f 100644 --- a/lib/App/Beam/Config.pm +++ b/lib/App/Beam/Config.pm @@ -1088,3 +1088,4 @@ sub lint { return $self->{error_count} == 0; } +1; diff --git a/lib/App/Beam/Config/Locus.pm b/lib/App/Beam/Config/Locus.pm index 7d1087c..3e60791 100644 --- a/lib/App/Beam/Config/Locus.pm +++ b/lib/App/Beam/Config/Locus.pm @@ -204,3 +204,4 @@ sub fixup_lines { delete $self->{string}; } +1; 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; |