Created my first Goodie

master
JohnCarlosReed 2014-10-30 23:20:05 +00:00
parent 9c8ce58bae
commit a78628b5ae
2 changed files with 47 additions and 0 deletions

View File

@ -0,0 +1,28 @@
package DDG::Goodie::IsAwesome::JohnCarlosReed;
# ABSTRACT: JohnCarlosReed's first Goodie
use DDG::Goodie;
zci answer_type => "is_awesome_john_carlos_reed";
zci is_cached => 1;
# Metadata. See https://duck.co/duckduckhack/metadata for help in filling out this section.
name "IsAwesome JohnCarlosReed";
description "My first Goodie, it let's the world know that JohnCarlosReed is awesome";
primary_example_queries "duckduckhack JohnCarlosReed";
#category "";
#topics "";
code_url "https://github.com/duckduckgo/zeroclickinfo-goodies/blob/master/lib/DDG/Goodie/IsAwesome/JohnCarlosReed/JohnCarlosReed.pm";
attribution github => ["https://github.com/JohnCarlosReed", "John Reed"],
twitter => "johnnycarlos";
# Triggers
triggers start => "duckduckhack johncarlosreed";
# Handle statement
handle remainder => sub {
return if $_;
return "JohnCarlosReed is awesome and has successfully completed the DuckDuckHack Goodie tutorial!";
};
1;

View File

@ -0,0 +1,19 @@
#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use DDG::Test::Goodie;
zci answer_type => "is_awesome_john_carlos_reed";
zci is_cached => 1;
ddg_goodie_test(
[qw(
DDG::Goodie::IsAwesome::JohnCarlosReed
)],
'duckduckhack JohnCarlosReed' => test_zci('JohnCarlosReed is awesome and has successfully completed the DuckDuckHack Goodie tutorial!'),
'duckduckhack JohnCarlosReed is awesome' => undef,
);
done_testing;