File Coverage

blib/lib/MooX/Keyword/Factory.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch	4	4	100.0
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	35	35	100.0

package MooX::Keyword::Factory;

use 5.006; use strict; use warnings; our $VERSION = '1.01';
use Factory::Sub; use Moo;

our %FACTORY;

use MooX::Keyword {
	factory => {
		builder => sub {
			my ($moo, $name, @args) = @_;
			if (! $FACTORY{$name}) {
				$moo->has($name, is => 'rw');
				$moo->around($name, sub {
					my ($orig, $self, @args) = @_;
					$self->$orig(scalar @args ? $FACTORY{$name}->(@args) : ());
				});
				$FACTORY{$name} = Factory::Sub->new();
			}
			$FACTORY{$name}->add(@args);
		}
	}
};

1;

__END__