diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2017-03-07 16:57:12 +0200 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2017-03-07 16:57:12 +0200 |
commit | 25cc6f28c808169f1b91b319b68a1f2757532f25 (patch) | |
tree | fefb6b9ed29638a29bb74d0c324292da5fcfa222 /lib | |
parent | 068dcd502cc83d60c90443127352ec255df442db (diff) | |
download | beam-25cc6f28c808169f1b91b319b68a1f2757532f25.tar.gz beam-25cc6f28c808169f1b91b319b68a1f2757532f25.tar.bz2 |
Initial implementation of the list subcommand
* MANIFEST: Update
* lib/App/Beam/List.pm: New file.
* beam (list): New subcommand
* lib/App/Beam.pm: End with 1;
* lib/App/Beam/Command.pm: Likewise.
* lib/App/Beam/Config.pm: Likewise.
* lib/App/Beam/Config/Locus.pm: Likewise.
Diffstat (limited to 'lib')
-rw-r--r-- | lib/App/Beam.pm | 1 | ||||
-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 |
5 files changed, 28 insertions, 6 deletions
diff --git a/lib/App/Beam.pm b/lib/App/Beam.pm index 54b3cd3..6a654ca 100644 --- a/lib/App/Beam.pm +++ b/lib/App/Beam.pm @@ -462,3 +462,4 @@ sub run { $self->abend(EX_SOFTWARE, "unsupported command $_[0]"); } +1; 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; |