File Coverage

blib/lib/perlrc.pm

Criterion	Covered	Total	%
statement	30	33	90.9
branch	8	16	50.0
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	43	54	79.6

package perlrc;

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(',', @_);
    }
    else {
        $path = '~/.perlrc:/etc/perlrc';
    }

    my @path = split /:/, $path;
    for my $file (@path) {
        $file =~ s/^~([^\/]*)/_home($1)/e;
        $file = '.' unless length $file;
        $file =~ s/\/*$/\/.perlrc/ if -d $file;
        my @files = $file;
        push @files, "$file.pl" unless $file =~ /\.pl$/;
        for (@files) {
            if (-f $_) {
                package main;
                do $_;
                return;
            }
        }
    }
    warn "no perlrc file found in $path\n";
}

1;
__END__