Changeset 849 for LATMOS-Accounts/lib

Timestamp:

03/29/10 19:09:13 (14 years ago)

Author:

nanardon

Message:

• make unxported mode options more explicit
• fix POD according behavior

Location:

LATMOS-Accounts/lib/LATMOS/Accounts

Files:

• Bases.pm (modified) (1 diff)
• Cli.pm (modified) (1 diff)

LATMOS-Accounts/lib/LATMOS/Accounts/Bases.pm

@@ -53 +53 @@
 }
 
-sub wexported {
+sub wexported { unexported(@_) }
+
+sub unexported {
     my ($self, $wexported) = @_;
     my $old = $self->{wexported};

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

@@ -17 +17 @@
     my $env = LATMOS::Accounts::Cli->new({ prompt => sub { $_[0]->base->label . " cli > " }, },
         $labase);
+    $env->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 ($env, $arg) = @_;
+            if ($arg eq 'yes') {
+                $env->base->unexported(1);
+                print $OUT "Unexported are now show";
+            } elsif ($arg eq 'no') {
+                $env->base->unexported(0);
+                print $OUT "Unexported are no longer show";
+            } elsif ($arg eq 'show') {
+                print $OUT "Unexported objects " . $env->base->unexported ?
+                "enable" : "disable";
+            } else {
+                print $OUT "wrong argument";
+            }
+        },
+    });
     $env->add_func('ls', {
             help => 'ls object_type - list object of type object_type',