File Coverage

blib/lib/WebService/Slack/WebApi.pm

Criterion	Covered	Total	%
statement	30	30	100.0
branch	2	2	100.0
condition	3	3	100.0
subroutine	10	10	100.0
pod			n/a
total	45	45	100.0

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

use Class::Load qw/ load_class /;
use Class::Accessor::Lite::Lazy (
    new     => 1,
    rw      => [qw/ team_domain token opt ua /],
    ro_lazy => [qw/ client api auth channels conversations chat dialog emoji files groups im oauth pins reactions rtm search stars team users dnd bots migration /],
);

use WebService::Slack::WebApi::Exception;
use WebService::Slack::WebApi::Client;

our $VERSION = '0.18';

sub _build_client {
    my $self = shift;
    if( $self->opt && $self->ua ) {
        WebService::Slack::WebApi::Exception::IllegalParameters->throw(
            message  => 'Illegal parameters. You cannot use both parameters \'opt\' and \'ua\' together',
        );
    }
    return WebService::Slack::WebApi::Client->new(
        team_domain => $self->team_domain,
        token       => $self->token,
        opt         => $self->opt,
        useragent   => $self->ua,
    );
}

for my $class_name (qw/ api auth channels conversations chat dialog emoji files groups im oauth pins reactions rtm search stars team users dnd bots migration /) {
    my $method = sprintf '%s::_build_%s', __PACKAGE__, $class_name;
    my $class  = sprintf '%s::%s', __PACKAGE__, ucfirst($class_name);

    no strict 'refs';
    *$method = sub {
        load_class $class;
        return $class->new(client => shift->client)
    };
}

1;

__END__