From b09b9989b43f6b015f0fac9670c1180e97b67972 Mon Sep 17 00:00:00 2001
From: Julian Blake Kongslie <jblake@omgwallhack.org>
Date: Thu, 18 Mar 2010 00:11:52 -0700
Subject: Switched to Module::Build instead of hardcoding paths.

---
 usr/src/libpiny/lib/Piny/Environment.pm | 41 +++++++++++++++++++++++++++++++++
 1 file changed, 41 insertions(+)
 create mode 100644 usr/src/libpiny/lib/Piny/Environment.pm

(limited to 'usr/src/libpiny/lib/Piny/Environment.pm')

diff --git a/usr/src/libpiny/lib/Piny/Environment.pm b/usr/src/libpiny/lib/Piny/Environment.pm
new file mode 100644
index 0000000..4430362
--- /dev/null
+++ b/usr/src/libpiny/lib/Piny/Environment.pm
@@ -0,0 +1,41 @@
+# Copyright © 2010 Julian Blake Kongslie <jblake@omgwallhack.org>
+# Licensed under the BSD 3-clause license.
+
+package Piny::Environment;
+
+use Moose;
+
+use Piny::User;
+
+# Attributes
+
+has 'user' =>
+  ( is          => 'ro'
+  , isa         => 'Piny::User'
+  , lazy_build  => 1
+  , init_arg    => undef
+  );
+
+# Builder methods
+
+sub _build_user {
+  my ( $s ) = @_;
+
+  if ( defined $ENV{"SUDO_UID"} ) {
+    return Piny::User->new( uid => $ENV{"SUDO_UID"} );
+  } elsif ( defined $ENV{"SUDO_USER"} ) {
+    return Piny::User->new( username => $ENV{"SUDO_USER"} );
+  } elsif ( defined $ENV{"UID"} ) {
+    return Piny::User->new( uid => $ENV{"UID"} );
+  } elsif ( defined $ENV{"USER"} ) {
+    return Piny::User->new( username => $ENV{"USERNAME"} );
+  } else {
+    return Piny::User->new( uid => $< );
+  };
+};
+
+# Moose boilerplate
+
+__PACKAGE__->meta->make_immutable;
+
+1;
-- 
cgit v1.2.3