Yet Another CPAN Grep

Mojolicious-Plugin-BlogSpam ( A/AK/AKRON/Mojolicious-Plugin-BlogSpam-0.05.tar.gz, AKRON, 2012; MetaCPAN )

Mojolicious-Plugin-BlogSpam/lib/Mojolicious/Plugin/BlogSpam.pm ( view source; MetaCPAN )

age Mojolicious::Plugin::BlogSpam;
use Mojo::Base 'Mojolicious::Plugin';
use Mojo::URL;
use Mojo::JSON;
use Mojo::Log;
use Mojo::UserAgent;
use Scalar::Util 'weaken';

our $VERSION = '0.05';

# Todo:

 $self->{log}) {

    # Serialize comment
    my $msg = "[$1]: " . ($2 || '') . ' ' .
      Mojo::JSON->new->encode($self->hash);

    # Log error
    if ($1 eq 'ERROR') {
      $log->error($msg);