File Coverage

DefaultConf.pm

Criterion	Covered	Total	%
statement	9	9	100.0
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	12	12	100.0

use strict;
package Envy::DefaultConf;
require Exporter;
use Config;
use vars qw(@ISA @EXPORT_OK
	    %How %env0 $startup $prefix @path);
@ISA = ('Exporter');
@EXPORT_OK = qw(%How);

$prefix = $ENV{PERL5PREFIX} || $Config{prefix};

### These environment variables are hardcoded into dot.(profile|login)
my @perl;
if (exists $ENV{PERL5PREFIX}) {
    my $p = $Config{sitelib};
    $p =~ s/$Config{prefix}/$ENV{PERL5PREFIX}/;
    @perl = (PERL5LIB => $p);
}

%env0 = (
	 PATH => '/bin:/usr/bin',
	 MANPATH => '/usr/man',
	 EDITOR => 'vi',
	 @perl,
	 );

### The default envy to load upon login
if (exists $ENV{ENVY_DIMENSION}) {
    my @first = grep /^First\,/, split /:+/, $ENV{ENVY_DIMENSION};
    $startup = (split /,/, $first[0])[1]
	if @first;
}
$startup ||= 'test';

### The default ENVY_PATH
my @p = split /:+/, $ENV{ENVY_PATH} if exists $ENV{ENVY_PATH};
unshift @p, "$prefix/etc/envy"
    if !@p || exists $ENV{PERL5PREFIX};

my %path_ok;
for (@p) {
    next if exists $path_ok{$_};
    push @path, $_;
    $path_ok{$_} = 1;
}

%How = (env0=>\%env0, startup=>$startup, prefix=>$prefix, path=>\@path,
	strictness => 0);

1;