CPAN::Groonga

Group
Extension

Matches 35358

DWIM-Block ( D/DC/DCONWAY/DWIM-Block-0.000002.tar.gz, DCONWAY, 2024; MetaCPAN )
DWIM-Block/lib/DWIM/Block.pm ( view source; MetaCPAN ) 
a C<do> block). For example:

    dwim from_JSON ($JSON_data) {

        return eval DWIM { Please convert the following JSON object to a Perl hashref: JSON_data };

    }

Note that, if the query fai
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;
}
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/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.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;
}
Kelp-Module-YAML ( B/BR/BRTASTIC/Kelp-Module-YAML-2.00.tar.gz, BRTASTIC, 2024; MetaCPAN )
Kelp-Module-YAML/lib/Kelp/Module/YAML/KelpExtensions.pm ( view source; MetaCPAN ) 
es->header('content-type'), qr/yaml/, 'Content-Type is YAML'
		or return $self;
	my $json = $self->yaml_content;
	cmp_deeply($json, $expected, $test_name) or diag explain $json;
	return $self;
}

1;
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
Kelp-Module-YAML ( B/BR/BRTASTIC/Kelp-Module-YAML-2.00.tar.gz, BRTASTIC, 2024; MetaCPAN )
Kelp-Module-YAML/lib/Kelp/Module/YAML.pm ( view source; MetaCPAN ) 
tem * Kelp::Request

Adds C<is_yaml>, C<yaml_param> and C<yaml_content> methods, all working like
json counterparts.

=item * Kelp::Response

Adds C<yaml> method and an ability for C<render> to turn a
ntent type.

=item * Kelp::Test

Adds C<yaml_cmp> and C<yaml_content> methods, working like their json counterparts.

=back

The rest of the configuration is fed to L<YAML::PP/new>.

YAML content type
Exercises-API ( N/NO/NOBUNAGA/Exercises-API-0.001.tar.gz, NOBUNAGA, 2024; MetaCPAN )
Exercises-API/lib/Exercises/API.pm ( view source; MetaCPAN ) 
ABSTRACT: API Ninja's Exercises API

use v5.38;
use strict;
use warnings;
use Moose;
use LWP;
use JSON;
use Carp;
use Readonly;

use Exercises::API::Exercise;

our $VERSION = '0.001';

Readonly my $AP
    my $response = $self->ua->get($uri);
    if ( $response->is_success ) {
        return decode_json( $response->decoded_content );
    }
    else {
        my $code = $response->code;
        confe
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
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/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/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/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/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/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
OpenSearch ( L/LH/LHRST/OpenSearch-0.94.tar.gz, LHRST, 2024; MetaCPAN )
OpenSearch/lib/OpenSearch/Base.pm ( view source; MetaCPAN ) 
method( $url =>
      ( ( ref($body) eq 'HASH' || ref($body) eq 'ARRAY' ) ? 'json' : ( { 'Content-Type' => 'application/json' } ) ) =>
      $body )->then( sub($tx) {
    return ( $self->response($tx)
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
Sah-SchemaBundle-ColorTheme ( P/PE/PERLANCAR/Sah-SchemaBundle-ColorTheme-0.004.tar.gz, PERLANCAR, 2024; MetaCPAN )
Sah-SchemaBundle-ColorTheme/lib/Sah/SchemaR/perl/colortheme/modname_with_optional_args.pm ( view source; MetaCPAN ) 
 '0.004'; # VERSION

our $rschema = do{my$var={base=>"any",clsets_after_base=>[{of=>[["array_from_json",{elems=>[["str",{match=>"\\A(?:[A-Za-z_][A-Za-z_0-9]*(::[A-Za-z_0-9]+)*(?:=.*)?)\\z","x.completi
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
Powered by Groonga
Maintained by Kenichi Ishigaki <ishigaki@cpan.org>. If you find anything, submit it on GitHub.