File Coverage

blib/lib/Bot/ChatBots/Role/UserAgent.pm

Criterion	Covered	Total	%
statement	26	28	92.8
branch	12	14	85.7
condition	8	12	66.6
subroutine	6	6	100.0
pod	3	3	100.0
total	55	63	87.3

package Bot::ChatBots::Role::UserAgent;
use strict;
use warnings;
{ our $VERSION = '0.009'; }

use Moo::Role;

has callback => (
   is        => 'rw',
   lazy      => 1,
   predicate => 1,
   clearer   => 1,
);

has start_loop => (
   is      => 'rw',
   default => sub { return 0 },
);

has ua => (
   is      => 'rw',
   lazy    => 1,
   builder => 'BUILD_ua',
);

sub BUILD_ua {
   my $self = shift;
   require Mojo::UserAgent;
   return Mojo::UserAgent->new;
}

sub may_start_loop {
   my $self = shift;
   my %args = (@_ && ref($_[0])) ? %{$_[0]} : @_;
   my $start_loop =
     exists($args{start_loop})
     ? $args{start_loop}
     : $self->start_loop;
   Mojo::IOLoop->start if $start_loop && (!Mojo::IOLoop->is_running);
   return $self;
} ## end sub may_start_loop

sub ua_request {
   my ($self, $method) = splice @_, 0, 2;
   my %args = (@_ && ref($_[0])) ? %{$_[0]} : @_;
   $method = lc $method;

   my @ua_args = @{$args{ua_args}};

   my @callback =
       (scalar(@ua_args) && (ref($ua_args[-1]) eq 'CODE')) ? (pop @ua_args)
     : $self->has_callback ? ($self->callback)
     :                       ();

   my $res = $self->ua->$method(@ua_args, @callback);

   $self->may_start_loop(%args) if @callback;

   return $res;
} ## end sub ua_request

1;