23 lines
497 B
Perl
Executable File
23 lines
497 B
Perl
Executable File
#!/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;
|