File Coverage

blib/lib/DDG/Meta/Block.pm

Criterion	Covered	Total	%
statement	30	30	100.0
branch	5	6	83.3
condition			n/a
subroutine	11	11	100.0
pod	1	1	100.0
total	47	48	97.9

package DDG::Meta::Block;
our $AUTHORITY = 'cpan:DDG';
# ABSTRACT: Inject keywords to make a L plugin
$DDG::Meta::Block::VERSION = '1017';
use strict;
use warnings;
use Carp;
use DDG::Block::Blockable::Triggers;
use Package::Stash;
require Moo::Role;


my %applied;

sub apply_keywords {
	my ( $class, $target ) = @_;

	return if exists $applied{$target};
	$applied{$target} = undef;

	#
	# triggers
	#

	my $triggers;
	my $stash = Package::Stash->new($target);


	$stash->add_symbol('&triggers_block_type',sub { $triggers->block_type });


	$stash->add_symbol('&get_triggers',sub { $triggers->get });


	$stash->add_symbol('&has_triggers',sub { $triggers ? 1 : 0 });


	$stash->add_symbol('&triggers',sub {
		$triggers = DDG::Block::Blockable::Triggers->new unless $triggers;
		$triggers->add(@_)
	});

	#
	# apply role
	#

	Moo::Role->apply_role_to_package($target,'DDG::Block::Blockable');

}

1;

__END__