File Coverage

blib/lib/MooX/Keyword.pm

Criterion	Covered	Total	%
statement	38	40	95.0
branch	7	12	58.3
condition			n/a
subroutine	10	10	100.0
pod	0	1	0.0
total	55	63	87.3

package MooX::Keyword;
use 5.006; use strict; use warnings; our $VERSION = '1.01';
use MooX::ReturnModifiers; use Anonymous::Object;

sub import {
	my ( $package, %import ) = (shift, ref $_[0] ? %{ $_[0] } : @_);
    	my $target = caller;
	my $moo = Anonymous::Object->new(object_name => 'MooX::Keyword')->hash_to_object_context({
		return_modifiers( $target )
	}); # *\o/*

	if ($import{extends}) {
		for my $extend ( ref $import{extends} ? @{ $import{extends} } : $import{extends} ) {
			$extend =~ s/^\+/MooX::Keyword::/;
			$moo->extends($extend);
			%import = (%import, $import{extends}->keyword_meta);
		}
		delete $import{extends};
	}

	keyword($target, $moo, 'keyword_meta', { builder => sub {
		my $m = shift;
		return %import;
	}});
	keyword($target, $moo, $_, $import{$_}) for keys %import;

	return 1;
}

sub keyword {
	no strict 'refs';
	my ($target, $moo, $keyword, $params) = @_;
	die 'no builder for ${keyword}' unless $params->{builder};
	for ($keyword, $params->{alias} ? ref $params->{alias} ? @{ $params->{alias} } : $params->{alias} : ()) {
		*{"${target}::${_}"} = sub {
			$params->{builder}->($moo, @_);
		};
	}
}

1;

__END__