Changeset 2216 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Cli/Base.pm

Timestamp:

02/21/19 22:13:00 (5 years ago)

Author:

nanardon

Message:

Add ability to call parent Envirronment (../func)

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Cli/Base.pm (modified) (3 diffs)

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

@@ -27 +27 @@
 
 has Context => ( is => 'ro', isa => 'LATMOS::Accounts::Cli::Context' );
+has Parent  => ( is => 'ro' );
 
 =head1 FUNCTIONS
@@ -379 +380 @@
     my ($self, $lastw, $name, @args) = @_;
     if (!$name) {
-        return grep { /^\Q$lastw\E/ } sort
-            (keys %{ $self->{funcs} || {}});
+        if ($lastw =~ m!^\.\./?(.*)$!) {
+            if ($self->Parent) {
+                return map { "../$_" } $self->Parent->complete($1, $name, @args);
+            } else {
+                return ();
+            }
+        } else {
+            return grep { /^\Q$lastw\E/ } sort
+                (keys %{ $self->{funcs} || {}});
+        }
+    } elsif ($name =~ m!^../(.*)$!) {
+        if ($self->Parent) {
+            return $self->Parent->complete($lastw, $1, @args);
+        } else {
+            return ();
+        }
     } elsif ($self->{funcs}{$name}{alias}) {
         $self->complete($lastw, @{$self->{funcs}{$name}{alias}}, @args);
@@ -400 +415 @@
     return if (!$name);
 
-    if (grep { m/^(-h|--help)$/ } @args) {
+    if ($name =~ m!^../(.*)$!) {
+        if ($self->Parent) {
+            $self->Parent->run($1, @args);
+        } else {
+            $self->print("No parent envirronment to call function\n");
+        }
+    } elsif (grep { m/^(-h|--help)$/ } @args) {
         $self->Help($name);
     } elsif (!exists($self->{funcs}{$name})) {