File Coverage

lib/Config/Proxy.pm

Criterion	Covered	Total	%
statement	27	30	90.0
branch	2	6	33.3
condition	1	2	50.0
subroutine	5	5	100.0
pod	0	2	0.0
total	35	45	77.7

package Config::Proxy;
use strict;
use warnings;
use Carp;

our $VERSION = '1.0';

sub load {
    my $class = shift;
    my $impl = shift or croak "proxy implementation not supplied";
    my $method = shift // 'new';
    my $modname = __PACKAGE__ . '::Impl::' . $impl;
    my $modpath = $modname;
    $modpath =~ s{::}{/}g;
    $modpath .= '.pm';
    my $self = eval {
	require $modpath;
	$modname->${ \$method }(@_);
    };
    if ($@) {
	if ($@ =~ /Can't locate $modpath/) {
	    croak "unsupported proxy implementation: $impl"
	} else {
	    croak $@
	}
    }
    return $self;
}

sub new {
    my $class = shift;
    my $impl = shift;
    my $self = $class->load($impl, 'new', @_);
    $self->reset();
    $self
}

1;
__END__