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.pm ( view source; MetaCPAN ) 
代表了对应用的不同权限

=cut

use strict;
use Encode;
use LWP::UserAgent;
use JSON;
use utf8;

our $VERSION = '0.12';
our @EXPORT = qw/ gettoken getcallbackip get_api_domain_ip /
=$corpid&corpsecret=$corpsecret");
        if ($response->is_success) {
            return from_json($response->decoded_content,{utf8 => 1, allow_nonref => 1});
        }

    }
    return 0;
}
ckip?access_token=$access_token");
        if ($response->is_success) {
            return from_json($response->decoded_content,{utf8 => 1, allow_nonref => 1});
        }

    }
    return 0;
}
QQ-weixin-work ( Y/YO/YOURSELF/QQ-weixin-work-v0.12.zip, YOURSELF, 2024; MetaCPAN )
QQ-weixin-work/lib/QQ/weixin/work/wedoc/smartsheet.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.12';
our @EXPORT = qw/ add_sheet delete_sheet update_sheet
			

    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.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/ space_create space_rename space_dismiss 

    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/department.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 list simplelist get

    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/living.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 modify cancel delete_replay_data 

    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/account.pm ( view source; MetaCPAN ) 


=cut

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

our $VERSION = '0.10';
our @EXPORT = qw/ add del update list /;

=head1 FUNCTIO

    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/servicer.pm ( view source; MetaCPAN ) 


=cut

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

our $VERSION = '0.10';
our @EXPORT = qw/ add del update list /;

=head1 FUNCTIO

    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/customer.pm ( view source; MetaCPAN ) 


=cut

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

our $VERSION = '0.10';
our @EXPORT = qw/ get_upgrade_service_config upgrade_servi
nfig?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/checkin.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/ getcorpcheckinoption getcheckinoption ge

    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/batch.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/ get_by_user /;

=head1 FUNCTION

=he

    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/customer_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/externalcontact/resigned.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/ transfer_customer transfer_result /;



    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/service_state.pm ( view source; MetaCPAN ) 


=cut

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

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

=head1 FUNCTION

=head

    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/user.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 update delete batchdelete
  

    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.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/ get_follow_user_list list get remark
		
list?access_token=$access_token");
        if ($response->is_success) {
            return from_json($response->decoded_content,{utf8 => 1, allow_nonref => 1});
        }

    }
    return 0;
}
en=$access_token&userid=$userid");
        if ($response->is_success) {
            return from_json($response->decoded_content,{utf8 => 1, allow_nonref => 1});
        }

    }
    return 0;
}
QQ-weixin-work ( Y/YO/YOURSELF/QQ-weixin-work-v0.12.zip, YOURSELF, 2024; MetaCPAN )
QQ-weixin-work/lib/QQ/weixin/work/externalcontact/group_welcome_template.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/ add edit get del /;

=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/corp.pm ( view source; MetaCPAN ) 
ION

=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/ get_join_qrcode
				getapprovaldata /;

cess_token&size_type=$size_type");
        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/dial.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/ get_dial_record /;

=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/media.pm ( view source; MetaCPAN ) 
ION

=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/ upload uploadimg get
				upload_by_url 
nt_Type => 'multipart/form-data');
        if ($response->is_success) {
            return from_json($response->decoded_content,{utf8 => 1, allow_nonref => 1});
        }

    }
    return 0;
}
nt_Type => 'multipart/form-data');
        if ($response->is_success) {
            return from_json($response->decoded_content,{utf8 => 1, allow_nonref => 1});
        }

    }
    return 0;
}
QQ-weixin-work ( Y/YO/YOURSELF/QQ-weixin-work-v0.12.zip, YOURSELF, 2024; MetaCPAN )
QQ-weixin-work/lib/QQ/weixin/work/batch.pm ( view source; MetaCPAN ) 
ION

=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/ invite syncuser replaceuser replaceparty

    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.