Changeset 303dbc1 for perl/modules
- Timestamp:
- Jun 22, 2011, 9:56:46 PM (13 years ago)
- Children:
- 6dccccf
- Parents:
- 6c3d4ad
- git-author:
- Edward Z. Yang <ezyang@mit.edu> (06/20/11 12:03:35)
- git-committer:
- Edward Z. Yang <ezyang@mit.edu> (06/22/11 21:56:46)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perl/modules/Facebook/lib/BarnOwl/Module/Facebook/Handle.pm
r6c3d4ad r303dbc1 16 16 use Facebook::Graph; 17 17 18 use Lingua::EN::Keywords; 18 use List::Util qw(reduce); 19 20 eval { require Lingua::EN::Keywords; }; 21 if ($@) { 22 *keywords = sub { 23 # stupidly pick the longest one, and only return one. 24 my $sentence = shift; 25 $sentence =~ s/[[:punct:]]//g; 26 my @words = split(' ', lc($sentence)); 27 return () unless @words; 28 return (reduce{ length($a) > length($b) ? $a : $b } @words,); 29 }; 30 } else { 31 *keywords = \&Lingua::EN::Keywords::keywords; 32 } 19 33 20 34 use JSON;
Note: See TracChangeset
for help on using the changeset viewer.