File Coverage

blib/lib/Mojo/Webqq/Group.pm

Criterion	Covered	Total	%
statement	15	165	9.0
branch	0	64	0.0
condition	0	15	0.0
subroutine	5	32	15.6
pod	0	23	0.0
total	20	299	6.6

package Mojo::Webqq::Group;
use strict;
use List::Util qw(first);
use Mojo::Webqq::Group::Member;
use Mojo::Webqq::Base 'Mojo::Webqq::Model::Base';
has [qw(
    id
    uid
    code
    role
    name
    memo
    createtime
    level
    owner_id
    owner_uid
    markname
    max_member
    max_admin
)];
has member => sub{[]};
has _is_hold_member_ext => 0;
sub member_count {0+@{$_[0]->member}}
sub number {$_[0]->uid}
sub AUTOLOAD {
    my $self = shift;
    if($Mojo::Webqq::Group::AUTOLOAD =~ /.*::gnumber/){
        $self->uid(@_);
    }
    elsif($Mojo::Webqq::Group::AUTOLOAD =~ /.*::gtype/){
        $self->role(@_);
    }
    elsif($Mojo::Webqq::Group::AUTOLOAD =~ /.*::g(.*)/){
        my $attr = $1;
        $self->$attr(@_);
    }
    else{die("undefined subroutine $Mojo::Webqq::Group::AUTOLOAD");}
}
sub displayname {
    my $self = shift;
    return defined $self->markname?$self->markname:$self->name;
}
sub new {
    my $class = shift;
    my $self ;
    bless $self=@_ ? @_ > 1 ? {@_} : {%{$_[0]}} : {}, ref $class || $class;
    if(exists $self->{member} and ref $self->{member} eq "ARRAY"){
        for( @{ $self->{member} } ){
            $_->{_group_id} = $self->id if not defined $_->{_group_id};
            $_ = Mojo::Webqq::Group::Member->new($_) if ref $_ ne "Mojo::Webqq::Group::Member";
        }
    }
    $self;
}

sub each_group_member{
    my $self = shift;
    my $callback = shift;
    $self->client->die("参数必须是函数引用") if ref $callback ne "CODE";
    return if ref $self->member ne "ARRAY";
    $self->client->update_group($self) if $self->is_empty;
    for(@{$self->member}){
        $callback->($self->client,$_);
    }
}
sub members {
    my $self = shift;
    $self->client->update_group($self) if $self->is_empty;
    return @{$self->member};
}
sub search_group_member{
    no warnings 'uninitialized';
    my $self = shift;
    my %p = @_;
    return if 0 == grep {defined $p{$_}} keys %p;
    $self->client->update_group($self) if $self->is_empty;
    if(wantarray){
        return grep {my $m = $_;(first {$p{$_} ne $m->$_} grep {defined $p{$_}} keys %p) ? 0 : 1;} @{$self->member};
    }
    else{
        return first {my $m = $_;(first {$p{$_} ne $m->$_} grep {defined $p{$_}} keys %p) ? 0 : 1;} @{$self->member};
    }
}

sub add_group_member{
    my $self = shift;
    my $member = shift;
    my $nocheck = shift;
    $self->client->die("不支持的数据类型") if ref $member ne "Mojo::Webqq::Group::Member";
    if($nocheck){
        push @{$self->member},$member;
        return $self;
    }
    my $m = $self->search_group_member(id=>$member->id);
    if(defined $m){
        %$m = %$member;
    }
    else{
        push @{$self->member},$member;
    }
    return $self;
}

sub remove_group_member{
    my $self = shift;
    my $member = shift;
    $self->client->die("不支持的数据类型") if ref $member ne "Mojo::Webqq::Group::Member";
    for(my $i=0;$i<@{$self->member};$i++){
        if($self->member->[$i]->id eq $member->id){
            splice @{$self->member},$i,1;
            return 1;
        }
    }
    return;
}

sub is_empty{
    my $self = shift;
    return !(ref($self->member) eq "ARRAY"?0+@{$self->member}:0);
}

sub update_group_member_ext {
    my $self = shift;
    $self->client->update_group_member_ext($self,@_);
}
sub update_group_member {
    my $self = shift;
    $self->client->update_group_member($self,@_);
}
sub update{
    my $self = shift;
    my $hash = shift;
    for(grep {substr($_,0,1) ne "_"} keys %$hash){
        if($_ eq "member" and ref $hash->{member} eq "ARRAY"){
            next if not @{$hash->{member}};
            my @member = map {ref $_ eq "Mojo::Webqq::Group::Member"?$_:Mojo::Webqq::Group::Member->new($_)} @{$hash->{member}};
            if( $self->is_empty() ){
                $self->member(\@member);
            }
            else{
                my($new_members,$lost_members,$sames)=$self->client->array_diff($self->member, \@member,sub{$_[0]->id});
                for(@{$new_members}){
                    $self->add_group_member($_);
                    $self->client->emit(new_group_member=>$_,$self);
                }
                for(@{$lost_members}){
                    $self->remove_group_member($_);
                    $self->client->emit(lose_group_member=>$_,$self);
                }
                for(@{$sames}){
                    my($old_member,$new_member) = ($_->[0],$_->[1]);
                    $old_member->update($new_member);
                }
                #$self->member(\@member);
            }
        }
        else{
            if(exists $hash->{$_}){
                if(defined $hash->{$_} and defined $self->{$_}){
                    if($hash->{$_} ne $self->{$_}){
                        my $old_property = $self->{$_};
                        my $new_property = $hash->{$_};
                        $self->{$_} = $hash->{$_};
                        $self->client->emit("group_property_change"=>$self,$_,$old_property,$new_property);
                    }
                }
                elsif( ! (!defined $hash->{$_} and !defined $self->{$_}) ){
                    my $old_property = $self->{$_};
                    my $new_property = $hash->{$_};
                    $self->{$_} = $hash->{$_};
                    $self->client->emit("group_property_change"=>$self,$_,$old_property,$new_property);
                }
            }
        }
    }
    $self;
}

sub send {
    my $self = shift;
    $self->client->send_group_message($self,@_);
}
sub me {
    my $self = shift;
    $self->search_group_member(id=>$self->client->user->id);
}
sub invite_friend{
    my $self = shift;
    my @friends = @_;
    return $self->client->invite_friend($self,@friends);
}
sub shutup_group_member{
    my $self = shift;
    my $time = shift;
    my @members = @_;
    return $self->client->shutup_group_member($self,$time,@members);
}
sub speakup_group_member{
    my $self = shift;
    my @members = @_;
    return $self->client->speakup_group_member($self,@members);
}
sub kick_group_member{
    my $self = shift;
    my @members = @_;
    return $self->client->kick_group_member($self,@members);
}
sub set_group_admin{
    my $self = shift;
    my @members = @_;
    return $self->client->set_group_admin($self,@members);
}
sub remove_group_admin{
    my $self = shift;
    my @members = @_;
    return $self->client->remove_group_admin($self,@members);
}
sub set_group_member_card{
    my $self = shift;
    my $member = shift;
    my $card = shift;
    return $self->client->set_group_member_card($self,$member,$card);
}
sub qiandao {
    my $self = shift;
    return $self->client->qiandao($self);
}
1;