From 38c21d06f7ada8151af09f247def6958139f6fbc Mon Sep 17 00:00:00 2001
From: Chris Weyl <cweyl@alumni.drew.edu>
Date: Sat, 3 Aug 2013 22:36:42 -0700
Subject: [PATCH] add lib/perl.zsh

Common Perl functions and prompt helpers.
---
 lib/perl.zsh | 52 ++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 52 insertions(+)
 create mode 100644 lib/perl.zsh

diff --git a/lib/perl.zsh b/lib/perl.zsh
new file mode 100644
index 00000000..464a8995
--- /dev/null
+++ b/lib/perl.zsh
@@ -0,0 +1,52 @@
+# oh-my-zsh library helper file for Perl prompts and the like
+
+ZSH_THEME_PERL_PROMPT_PREFIX=""
+ZSH_THEME_PERL_PROMPT_SUFFIX=""
+
+function perl_prompt_info {
+
+    # there are a number of environment variables we might expect to see in a
+    # typical, modern Perl environment.  Three of the more popular (and
+    # mildly, at least, sane ways) options involve just using the system perl,
+    # using the system perl with a local::lib-managed environment, and using
+    # perlbrew (and letting it manage local::lib libraries, if any).  We can
+    # expect to see things like this:
+
+    # e.g.
+    #PERLBREW_BASHRC_VERSION=0.63
+    #PERLBREW_HOME=/home/rsrchboy/.perlbrew
+    #PERLBREW_LIB=trunk
+    #PERLBREW_MANPATH=/home/rsrchboy/.perlbrew/libs/perl-5.16.2@trunk/man:/home/rsrchboy/perl5/perlbrew/perls/perl-5.16.2/man
+    #PERLBREW_PATH=/home/rsrchboy/.perlbrew/libs/perl-5.16.2@trunk/bin:/home/rsrchboy/perl5/perlbrew/bin:/home/rsrchboy/perl5/perlbrew/perls/perl-5.16.2/bin
+    #PERLBREW_PERL=perl-5.16.2
+    #PERLBREW_ROOT=/home/rsrchboy/perl5/perlbrew
+    #PERLBREW_VERSION=0.63
+    #PERL_LOCAL_LIB_ROOT=/home/rsrchboy/.perlbrew/libs/perl-5.16.2@trunk
+    #PERL5LIB=/home/rsrchboy/.perlbrew/libs/perl-5.16.2@trunk/lib/perl5
+
+    # we assume perlbrew and local::lib, but don't check for too much else.
+
+    # XXX: NOT FINISHED!
+    # TODO: needs determination of *where* perl is if not /usr/bin/perl, as that's not system perl
+    #
+
+    #PSTAT=''
+
+    if [ -z $PERLBREW_PERL ] ; then
+        PSTAT="system-perl"
+        if [ $PERL_LOCAL_LIB_ROOT ] ; then
+            PSTAT="$PSTAT@${PERL_LOCAL_LIB_ROOT/#:$HOME/~}"
+        fi
+    elif [ $PERLBREW_PERL ] ; then
+        PSTAT="$PERLBREW_PERL"
+        if [ $PERLBREW_LIB ] ; then
+            PSTAT="$PSTAT@$PERLBREW_LIB"
+        fi
+    elif [ $PERL_LOCAL_LIB_ROOT ] ; then
+        #echo ' %{$_is%}and %{$fg[cyan]%}local::lib at' $PERL_LOCAL_LIB_ROOT
+    fi
+
+    # only print if we actually have anything interesting to print
+    test ! -z "$PSTAT" && echo "$ZSH_THEME_PERL_PROMPT_PREFIX$PSTAT$ZSH_THEME_PERL_PROMPT_SUFFIX"
+}
+