File Coverage

blib/lib/WebService/Slack/WebApi/Users/Profile.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	1	2	50.0
condition			n/a
subroutine	9	9	100.0
pod	0	2	0.0
total	36	39	92.3

package WebService::Slack::WebApi::Users::Profile;
use strict;
use warnings;
use utf8;
use feature qw/state/;

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

use JSON::XS;

use WebService::Slack::WebApi::Generator (
    get => {
        include_labels => { isa => 'Bool', optional => 1 },
        user           => { isa => 'Str',  optional => 1 },
    },
);

# override
sub base_name { 'users.profile' }

sub set {
    state $rule = Data::Validator->new(
        name    => { isa => 'Str',     optional => 1 },
        profile => { isa => 'HashRef', optional => 1 },
        user    => { isa => 'Str',     optional => 1 },
        value   => { isa => 'Str',     optional => 1 },
    )->with('Method', 'AllowExtra');
    my ($self, $args, %extra) = $rule->validate(@_);

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

1;