37 lines
901 B
Perl
37 lines
901 B
Perl
package DDG::Goodie::Rafl;
|
|
# ABSTRACT: rafl is so everywhere, there's a DuckDuckGo.com "!rafl" bang syntax
|
|
|
|
use strict;
|
|
use DDG::Goodie;
|
|
|
|
use Acme::rafl::Everywhere;
|
|
|
|
primary_example_queries 'rafl is everywhere';
|
|
secondary_example_queries 'where is rafl?';
|
|
description 'rafl is everywhere!';
|
|
name 'rafl';
|
|
code_url 'https://github.com/duckduckgo/zeroclickinfo-goodies/blob/master/lib/DDG/Goodie/.pm';
|
|
category 'ids';
|
|
topics 'social';
|
|
|
|
attribution web => ['http://stephen.scaffidi.net', 'Stephen R. Scaffidi'],
|
|
github => ['Hercynium', 'Stephen R. Scaffidi'];
|
|
|
|
triggers any => 'rafl';
|
|
|
|
zci answer_type => 'rafl';
|
|
zci is_cached => 1;
|
|
|
|
handle remainder => sub {
|
|
my $fact = Acme::rafl::Everywhere->new->fact;
|
|
|
|
return $fact,
|
|
structured_answer => {
|
|
input => ['rafl'],
|
|
operation => 'rafl',
|
|
result => $fact,
|
|
};
|
|
};
|
|
|
|
1 && "rafl"; # everywhere
|