File Coverage

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

Criterion	Covered	Total	%
statement	24	24	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod			n/a
total	31	31	100.0

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

sub import {
    my ($class, %rules) = @_;
    my $caller = caller;

    while (my ($method_name, $rule) = each %rules) {
        (my $path = $method_name) =~ s/_([a-z])/\u$1/g;
        my $method = sprintf '%s::%s', $caller, $method_name;

        no strict 'refs';
        *$method = sub {
            state $v = Data::Validator->new(%$rule)->with('Method', 'AllowExtra');
            my ($self, $args, %extra) = $v->validate(@_);
            return $self->request($path, {%$args, %extra});
        };
    }
}

1;