#!/usr/bin/env perl

use v5.30.0;

use strict;
use warnings;

use Data::Dumper;
use IO::Socket::UNIX;

use Cualsea::FileSocket;
use Cualsea::MessageManager;

my $socket = IO::Socket::UNIX->new(
    Type  => SOCK_STREAM(),
    Peer => $Cualsea::FileSocket::SOCKET_PATH,
) or die "Daemon not started";
my $message_manager = Cualsea::MessageManager->new(socket => $socket);

$message_manager->write_message( message => {hola => 'mundo'} );

print Data::Dumper::Dumper $message_manager->read_message;