Sha256: b644cbd20b1b010481130830f96b195d2b10a521964a6951baca124498495af2
Contents?: true
Size: 912 Bytes
Versions: 18
Compression:
Stored size: 912 Bytes
Contents
package Javonet::Core::Receiver::Receiver;
use strict;
use warnings;
use Exporter;
use Config;
use File::Basename;
my $perlLibDirJavonet;
my $perlLibDirDeps;
BEGIN {
my $thisFileDir = dirname(__FILE__);
$perlLibDirJavonet = "$thisFileDir/../../../";
$perlLibDirDeps = "$thisFileDir/../../../../deps/lib/perl5"
}
use lib "$perlLibDirJavonet";
use lib "$perlLibDirDeps";
use aliased 'Javonet::Core::Interpreter::Interpreter' => 'Interpreter', qw(process);
our @ISA = qw(Exporter);
our @EXPORT = qw(send_command heart_beat);
sub heart_beat {
my (@byte_array) = @_;
my $response = "10";
return $response;
}
sub send_command {
my ($byte_array_as_string) = @_;
my @byte_array = unpack("C*", Encode::encode("ascii", $byte_array_as_string));
my @response = Interpreter->process(\@byte_array);
return join '', map chr, @response;
}
1;
Version data entries
18 entries across 18 versions & 1 rubygems