File Coverage

blib/lib/DDG/Meta.pm

Criterion	Covered	Total	%
statement	73	73	100.0
branch	2	4	50.0
condition	1	3	33.3
subroutine	21	21	100.0
pod	5	5	100.0
total	102	106	96.2

package DDG::Meta;
our $AUTHORITY = 'cpan:DDG';
# ABSTRACT: Main meta layer implementation factory... dark side of the moon...
$DDG::Meta::VERSION = '1018';
use strict;
use warnings;
use Carp;
require Data::Printer;

use DDG::Meta::RequestHandler;
use DDG::Meta::ZeroClickInfo;
use DDG::Meta::ZeroClickInfoSpice;
use DDG::Meta::Fathead;
use DDG::Meta::ShareDir;
use DDG::Meta::Block;
use DDG::Meta::Information;
use DDG::Meta::Helper;
use DDG::Meta::AnyBlock;
use DDG::Meta::CountryCodes;

use MooX ();

require Moo::Role;


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

	MooX->import::into($target, qw(
		+Data::Printer
	));
}


sub apply_goodie_keywords {
	my ( $class, $target ) = @_;
	DDG::Meta::ZeroClickInfo->apply_keywords($target);
	DDG::Meta::ShareDir->apply_keywords($target);
	DDG::Meta::Block->apply_keywords($target);
	DDG::Meta::Information->apply_keywords($target);
	DDG::Meta::Helper->apply_keywords($target);
	DDG::Meta::RequestHandler->apply_keywords($target,sub {
		shift->zci_new(
			scalar @_ == 1 && ref $_[0] eq 'HASH' ? $_[0] :
				@_ % 2 ? ( answer => @_ ) : @_
		);
	},'DDG::IsGoodie');
}


sub apply_spice_keywords {
	my ( $class, $target ) = @_;
	DDG::Meta::ZeroClickInfoSpice->apply_keywords($target);
	DDG::Meta::ShareDir->apply_keywords($target);
	DDG::Meta::Block->apply_keywords($target);
	DDG::Meta::Information->apply_keywords($target);
	DDG::Meta::Helper->apply_keywords($target);
	DDG::Meta::RequestHandler->apply_keywords($target,sub {
		shift->spice_new(@_);
	},'DDG::IsSpice');
}


sub apply_fathead_keywords {
    my ( $class, $target ) = @_;
    DDG::Meta::ZeroClickInfo->apply_keywords($target);
    DDG::Meta::ShareDir->apply_keywords($target);
    DDG::Meta::Fathead->apply_keywords($target);
    DDG::Meta::Information->apply_keywords($target);
    DDG::Meta::AnyBlock->apply_keywords($target);
    Moo::Role->apply_role_to_package($target, "DDG::IsFathead");
}


sub apply_longtail_keywords {
    my ( $class, $target ) = @_;
    DDG::Meta::ZeroClickInfo->apply_keywords($target);
    DDG::Meta::ShareDir->apply_keywords($target);
    DDG::Meta::Information->apply_keywords($target);
    DDG::Meta::AnyBlock->apply_keywords($target);
    Moo::Role->apply_role_to_package($target, "DDG::IsLongtail");
}

1;

__END__