view release on metacpan or  search on metacpan

lib/Bot/Backbone/Service/OFun/Karma.pm  view on Meta::CPAN

    return if $name =~ /^[d-][r-][w-][x-][r-][w-][sx-][r-][w-]?[tx-]?/;

    # And there should be at least a couple word chars
    return unless $name =~ /\w.*?\w/;

    # OK!
    return 1;
}


sub update_scores {
    my ($self, $message) = @_;

    my @args = $message->all_args;
    THING: for my $i (0 .. $#args) {
        my $arg  = $args[$i];
        my $name = $arg->text;

        # word by itself, join it to the previous maybe?
        if ($name eq '++' or $name eq '--') {