Mojo-Weixin

 view release on metacpan or  search on metacpan

lib/Mojo/Weixin/Friend.pm  view on Meta::CPAN

sub get_avatar{
    my $self = shift;
    $self->client->get_avatar($self,@_);
}

sub displayname{
    my $self = shift;
    return $self->display || $self->markname || $self->name || '昵称未知';
}

sub update{
    my $self = shift;
    my $hash = shift;
    for(grep {substr($_,0,1) ne "_"} keys %$hash){
        if(exists $hash->{$_}){
            $self->client->emoji_convert(\$hash->{$_},$self->client->emoji_to_text) if $_ eq "name";
            $self->client->emoji_convert(\$hash->{$_},$self->client->emoji_to_text) if $_ eq "display";
            $self->client->emoji_convert(\$hash->{$_},$self->client->emoji_to_text) if $_ eq "markname";
            if(defined $hash->{$_} and defined $self->{$_}){
                if($hash->{$_} ne $self->{$_}){
                    my $old_property = $self->{$_};

lib/Mojo/Weixin/Group.pm  view on Meta::CPAN

        }
    }

    $self->client->emoji_convert(\$self->{name},$self->client->emoji_to_text);
    $self;
}
sub is_empty{
    my $self = shift;
    return !(ref($self->member) eq "ARRAY"?0+@{$self->member}:0);
}
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 {$_->_group_id($self->id);$_} 
            map {ref $_ eq "Mojo::Weixin::Group::Member"?$_:Mojo::Weixin::Group::Member->new($_)} 
            @{$hash->{member}};

lib/Mojo/Weixin/Group/Member.pm  view on Meta::CPAN

}

sub get_avatar{
    my $self = shift;
    $self->client->get_avatar($self,@_);
}
sub displayname{
    my $self = shift;
    return $self->display || $self->markname || $self->name || '昵称未知';
}
sub update{
    my $self = shift;
    my $hash = shift;
    for(grep {substr($_,0,1) ne "_"} keys %$hash){
        if(exists $hash->{$_}){
            $self->client->emoji_convert(\$hash->{$_},$self->client->emoji_to_text) if $_ eq "markname";
            $self->client->emoji_convert(\$hash->{$_},$self->client->emoji_to_text) if $_ eq "display";
            if(defined $hash->{$_} and defined $self->{$_}){
                if($hash->{$_} ne $self->{$_}){
                    my $old_property = $self->{$_};
                    my $new_property = $hash->{$_};

lib/Mojo/Weixin/Model.pm  view on Meta::CPAN

                $self->emit(update_group=>$self->group); 
            }
        }
        else{
            $self->error("更新群组信息失败");
            return;
        }
    }
    return 1;
}
sub update_user {

}
sub update_friend{
    my $self = shift;
    my @friend_ids = map {ref $_ eq "Mojo::Weixin::Friend"?$_->id:$_} @_;
    if(@friend_ids){
        my @return = $self->_webwxbatchgetcontact_friend(@friend_ids);
        return if not @return;
        $self->add_friend(Mojo::Weixin::Friend->new($_)) for @return;
        return 1;
    }
}
sub update_group{
    my $self = shift;
    my @group_ids = map {ref $_ eq "Mojo::Weixin::Group"?$_->id:$_} @_;
    my $is_update_group_member = $_[1] // $self->is_update_group_member;
    if(@group_ids){
        my @return = $self->_webwxbatchgetcontact_group($is_update_group_member,@group_ids);
        return if not @return;
        $self->add_group(Mojo::Weixin::Group->new($_)) for @return;
        return 1;
    }
}

lib/Mojo/Weixin/User.pm  view on Meta::CPAN

sub get_avatar{
    my $self = shift;
    $self->client->get_avatar($self,@_);
}

sub displayname {
    my $self = shift;
    return $self->display || $self->markname || $self->name;
}

sub update{
    my $self = shift;
    my $hash = shift;
    for(grep {substr($_,0,1) ne "_"} keys %$self){
        if(exists $hash->{$_}){
            $self->client->emoji_convert(\$hash->{$_},$self->client->emoji_to_text) if $_ eq "name";
            $self->client->emoji_convert(\$hash->{$_},$self->client->emoji_to_text) if $_ eq "display";
            $self->client->emoji_convert(\$hash->{$_},$self->client->emoji_to_text) if $_ eq "markname";
            if(defined $hash->{$_} and defined $self->{$_}){
                if($hash->{$_} ne $self->{$_}){
                    my $old_property = $self->{$_};

 view all matches for this distribution
 view release on metacpan -  search on metacpan