add an env document for shell integration.

gugod · Oct 16, 2010 · 044d9d1 · 044d9d1
1 parent cb0da72
commit 044d9d1
Showing 1 changed file with 20 additions and 0 deletions.
diff --git a/lib/App/perlbrew.pm b/lib/App/perlbrew.pm
@@ -453,6 +453,26 @@ sub run_command_mirror {
     return;
 }
 
+sub run_command_env {
+    my($self) = @_;
+    my %env = (
+        VERSION => $VERSION,
+        ROOT => $ROOT,
+        PATH => "$ROOT/perls/current/bin"
+    );
+
+    if ($ENV{SHELL} =~ /(ba|z)sh$/) {
+        while (my ($k, $v) = each(%env)) {
+            print "export PERLBREW_$k=$v\n";
+        }
+    }
+    else {
+        while (my ($k, $v) = each(%env)) {
+            print "setenv PERLBREW_$k $v\n";
+        }
+    }
+}
+
 sub _http_get {
     my ($self, $url, $cb, $header) = @_;
     require HTTP::Lite;