diff options
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; |