The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

DDG / DDG-1018 / lib / DDG / Meta / Fathead.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
—
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101

              
package DDG::Meta::Fathead;
our $AUTHORITY = 'cpan:DDG';
# ABSTRACT: Functions for generating a L<DDG::ZeroClickInfo::Fathead> factory 
$DDG::Meta::Fathead::VERSION = '1018';
use strict;
use warnings;
use Package::Stash;
sub fathead_attributes {qw(
    mediawiki
    title_addon
)}
my %applied;
sub apply_keywords {
    my ( $class , $target ) = @_;
    return if exists $applied{$target};
    $applied{$target} = undef;
    my @parts = split( '::' , $target );
    shift @parts;
    shift @parts;
    my $answer_type = lc(join(' ', @parts));
    my $stash = Package::Stash->new($target);
    my %zci_params = (
        answer_type => $answer_type,
    );
    $stash->add_symbol('&fathead', sub {
        if (ref $_[0] eq 'HASH') {
            for (keys %{$_[0]}) {
                $zci_params{check_fathead_key($_)} = $_[0]->{$_};
            }
        } else {
            while (@_) {
                my $key = shift;
                my $value = shift;
                $zci_params{check_fathead_key($key)} = $value;
            }
        }
    });
}
sub check_fathead_key {
    my $key = shift;
    if (grep { $key eq $_ } fathead_attributes) {
        return $key;
    } else {
        croak $key." is not supported on DDG::Meta::Fathead";
    }
}
1;
__END__
=pod
=head1 NAME
DDG::Meta::Fathead - Functions for generating a L<DDG::ZeroClickInfo::Fathead> factory 
=head1 VERSION
version 1018
=head1 DESCRIPTION
=head1 EXPORTS FUNCTIONS
=head2 fathead
=head1 METHODS
=head2 apply_keywords
Uses a given classname to install the described keywords.
=head2 check_fathead_key
=head1 AUTHOR
DuckDuckGo <open@duckduckgo.com>
=head1 COPYRIGHT AND LICENSE
This software is Copyright (c) 2013 by DuckDuckGo, Inc. L<https://duckduckgo.com/>.
This is free software, licensed under:
  The Apache License, Version 2.0, January 2004
=cut