File Coverage

blib/lib/IPC/Manager/Message.pm

Criterion	Covered	Total	%
statement	33	40	82.5
branch	6	12	50.0
condition	5	9	55.5
subroutine	10	11	90.9
pod	3	4	75.0
total	57	76	75.0

package IPC::Manager::Message;
use strict;
use warnings;

our $VERSION = '0.000005';

use Carp qw/croak/;
use Time::HiRes qw/time/;
use Scalar::Util qw/blessed/;
use Test2::Util::UUID qw/gen_uuid/;

use Object::HashBase qw{






};

sub init {
    my $self = shift;

    croak "'from' is a required attribute"    unless $self->{+FROM};
    croak "'content' is a required attribute" unless defined $self->{+CONTENT};

    croak "Message must either have a 'to' or 'broadcast' attribute" unless $self->{+TO} || $self->{+BROADCAST};

    $self->{+ID}    //= gen_uuid();
    $self->{+STAMP} //= time;
}

sub is_terminate {
    my $self = shift;

    my $content = $self->{+CONTENT} or return 0;
    return 0 unless ref($content) eq 'HASH';
    return 1 if $content->{terminate};
    return 0;
}

sub TO_JSON { +{%{$_[0]}} }

sub clone {
    my $self   = shift;
    my %params = @_;
    my $copy   = {%$self};
    delete $copy->{+ID};
    $copy = {%$copy, %params};
    return blessed($self)->new($copy);
}

1;

__END__