duckduckgo
/
zeroclickinfo-goodies
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

chomp zappbrannigan quotes

master
Michael Smith 2012-05-30 15:44:28 -06:00
parent 8c072f93c3
commit 7c610d84c1
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/DDG/Goodie/ZappBrannigan.pm
View File

@ -9,7 +9,9 @@ zci is_cached => 0;
handle query => sub { handle query => sub {
my @quotes = share('quotes.txt')->slurp; my @quotes = share('quotes.txt')->slurp;
my $rand = int(rand(scalar(@quotes))); my $rand = int(rand(scalar(@quotes)));
return $quotes[$rand]; my $quote = $quotes[$rand];
chomp $quote;
return $quote;
}; };
1; 1;