Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Perl6 module for scoring the emotional content of a piece of text from its word use.
Perl
branch: master
Failed to load latest commit information.
data Added AFINN data and trivial word/passage scoring.
lib/Text/Emotion Updated to use :exists adverb and tested against the latest Net::IRC:…
logotype Added image for module listing.
t Test
.gitignore Tests
LICENSE Initial commit
META.info Version bump
README.md Updated README
emobot Updated defaults for connecting
test

README.md

Text::Emotion

Perl6 package for scoring the emotional content of a piece of text from its word use.

Sentiment Data

Currently the AFINN data set from Twitter usage is used to give base word scores for sentiment. http://fnielsen.posterous.com/afinn-a-new-word-list-for-sentiment-analysis

AFINN is a list of English words rated for valence with an integer between minus five (negative) and plus five (positive). The words have been manually labeled by Finn Årup Nielsen in 2009-2011. The file is tab-separated.

Example Use

'emobot' included is an example IRC bot using Text::Emotion::Scorer and Net::IRC::Bot.

#!/usr/bin/env perl6
use v6;

#Create a Scorer object and all of the sentiment data is loaded for your use
use Text::Emotion::Scorer;
my $emotion = Text::Emotion::Scorer.new;

#Score a whole passage of positive sounding text
say $emotion.score("I really love Perl6. Hurrah!");

#Score a whole passage of negative sounding text
say $emotion.score("I hate Monday's they suck!");

#Just get the word scores the passage score is working with
say $emotion.score_word("failure");
Something went wrong with that request. Please try again.