File Coverage

blib/lib/Factory/Sub.pm

Criterion	Covered	Total	%
statement	65	67	97.0
branch	22	24	91.6
condition	2	2	100.0
subroutine	13	13	100.0
pod	3	4	75.0
total	105	110	95.4

package Factory::Sub;
use 5.006; use strict; use warnings;
use Import::Into; use Carp qw/croak/; use Coerce::Types::Standard qw//;
our $VERSION = '0.10';

use overload
	"&{}" => sub {my $self = shift; sub { $self->call(@_) }},
	fallback => 1;

sub import {
	my ($pkg, @import) = @_;
	if (@import) {
		my $target = caller;
		Coerce::Types::Standard->import::into($target, @import)
	}
}

sub new {
	my $self = shift;
	my $fallback;
	for (my $i = 0; $i < scalar @_; $i++) {
		if ( scalar @{$_[$i]} == 1 ) {
			$fallback = splice @_, $i, 1;
			$i--;
		}
	}
	bless { factory => [ @_ ], ($fallback ? (fallback => $fallback->[0]) : ()) }, $self;
}

sub add {
	my ($self, @args) = @_;
	if (scalar @args == 1) {
		$self->{fallback} = $args[0];
	} else {
		push @{ $self->{factory} }, \@args;
	}
}

sub call {
	my ($self, @params) = @_;
	FACTORY:
	for my $factory ( @{ $self->{factory} } ) {
		if ( scalar @{$factory} - 1 == scalar @params) {
			my @factory_params = @{clone(\@params)};
			for (my $i = 0; $i < scalar @factory_params; $i++) {
				eval { $factory_params[$i] = $factory->[$i]->(
					ref $factory->[$i] eq 'Type::Tiny'
						&& scalar @{$factory->[$i]->{coercion}->{type_coercion_map}}
							? $factory->[$i]->coerce($factory_params[$i])
							: $factory_params[$i]
				); 1; } or next FACTORY;
			}
			return $factory->[-1]->(@factory_params);
		}
	}
	if ($self->{fallback}) {
		return $self->{fallback}->(@params);
	}
	croak "No matching factory sub for given params " . join " ", map { ! defined $_ ? 'undef' : $_ } @params;
}

sub clone {
	my ($clone) = @_;
	my $ref = ref $clone;
	if ($ref eq 'ARRAY') { return [ map { clone($_) } @{$clone} ]; }
	elsif ($ref eq 'HASH') { return { map +( $_ => clone($clone->{$_}) ), keys %{$clone} }; }
	elsif ($ref eq 'SCALAR') { my $r = clone($$clone); return \$r; }
	return $clone;
}

1;

__END__;