Created my first Goodie
parent
957c4ddda6
commit
054c199ac3
|
@ -0,0 +1,27 @@
|
|||
package DDG::Goodie::IsAwesome::kleinjoshuaa;
|
||||
# ABSTRACT: kleinjoshuaa's first goodie
|
||||
|
||||
|
||||
use DDG::Goodie;
|
||||
|
||||
zci answer_type => "is_awesome_kleinjoshuaa";
|
||||
zci is_cached => 1;
|
||||
|
||||
name "IsAwesome kleinjoshuaa";
|
||||
description "My first Goodie, it lets the world know that kleinjoshuaa is awesome";
|
||||
primary_example_queries "duckduckhack kleinjoshuaa";
|
||||
category "special";
|
||||
topics "special_interest", "geek";
|
||||
code_url "https://github.com/duckduckgo/zeroclickinfo-goodies/blob/master/lib/DDG/Goodie/IsAwesome/kleinjoshuaa.pm";
|
||||
attribution github => ["https://github.com/kleinjoshuaa", "kleinjoshuaa"];
|
||||
|
||||
# Triggers
|
||||
triggers start => "duckduckhack kleinjoshuaa";
|
||||
|
||||
# Handle statement
|
||||
handle remainder => sub {
|
||||
return if $_;
|
||||
return "kleinjoshuaa is awesome and has successfully completed the duckduckhack goodie tutorial!";
|
||||
};
|
||||
|
||||
1;
|
|
@ -0,0 +1,18 @@
|
|||
#!/usr/bin/env perl
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use Test::More;
|
||||
use DDG::Test::Goodie;
|
||||
|
||||
zci answer_type => "is_awesome_kleinjoshuaa";
|
||||
zci is_cached => 1;
|
||||
|
||||
ddg_goodie_test(
|
||||
[qw( DDG::Goodie::IsAwesome::kleinjoshuaa )],
|
||||
'duckduckhack kleinjoshuaa' => test_zci('kleinjoshuaa is awesome and has successfully completed the duckduckhack goodie tutorial!'),
|
||||
'duckduckhack kleinjoshuaa is awesome' => undef,
|
||||
|
||||
);
|
||||
|
||||
done_testing;
|
Loading…
Reference in New Issue