CPAN::Groonga

se warnings;
use utf8;
use feature qw/state/;

use parent 'WebService::Slack::WebApi::Base';

use JSON;
use WebService::Slack::WebApi::Generator (
    delete => {
        channel => 'Str',
        ts 

wExtra');
    my ($self, $args, %extra) = $rule->validate(@_);

    $args->{attachments} = encode_json $args->{attachments} if exists $args->{attachments};
    return $self->request('postEphemeral', {

wExtra');
    my ($self, $args, %extra) = $rule->validate(@_);

    $args->{attachments} = encode_json $args->{attachments} if exists $args->{attachments};
    return $self->request('postMessage', {%$

se warnings;
use utf8;
use feature qw/state/;

use parent 'WebService::Slack::WebApi::Base';

use JSON;

use WebService::Slack::WebApi::Generator (
    get => {
        include_labels => { isa => 'Boo

AllowExtra');
    my ($self, $args, %extra) = $rule->validate(@_);

    $args->{profile} = encode_json $args->{profile} if exists $args->{profile};
    return $self->request('set', { %$args, %extra })

kage WebService::Slack::WebApi::Client;
use strict;
use warnings;
use utf8;

use HTTP::AnyUA;
use JSON;
use WebService::Slack::WebApi::Exception;

use Class::Accessor::Lite::Lazy (
    new     => 1,
 

$path,
        [
            %{ $params },
        ],
        \%options,
    );
    return decode_json $response->{content} if $response->{success};

    WebService::Slack::WebApi::Exception::FailureR

     response => $response,
    );
}

sub request_json {
    my ($self, $path, $params) = @_;

    my %headers = ( 'Content-Type' => 'application/json' );
    if( $self->token && $params->{'http_auth'

hannels} = join ',', @{$args->{channels}} if exists $args->{channels};

    return $self->request_json('completeUploadExternal', {%$args, %extra});
}

# FIXME: maybe be broken... https://github.com/mi

th, $args);
}

sub request_json {
    my ($self, $path, $args) = @_;
    my $request_path = sprintf '/%s.%s', $self->base_name, $path;
    return $self->client->request_json($request_path, $args);
}

se warnings;
use utf8;
use feature qw/state/;

use parent 'WebService::Slack::WebApi::Base';

use JSON;

sub open {
  state $rule = Data::Validator->new(
    dialog     => { isa => 'HashRef', optional

, },
  )->with('Method', 'AllowExtra');
  my ($self, $args, %extra) = $rule->validate(@_);

  $args->{dialog} = encode_json $args->{dialog};
  return $self->request('open', { %$args, %extra });
}

1;