File Coverage

blib/lib/Search/Elasticsearch/Role/Client/Async/Simple/Direct.pm

Criterion	Covered	Total	%
statement	20	22	90.9
branch	6	6	100.0
condition			n/a
subroutine	4	5	80.0
pod			n/a
total	30	33	90.9

package Search::Elasticsearch::Role::Client::Async::Simple::Direct;

use Moo::Role;

use Package::Stash ();

use namespace::clean;

with 'Search::Elasticsearch::Role::Client::Async::Simple';
with 'Search::Elasticsearch::Role::Client::Direct';


sub _install_api {
	my ($cls, $grp) = @_;

	my $defs = $cls->api;
	my $pkg  = Package::Stash->new($cls);

	my $re = $grp ? qr/$grp\./ : qr//;

	for my $act (keys(%$defs)) {
		my ($name) = $act =~ /^$re([^.]+)$/;

		next unless $name;
		next if $pkg->has_symbol('&' . $name);

		my %def = (name => $name, %{$defs->{$act}});

		$pkg->add_symbol(
			'&' . $name => sub {
				shift()->perform_request(\%def, @_);
				return;
			}
		);
	}
}


1;


__END__