view release on metacpan or  search on metacpan

lib/MooseX/AbstractFactory/Role.pm  view on Meta::CPAN

use Moose::Role;

use Moose::Autobox;
use Module::Runtime qw( use_package_optimistically );
use Try::Tiny;

our $VERSION = '0.004003'; # VERSION

our $AUTHORITY = 'cpan:PENFOLD';

has _options        => (is => 'ro', isa => 'ArrayRef[Any]');
has _implementation => (is => 'ro', isa => 'Str');

sub create {
	my ($class, $impl, @impl_args) = @_;

	if (defined $impl) {
		my $factory
			= $class->new({
				_implementation => $impl,
				_options => [ @impl_args ]