File Coverage

blib/lib/lib/ini.pm

Criterion	Covered	Total	%
statement	25	26	96.1
branch	3	4	75.0
condition	2	3	66.6
subroutine	6	6	100.0
pod			n/a
total	36	39	92.3

package lib::ini;
{
  $lib::ini::VERSION = '0.002';
}

# ABSTRACT: Plugin-based @INC mangling

use strict;
use warnings;

use Class::Load;
use Config::INI::Reader::LibIni;
use String::RewritePrefix;

sub import {
    my $config_filename = 'lib.ini';
    my $plugin_prefix   = 'lib::ini::plugin::';

    return unless -e $config_filename && -f $config_filename;

    my $ini = Config::INI::Reader::LibIni->read_file($config_filename);

    foreach my $section (@$ini) {
        my ($name, $data) = @$section;

        if ($name eq '_') {
            next; # ignore root-level options for now
        } else {
            my $package = String::RewritePrefix->rewrite(
                { '' => $plugin_prefix, '+' => '' }, $name,
            );
            Class::Load::load_class($package);
            $package->import(%$data);
        }
    }
}

1;

__END__