view release on metacpan or  search on metacpan

lib/perlrc.pm  view on Meta::CPAN

our $VERSION = '0.01';

use strict;
use warnings;
use Carp;

sub _home {
    my $user = shift;
    my $uid = (length $user ? getpwnam($user) : $>);
    defined $uid or return "~$user";
    my $home = (getpwuid $uid)[7];
    defined $home or return "~$user";
    $home
}

sub import {
    shift;
    my $path;
    if (@_) {
        $path = join(',', @_);
    }