CPAN::Groonga

ot::Pluggable::Module::PathtraqPageCounter;

use strict;
use warnings;
use Readonly;
use URI;
use JSON;
use LWP::UserAgent;
use Data::Dumper;

use base qw(Bot::BasicBot::Pluggable::Module);

Readonly 

 ( $self, $url ) = @_;
    my $res = $self->_get($url);
    my $content = $res->is_success ? from_json( $res->content ) : undef;
    return $content->{count} if $content;
}

sub _get {
    my ( $self,

my $uri = URI->new( $API_BASE_URL . '/page_counter' );
    my $params = {};
    $params->{api} = 'json';
    $params->{url} = $url;
    $uri->query_form($params);
    $uri;
}

sub _create_reply_messag