File Coverage

blib/lib/lib/require/all.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch	3	4	75.0
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	31	32	96.8

package lib::require::all;

use strict;
use 5.008_001;
our $VERSION = '0.01';

use lib ();
use File::Find;

sub import {
    my($class, @dir) = @_;
    @dir = ('lib') unless @dir;
    lib->import(@dir);

    for my $dir (@dir) {
        my @files;
        File::Find::find({ no_chdir => 1, wanted => sub { push @files, $_ if /\.pm$/ } }, $dir);

        for my $file (@files) {
            $file =~ s/^\Q$dir\E[\/\\]//;
            require $file;
        }
    }
}

1;
__END__