CPAN::Groonga

Group
Extension

Matches 54

QQ-weixin-work ( Y/YO/YOURSELF/QQ-weixin-work-v0.12.zip, YOURSELF, 2024; MetaCPAN )
QQ-weixin-work/lib/QQ/weixin/work/appchat.pm ( view source; MetaCPAN ) 
话

=cut

use strict;
use base qw(QQ::weixin::work);
use Encode;
use LWP::UserAgent;
use JSON;
use utf8;

our $VERSION = '0.10';
our @EXPORT = qw/ create update get send /;

=head1 FUNC

    if ( @_ && $_[0] && ref $_[1] eq 'HASH' ) {
        my $access_token = $_[0];
        my $json = $_[1];
        my $ua = LWP::UserAgent->new;
        $ua->timeout(30);
        $ua->env_prox
oken=$access_token",Content => to_json($json,{allow_nonref=>1}),Content_type =>'application/json');
        if ($response->is_success) {
            return from_json($response->decoded_content,{utf8
QQ-weixin-work ( Y/YO/YOURSELF/QQ-weixin-work-v0.12.zip, YOURSELF, 2024; MetaCPAN )
QQ-weixin-work/lib/QQ/weixin/work/kf.pm ( view source; MetaCPAN ) 
服

=cut

use strict;
use base qw(QQ::weixin::work);
use Encode;
use LWP::UserAgent;
use JSON;
use utf8;

our $VERSION = '0.10';
our @EXPORT = qw/ add_contact_way
				sync_msg send_msg s

    if ( @_ && $_[0] && ref $_[1] eq 'HASH' ) {
        my $access_token = $_[0];
        my $json = $_[1];
        my $ua = LWP::UserAgent->new;
        $ua->timeout(30);
        $ua->env_prox
oken=$access_token",Content => to_json($json,{allow_nonref=>1}),Content_type =>'application/json');
        if ($response->is_success) {
            return from_json($response->decoded_content,{utf8
QQ-weixin-work ( Y/YO/YOURSELF/QQ-weixin-work-v0.12.zip, YOURSELF, 2024; MetaCPAN )
QQ-weixin-work/lib/QQ/weixin/work/menu.pm ( view source; MetaCPAN ) 
单

=cut

use strict;
use base qw(QQ::weixin::work);
use Encode;
use LWP::UserAgent;
use JSON;
use utf8;

our $VERSION = '0.10';
our @EXPORT = qw/ create get delete /;

=head1 FUNCTION

$_[2] eq 'HASH' ) {
        my $access_token = $_[0];
        my $agentid = $_[1];
        my $json = $_[2];
        my $ua = LWP::UserAgent->new;
        $ua->timeout(30);
        $ua->env_prox
n&agentid=$agentid",Content => to_json($json,{allow_nonref=>1}),Content_type =>'application/json');
        if ($response->is_success) {
            return from_json($response->decoded_content,{utf8
QQ-weixin-work ( Y/YO/YOURSELF/QQ-weixin-work-v0.12.zip, YOURSELF, 2024; MetaCPAN )
QQ-weixin-work/lib/QQ/weixin/work/oa.pm ( view source; MetaCPAN ) 
批

=cut

use strict;
use base qw(QQ::weixin::work);
use Encode;
use LWP::UserAgent;
use JSON;
use utf8;

our $VERSION = '0.10';
our @EXPORT = qw/ gettemplatedetail applyevent getapproval

    if ( @_ && $_[0] && ref $_[1] eq 'HASH' ) {
        my $access_token = $_[0];
        my $json = $_[1];
        my $ua = LWP::UserAgent->new;
        $ua->timeout(30);
        $ua->env_prox
oken=$access_token",Content => to_json($json,{allow_nonref=>1}),Content_type =>'application/json');
        if ($response->is_success) {
            return from_json($response->decoded_content,{utf8
QQ-weixin-work ( Y/YO/YOURSELF/QQ-weixin-work-v0.12.zip, YOURSELF, 2024; MetaCPAN )
QQ-weixin-work/lib/QQ/weixin/work/tag.pm ( view source; MetaCPAN ) 
理

=cut

use strict;
use base qw(QQ::weixin::work);
use Encode;
use LWP::UserAgent;
use JSON;
use utf8;

our $VERSION = '0.10';
our @EXPORT = qw/ create update delete get addtagusers del

    if ( @_ && $_[0] && ref $_[1] eq 'HASH' ) {
        my $access_token = $_[0];
        my $json = $_[1];
        my $ua = LWP::UserAgent->new;
        $ua->timeout(30);
        $ua->env_prox
oken=$access_token",Content => to_json($json,{allow_nonref=>1}),Content_type =>'application/json');
        if ($response->is_success) {
            return from_json($response->decoded_content,{utf8
QQ-weixin-work ( Y/YO/YOURSELF/QQ-weixin-work-v0.12.zip, YOURSELF, 2024; MetaCPAN )
QQ-weixin-work/lib/QQ/weixin/work/message.pm ( view source; MetaCPAN ) 
送

=cut

use strict;
use base qw(QQ::weixin::work);
use Encode;
use LWP::UserAgent;
use JSON;
use utf8;

our $VERSION = '0.10';
our @EXPORT = qw/ send update_template_card recall update_

    if ( @_ && $_[0] && ref $_[1] eq 'HASH' ) {
        my $access_token = $_[0];
        my $json = $_[1];
        my $ua = LWP::UserAgent->new;
        $ua->timeout(30);
        $ua->env_prox
oken=$access_token",Content => to_json($json,{allow_nonref=>1}),Content_type =>'application/json');
        if ($response->is_success) {
            return from_json($response->decoded_content,{utf8
QQ-weixin-work ( Y/YO/YOURSELF/QQ-weixin-work-v0.12.zip, YOURSELF, 2024; MetaCPAN )
QQ-weixin-work/lib/QQ/weixin/work/externalcontact/groupchat.pm ( view source; MetaCPAN ) 
e strict;
use base qw(QQ::weixin::work::externalcontact);
use Encode;
use LWP::UserAgent;
use JSON;
use utf8;

our $VERSION = '0.10';
our @EXPORT = qw/ onjob_transfer transfer list get
				ad

    if ( @_ && $_[0] && ref $_[1] eq 'HASH' ) {
        my $access_token = $_[0];
        my $json = $_[1];
        my $ua = LWP::UserAgent->new;
        $ua->timeout(30);
        $ua->env_prox
oken=$access_token",Content => to_json($json,{allow_nonref=>1}),Content_type =>'application/json');
        if ($response->is_success) {
            return from_json($response->decoded_content,{utf8
QQ-weixin-work ( Y/YO/YOURSELF/QQ-weixin-work-v0.12.zip, YOURSELF, 2024; MetaCPAN )
QQ-weixin-work/lib/QQ/weixin/work/externalcontact/moment_strategy.pm ( view source; MetaCPAN ) 
e strict;
use base qw(QQ::weixin::work::externalcontact);
use Encode;
use LWP::UserAgent;
use JSON;
use utf8;

our $VERSION = '0.10';
our @EXPORT = qw/ list get get_range create edit del /;



    if ( @_ && $_[0] && ref $_[1] eq 'HASH' ) {
        my $access_token = $_[0];
        my $json = $_[1];
        my $ua = LWP::UserAgent->new;
        $ua->timeout(30);
        $ua->env_prox
oken=$access_token",Content => to_json($json,{allow_nonref=>1}),Content_type =>'application/json');
        if ($response->is_success) {
            return from_json($response->decoded_content,{utf8
QQ-weixin-work ( Y/YO/YOURSELF/QQ-weixin-work-v0.12.zip, YOURSELF, 2024; MetaCPAN )
QQ-weixin-work/lib/QQ/weixin/work/oa/meetingroom/bookinfo.pm ( view source; MetaCPAN ) 
e strict;
use base qw(QQ::weixin::work::oa::meetingroom);
use Encode;
use LWP::UserAgent;
use JSON;
use utf8;

our $VERSION = '0.10';
our @EXPORT = qw/ get /;

=head1 FUNCTION

=head2 会

    if ( @_ && $_[0] && ref $_[1] eq 'HASH' ) {
        my $access_token = $_[0];
        my $json = $_[1];
        my $ua = LWP::UserAgent->new;
        $ua->timeout(30);
        $ua->env_prox
oken=$access_token",Content => to_json($json,{allow_nonref=>1}),Content_type =>'application/json');
        if ($response->is_success) {
            return from_json($response->decoded_content,{utf8
QQ-weixin-work ( Y/YO/YOURSELF/QQ-weixin-work-v0.12.zip, YOURSELF, 2024; MetaCPAN )
QQ-weixin-work/lib/QQ/weixin/work/security/vip.pm ( view source; MetaCPAN ) 
t

use strict;
use base qw(QQ::weixin::work::security);
use Encode;
use LWP::UserAgent;
use JSON;
use utf8;

our $VERSION = '0.10';
our @EXPORT = qw/ submit_batch_add_job batch_add_job_resul

    if ( @_ && $_[0] && ref $_[1] eq 'HASH' ) {
        my $access_token = $_[0];
        my $json = $_[1];
        my $ua = LWP::UserAgent->new;
        $ua->timeout(30);
        $ua->env_prox
oken=$access_token",Content => to_json($json,{allow_nonref=>1}),Content_type =>'application/json');
        if ($response->is_success) {
            return from_json($response->decoded_content,{utf8
QQ-weixin-work ( Y/YO/YOURSELF/QQ-weixin-work-v0.12.zip, YOURSELF, 2024; MetaCPAN )
QQ-weixin-work/lib/QQ/weixin/work/security/trustdevice.pm ( view source; MetaCPAN ) 
t

use strict;
use base qw(QQ::weixin::work::security);
use Encode;
use LWP::UserAgent;
use JSON;
use utf8;

our $VERSION = '0.10';
our @EXPORT = qw/ import list get_by_user delete approve r

    if ( @_ && $_[0] && ref $_[1] eq 'HASH' ) {
        my $access_token = $_[0];
        my $json = $_[1];
        my $ua = LWP::UserAgent->new;
        $ua->timeout(30);
        $ua->env_prox
oken=$access_token",Content => to_json($json,{allow_nonref=>1}),Content_type =>'application/json');
        if ($response->is_success) {
            return from_json($response->decoded_content,{utf8
QQ-weixin-work ( Y/YO/YOURSELF/QQ-weixin-work-v0.12.zip, YOURSELF, 2024; MetaCPAN )
QQ-weixin-work/lib/QQ/weixin/work/media/get.pm ( view source; MetaCPAN ) 
=cut

use strict;
use base qw(QQ::weixin::work::media);
use Encode;
use LWP::UserAgent;
use JSON;
use utf8;

our $VERSION = '0.10';
our @EXPORT = qw/ jssdk /;

=head1 FUNCTION

=head2 js
QQ-weixin-work ( Y/YO/YOURSELF/QQ-weixin-work-v0.12.zip, YOURSELF, 2024; MetaCPAN )
QQ-weixin-work/lib/QQ/weixin/work/corpgroup/rule.pm ( view source; MetaCPAN ) 


use strict;
use base qw(QQ::weixin::work::corpgroup);
use Encode;
use LWP::UserAgent;
use JSON;
use utf8;

our $VERSION = '0.10';
our @EXPORT = qw/ list_ids delete_rule get_rule_info add_r

    if ( @_ && $_[0] && ref $_[1] eq 'HASH' ) {
        my $access_token = $_[0];
        my $json = $_[1];
        my $ua = LWP::UserAgent->new;
        $ua->timeout(30);
        $ua->env_prox
oken=$access_token",Content => to_json($json,{allow_nonref=>1}),Content_type =>'application/json');
        if ($response->is_success) {
            return from_json($response->decoded_content,{utf8
QQ-weixin-work ( Y/YO/YOURSELF/QQ-weixin-work-v0.12.zip, YOURSELF, 2024; MetaCPAN )
QQ-weixin-work/lib/QQ/weixin/work/wedrive/vip.pm ( view source; MetaCPAN ) 
ut

use strict;
use base qw(QQ::weixin::work::wedrive);
use Encode;
use LWP::UserAgent;
use JSON;
use utf8;

our $VERSION = '0.10';
our @EXPORT = qw/ batch_add batch_del list /;

=head1 FU

    if ( @_ && $_[0] && ref $_[1] eq 'HASH' ) {
        my $access_token = $_[0];
        my $json = $_[1];
        my $ua = LWP::UserAgent->new;
        $ua->timeout(30);
        $ua->env_prox
oken=$access_token",Content => to_json($json,{allow_nonref=>1}),Content_type =>'application/json');
        if ($response->is_success) {
            return from_json($response->decoded_content,{utf8
QQ-weixin-work ( Y/YO/YOURSELF/QQ-weixin-work-v0.12.zip, YOURSELF, 2024; MetaCPAN )
QQ-weixin-work/lib/QQ/weixin/work/corpgroup/corp.pm ( view source; MetaCPAN ) 


use strict;
use base qw(QQ::weixin::work::corpgroup);
use Encode;
use LWP::UserAgent;
use JSON;
use utf8;

our $VERSION = '0.10';
our @EXPORT = qw/ list_app_share_info gettoken get_chain_l

    if ( @_ && $_[0] && ref $_[1] eq 'HASH' ) {
        my $access_token = $_[0];
        my $json = $_[1];
        my $ua = LWP::UserAgent->new;
        $ua->timeout(30);
        $ua->env_prox
oken=$access_token",Content => to_json($json,{allow_nonref=>1}),Content_type =>'application/json');
        if ($response->is_success) {
            return from_json($response->decoded_content,{utf8
QQ-weixin-work ( Y/YO/YOURSELF/QQ-weixin-work-v0.12.zip, YOURSELF, 2024; MetaCPAN )
QQ-weixin-work/lib/QQ/weixin/work/oa/vacation.pm ( view source; MetaCPAN ) 


=cut

use strict;
use base qw(QQ::weixin::work::oa);
use Encode;
use LWP::UserAgent;
use JSON;
use utf8;

our $VERSION = '0.10';
our @EXPORT = qw/ getcorpconf getuservacationquota setoneu
conf?access_token=$access_token");
        if ($response->is_success) {
            return from_json($response->decoded_content,{utf8 => 1, allow_nonref => 1});
        }

    }
    return 0;
}

    if ( @_ && $_[0] && ref $_[1] eq 'HASH' ) {
        my $access_token = $_[0];
        my $json = $_[1];
        my $ua = LWP::UserAgent->new;
        $ua->timeout(30);
        $ua->env_prox
QQ-weixin-work ( Y/YO/YOURSELF/QQ-weixin-work-v0.12.zip, YOURSELF, 2024; MetaCPAN )
QQ-weixin-work/lib/QQ/weixin/work/wedoc/document.pm ( view source; MetaCPAN ) 
=cut

use strict;
use base qw(QQ::weixin::work::wedoc);
use Encode;
use LWP::UserAgent;
use JSON;
use utf8;

our $VERSION = '0.10';
our @EXPORT = qw/ batch_update get /;

=head1 FUNCTION


    if ( @_ && $_[0] && ref $_[1] eq 'HASH' ) {
        my $access_token = $_[0];
        my $json = $_[1];
        my $ua = LWP::UserAgent->new;
        $ua->timeout(30);
        $ua->env_prox
oken=$access_token",Content => to_json($json,{allow_nonref=>1}),Content_type =>'application/json');
        if ($response->is_success) {
            return from_json($response->decoded_content,{utf8
QQ-weixin-work ( Y/YO/YOURSELF/QQ-weixin-work-v0.12.zip, YOURSELF, 2024; MetaCPAN )
QQ-weixin-work/lib/QQ/weixin/work/wedoc/spreadsheet.pm ( view source; MetaCPAN ) 
=cut

use strict;
use base qw(QQ::weixin::work::wedoc);
use Encode;
use LWP::UserAgent;
use JSON;
use utf8;

our $VERSION = '0.10';
our @EXPORT = qw/ batch_update
				get_sheet_properties g

    if ( @_ && $_[0] && ref $_[1] eq 'HASH' ) {
        my $access_token = $_[0];
        my $json = $_[1];
        my $ua = LWP::UserAgent->new;
        $ua->timeout(30);
        $ua->env_prox
oken=$access_token",Content => to_json($json,{allow_nonref=>1}),Content_type =>'application/json');
        if ($response->is_success) {
            return from_json($response->decoded_content,{utf8
QQ-weixin-work ( Y/YO/YOURSELF/QQ-weixin-work-v0.12.zip, YOURSELF, 2024; MetaCPAN )
QQ-weixin-work/lib/QQ/weixin/work/wedoc/vip.pm ( view source; MetaCPAN ) 
=cut

use strict;
use base qw(QQ::weixin::work::wedoc);
use Encode;
use LWP::UserAgent;
use JSON;
use utf8;

our $VERSION = '0.10';
our @EXPORT = qw/ batch_add batch_del list /;

=head1 FU

    if ( @_ && $_[0] && ref $_[1] eq 'HASH' ) {
        my $access_token = $_[0];
        my $json = $_[1];
        my $ua = LWP::UserAgent->new;
        $ua->timeout(30);
        $ua->env_prox
oken=$access_token",Content => to_json($json,{allow_nonref=>1}),Content_type =>'application/json');
        if ($response->is_success) {
            return from_json($response->decoded_content,{utf8
QQ-weixin-work ( Y/YO/YOURSELF/QQ-weixin-work-v0.12.zip, YOURSELF, 2024; MetaCPAN )
QQ-weixin-work/lib/QQ/weixin/work/corpgroup/batch.pm ( view source; MetaCPAN ) 


use strict;
use base qw(QQ::weixin::work::corpgroup);
use Encode;
use LWP::UserAgent;
use JSON;
use utf8;

our $VERSION = '0.10';
our @EXPORT = qw/ external_userid_to_pending_id /;

=hea

    if ( @_ && $_[0] && ref $_[1] eq 'HASH' ) {
        my $access_token = $_[0];
        my $json = $_[1];
        my $ua = LWP::UserAgent->new;
        $ua->timeout(30);
        $ua->env_prox
oken=$access_token",Content => to_json($json,{allow_nonref=>1}),Content_type =>'application/json');
        if ($response->is_success) {
            return from_json($response->decoded_content,{utf8
Powered by Groonga
Maintained by Kenichi Ishigaki <ishigaki@cpan.org>. If you find anything, submit it on GitHub.