File Coverage

blib/lib/MooX/Keyword.pm

Criterion	Covered	Total	%
statement	34	40	85.0
branch	5	10	50.0
condition			n/a
subroutine	10	11	90.9
pod	0	1	0.0
total	49	62	79.0

package MooX::Keyword;
use 5.006; use strict; use warnings; our $VERSION = '0.02';
use MooX::ReturnModifiers; use Anonymous::Object;
use feature qw/state/;

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}) {
		$moo->extends($import{extends});
		%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__