zeroclickinfo-goodies/lib/DDG/Goodie/BeamMeUpScotty.pm

30 lines
599 B
Perl
Raw Permalink Normal View History

2016-02-20 18:32:40 -08:00
package DDG::Goodie::BeamMeUpScotty;
# ABSTRACT: A Star Trek catchphrase
use DDG::Goodie;
use strict;
zci answer_type => 'beam_me_up_scotty';
zci is_cached => 1;
triggers start => 'beam me up scotty', 'beam us up scotty';
handle remainder => sub {
2016-03-01 17:11:57 -08:00
return unless $_ eq '';
2016-02-20 18:32:40 -08:00
my $answer = 'Aye, aye, captain.';
return $answer,
structured_answer => {
data => {
title => $answer,
subtitle => 'Code phrase: Beam me up, Scotty',
},
templates => {
group => 'text',
},
};
2016-02-20 18:32:40 -08:00
};
1;