File Coverage

blib/lib/Bot/ChatBots/Messenger/Sender.pm

Criterion	Covered	Total	%
statement	31	32	96.8
branch	11	14	78.5
condition	2	3	66.6
subroutine	8	8	100.0
pod	1	1	100.0
total	53	58	91.3

package Bot::ChatBots::Messenger::Sender;
use strict;
use warnings;
{ our $VERSION = '0.004'; }

use Ouch;
use Log::Any qw< $log >;
use Mojo::URL;

use Moo;
use namespace::clean;

with 'Bot::ChatBots::Role::Sender';
with 'Bot::ChatBots::Role::UserAgent';

has token => (
   is       => 'ro',
   required => 1,
);

has url => (
   is      => 'ro',
   default => 'https://graph.facebook.com/v2.6/me/messages',
);

has _url => (
   is      => 'ro',
   lazy    => 1,
   default => sub {
      my $self = shift;
      return Mojo::URL->new($self->url)
        ->query({access_token => $self->token});
   },
);

sub send_message {
   my ($self, $message) = splice @_, 0, 2;
   ouch 500, 'no output to send' unless defined $message;

   my %args = (@_ && ref($_[0])) ? %{$_[0]} : @_;

   # message normalization
   $message = {message => {text => $message}} unless ref $message;
   if (! exists $message->{recipient}) {
      if (defined $args{record}) { # take from record
         $message->{recipient}{id} = $args{record}{channel}{id};
      }
      elsif ($self->has_recipient) {
         $message->{recipient}{id} = $self->recipient;
      }
      else { # no more ways to figure it out
         ouch 500, 'no recipient for message';
      }
   }

   return $self->ua_request(
      'post',
      %args,
      ua_args => [
         $self->_url,
         {Accept => 'application/json'},
         json => $message,
         ($args{callback} ? $args{callback} : ()),
      ],
   );
} ## end sub send_message

1;