Changeset 44f585c

Timestamp:

Sep 20, 2011, 11:15:31 PM (13 years ago)

Author:

Edward Z. Yang <ezyang@mit.edu>

Branches:

master, release-1.10, release-1.9

Children:

77d1ef1

Parents:

eb497a9

git-author:

Edward Z. Yang <ezyang@mit.edu> (06/20/11 12:03:35)

git-committer:

Edward Z. Yang <ezyang@mit.edu> (09/20/11 23:15:31)

Message:

Add alternate implementation of keywords.

Signed-off-by: Edward Z. Yang <ezyang@mit.edu>

File:

• perl/modules/Facebook/lib/BarnOwl/Module/Facebook/Handle.pm (modified) (1 diff)

perl/modules/Facebook/lib/BarnOwl/Module/Facebook/Handle.pm

@@ -16 +16 @@
 use Facebook::Graph;
 
-use Lingua::EN::Keywords;
+use List::Util qw(reduce);
+
+eval { require Lingua::EN::Keywords; };
+if ($@) {
+    *keywords = sub {
+        # stupidly pick the longest one, and only return one.
+        my $sentence = shift;
+        $sentence =~ s/[[:punct:]]//g;
+        my @words = split(' ', lc($sentence));
+        return () unless @words;
+        return (reduce{ length($a) > length($b) ? $a : $b } @words,);
+    };
+} else {
+    *keywords = \&Lingua::EN::Keywords::keywords;
+}
 
 use JSON;