CPAN::Groonga

package Webqq::Qun;
use strict;
use JSON;
use Storable qw(dclone);
use Scalar::Util qw(blessed reftype);
use base qw(Webqq::Qun::Authorize Webqq::Qun::Operate Webqq::Qun::Base);
use HTTP::Cookies;
use

package Webqq::Qun::Operate;
use strict;
use JSON;
use Encode;
use Webqq::Util qw(gen_url gen_url2);
my %levelname;
sub get_token{
    my $self = shift;
    my $t = $self->search_cookie("skey");
    m

m/^jQuery18302889768735039979_1427194882987\((.*?)\);/; 
        my $json = JSON->new->utf8->decode($data);
        return if $json->{retcode}!=0;
    }
    return;
     
}
sub get_qun {
    my $self 

       my $json = JSON->new->utf8->decode($res->content);
        return  if  $json->{ec}!=0;
        $self->{data} = [];
        for my $t (qw(join manage create)){
            for(@{$json->{$t}}){