File Coverage

blib/lib/API/Matterbridge/Message.pm

Criterion	Covered	Total	%
statement	21	33	63.6
branch			n/a
condition			n/a
subroutine	7	9	77.7
pod	0	2	0.0
total	28	44	63.6

package API::Matterbridge::Message;
use strict;
use warnings;
use Moo 2;
use JSON 'decode_json';

use Filter::signatures;
use feature 'signatures';
no warnings 'experimental::signatures';

our $VERSION = '0.01';

# This is just a hash-with-(currently no)-methods

has [
  "text",
  "channel",
  "username",
  "userid",
  "avatar",
  "account",
  "event",
  "protocol",
  "gateway",
  "parent_id",
  "timestamp",
  "id",
  "Extra",
 ] => (
    is => 'ro',
);

sub from_bytes( $class, $bytes ) {
    return $class->new( decode_json($bytes))
}

sub reply( $msg, $text, %options ) {
    my %reply = (
        gateway => $msg->gateway,
        text => $text,
        %options
    );
    return (ref $msg)->new(\%reply)
}

1;