From b09b9989b43f6b015f0fac9670c1180e97b67972 Mon Sep 17 00:00:00 2001 From: Julian Blake Kongslie Date: Thu, 18 Mar 2010 00:11:52 -0700 Subject: Switched to Module::Build instead of hardcoding paths. --- usr/src/libpiny/Piny/Environment.pm | 41 ------------------------------------- 1 file changed, 41 deletions(-) delete mode 100644 usr/src/libpiny/Piny/Environment.pm (limited to 'usr/src/libpiny/Piny/Environment.pm') diff --git a/usr/src/libpiny/Piny/Environment.pm b/usr/src/libpiny/Piny/Environment.pm deleted file mode 100644 index 4430362..0000000 --- a/usr/src/libpiny/Piny/Environment.pm +++ /dev/null @@ -1,41 +0,0 @@ -# Copyright © 2010 Julian Blake Kongslie -# 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