view release on metacpan or  search on metacpan

lib/DBIx/FileStore/UtilityFunctions.pm  view on Meta::CPAN

        1900+$year, $mon+1, $mday, $hour, $min, $sec);
}

############################################
# my $homedir = get_user_homedir(); 
#  or 
# my $homedir = get_user_homedir( "username" ); 
############################################
sub get_user_homedir {
    my $user = shift || $ENV{USER};
    my ( $name, $passwd, $uid, $gid, $quota, $comment, $gcos, $homedir, $shell, $expire ) =
        getpwnam( $user );  # get the userid and the homedir
    return $homedir;

}

1;

=pod

=head1 NAME