Update comments

master
unlisted 2012-05-07 21:38:06 -04:00
parent 9b70569675
commit 5a8b4cbf14
1 changed files with 3 additions and 3 deletions

View File

@ -1,9 +1,9 @@
package DDG::Goodie::Frequency;
# ABSTRACT: Displays frequency of each character
# ABSTRACT: Displays frequency of alphabet character (a-z)
use DDG::Goodie;
triggers start => 'frequency';
triggers start => 'frequency', 'freq';
handle remainder => sub {
if ($_)
@ -24,7 +24,7 @@ handle remainder => sub {
my @out;
foreach my $key (keys %freq)
{
push @out, join " ", (join ":", $key, $freq{$key}), ($freq{$key} / $count);
push @out, join ":", $key, $freq{$key} . "/" . $count;
};
return "FREQUENCY: " . join ' ',sort(@out) if @out;