Changeset 2226 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Cli.pm

Timestamp:

02/27/19 09:38:36 (5 years ago)

Author:

nanardon

Message:

More cli documentation in POD

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Cli.pm (modified) (1 diff)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Cli.pm

@@ -41 +41 @@
     my $OUT = $self->Context->Out;
 
-    $self->add_func('unexported', {
-        help => 'unexported yes|no|show - switch or show base mode regarding' .
-            ' unexported objects',
-        completion => sub {
-            if (!$_[2]) {
-                return qw(yes no show);
-            }
-        },
-        code => sub {
-            my ($self, $arg) = @_;
-            if ($arg eq 'yes') {
-                $self->base->unexported(1);
-                print $OUT "Unexported are now show\n";
-            } elsif ($arg eq 'no') {
-                $self->base->unexported(0);
-                print $OUT "Unexported are no longer show\n";
-            } elsif ($arg eq 'show') {
-                print $OUT "Unexported objects " . ($self->base->unexported ?
-                "enable" : "disable") . "\n";
-            } else {
-                print $OUT "wrong argument\n";
-            }
-        },
-    });
     $self->add_func('ls', {
             help => 'ls object_type - list object of type object_type',