Yet Another CPAN Grep

XiaoI ( L/LA/LAOMOI/XiaoI-0.03.tar.gz, LAOMOI, 2008; MetaCPAN )

XiaoI/lib/XiaoI.pm ( view source; MetaCPAN )

package XiaoI;

use 5.008005;
use strict;
use warnings;
use JSON;
require Exporter;

our @ISA = qw(Exporter);

our $VERSION = '0.03';


# Preloaded methods go here.
use LWP::UserAgent;

   if ($text =~ m{processMessageReceived\((.*)\)}s) {
        my $json_text = $1;
        my $ra = JSON->new->utf8(0)->decode($json_text);
        if (@$ra > 0  and $ra->[0]->{CMD} eq 'CHAT') {