File Coverage

blib/lib/ylib.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch	4	4	100.0
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	31	31	100.0

use strict;
use warnings;

package ylib;
# ABSTRACT: Add paths to @INC from a config file
our $VERSION = '0.003'; # VERSION

use File::HomeDir 0.86 ();
use Path::Tiny 0.052;

require lib;

my $name = '.mylib';

sub import {
    my $class = shift;
    my @configs = map { path( $_, $name ) } ( File::HomeDir->my_home(), '.' );
    for my $f (@configs) {
        next unless -r $f;
        for my $dir ( $f->lines( { chomp => 1 } ) ) {
            if ( -d $dir ) {
                lib->import("$dir");
            }
            else {
                warn "lib '$dir' was not found. skipping it\n";
            }
        }
    }
    return 1;
}

1;

__END__