File Coverage

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

Criterion	Covered	Total	%
statement	12	12	100.0
branch	2	2	100.0
condition	2	3	66.6
subroutine	4	4	100.0
pod	1	1	100.0
total	21	22	95.4

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

use Moo::Role;
with 'Bot::ChatBots::Role::Processor';
requires 'send_message';

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

sub process {
   my ($self, $record) = @_;

   $record->{sent_message} = $self->send_message($record->{send_message})
     if (ref($record) eq 'HASH') && exists($record->{send_message});

   return $record;    # pass-through anyway
} ## end sub process

1;