File Coverage

blib/lib/App/Env/Login.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod	0	1	0.0
total	28	29	96.5

# --8<--8<--8<--8<--
#
# Copyright (C) 2016 Smithsonian Astrophysical Observatory
#
# This file is part of App::Env::Login
#
# App::Env::Login is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or (at
# your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program.  If not, see .
#
# -->8-->8-->8-->8--

package App::Env::Login;

use strict;
use warnings;
use Carp;

our $VERSION = '0.01';

use File::Spec::Functions qw[ splitpath ];
use Shell::GetEnv '0.08_03';

sub envs
{
    my ( $opt ) = @_;

    my %opt = ( Shell => $ENV{SHELL}, %$opt );

    my $shell = ( splitpath( $opt{Shell} ) )[-1];

    local %ENV = map { $_ => $ENV{$_} } grep { exists $ENV{$_} }qw[ HOME LOGNAME ];

    return Shell::GetEnv->new( $shell, { Login => 1 } )->envs;
}


__END__