Yet Another CPAN Grep

QQ-weixin-work ( Y/YO/YOURSELF/QQ-weixin-work-v0.12.zip, YOURSELF, 2024; MetaCPAN )

QQ-weixin-work/lib/QQ/weixin/work/oa/approval.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/ create_template update_template /;

=h


    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_acquisition.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_link get create_link update_link de


    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/schedule.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/ add update add_attendees del_attendees


    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/journal.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/ get_record_list get_record_detail get_st


    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.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/ add list edit del
				get_booking_info


    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/calendar.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/ add update 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/hr.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_fields get_staff_info update_staff_i

elds?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.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_doc rename_doc del_doc get_doc_ba


    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.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/ unionid_to_external_userid unionid_to_pe


    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/message.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/ send /;

=head1 FUNCTION

=head2 sen

指定 "enable_duplicate_check": 1开启: 表示在一定时间间隔内，同样内容（请求json）的消息，不会重复收到；时间间隔可通过duplicate_check_interval指定，默认1800


    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/kf/knowledge.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_group del_group mod_group list_group


    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.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_file_oper_record /;

=head1 FUNCTI


    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/pstncc.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/ call getstates /;

=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/agent.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 list set
				set_workbench_template

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

    }
    return 0;
}

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

    }
    return 0;
}