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

package DDG::Goodie::ZappBrannigan;

use DDG::Goodie;
use YAML qw( LoadFile );

triggers any => "zapp", "brannigan";
zci is_cached => 0;

handle query => sub {
    return if $_ !~ m/quotes?/;
    my @quotes = share('quotes.txt')->slurp;
    my $rand = int(rand(scalar(@quotes)));
    my $quote = $quotes[$rand];
    chomp $quote;
    return $quote;
};

1;