File Coverage

blib/lib/WebService/Slack/WebApi/Base.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch			n/a
condition			n/a
subroutine	8	8	100.0
pod	0	3	0.0
total	32	35	91.4

package WebService::Slack::WebApi::Base;
use strict;
use warnings;
use utf8;

use Data::Validator;
use Class::Accessor::Lite (
    new => 1,
    rw  => [qw/ client /],
);

sub base_name {
    my $self = shift;
    my @components = split /::/, ref $self;
    return lc $components[-1];
}

sub request {
    my ($self, $path, $args) = @_;
    my $request_path = sprintf '/%s.%s', $self->base_name, $path;
    return $self->client->request($request_path, $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);
}

1;