aboutsummaryrefslogtreecommitdiff
path: root/beam
diff options
context:
space:
mode:
authorSergey Poznyakoff <gray@gnu.org.ua>2017-03-07 16:57:12 +0200
committerSergey Poznyakoff <gray@gnu.org.ua>2017-03-07 16:57:12 +0200
commit25cc6f28c808169f1b91b319b68a1f2757532f25 (patch)
treefefb6b9ed29638a29bb74d0c324292da5fcfa222 /beam
parent068dcd502cc83d60c90443127352ec255df442db (diff)
downloadbeam-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 'beam')
-rwxr-xr-xbeam6
1 files changed, 5 insertions, 1 deletions
diff --git a/beam b/beam
index 48a9ebd..8944668 100755
--- a/beam
+++ b/beam
@@ -1,7 +1,6 @@
#!/usr/bin/perl
use strict;
-use App::Beam::Backup;
use Pod::Usage;
use Pod::Man;
use File::Basename;
@@ -35,7 +34,12 @@ unless (@ARGV) {
my %ctab = (
backup => sub {
+ use App::Beam::Backup;
return new App::Beam::Backup(@_);
+ },
+ list => sub {
+ use App::Beam::List;
+ return new App::Beam::List(@_);
}
);

Return to:

Send suggestions and report system problems to the System administrator.