javonet-ruby-sdk 2.5.13 → 2.5.15

data/lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/lib/Javonet/Core/Handler/CommandHandler/ResolveInstanceHandler.pm

@@ -5,7 +5,7 @@ use lib 'lib';
 use Moose;
 use Nice::Try;
 use aliased 'Javonet::Core::Exception::Exception' => 'Exception';
-use aliased 'Javonet::Core::Handler::ReferencesCache' => 'ReferencesCache', qw(get_instance resolve_reference);
+use aliased 'Javonet::Core::Handler::ReferencesCache' => 'ReferencesCache';
 extends 'Javonet::Core::Handler::CommandHandler::AbstractCommandHandler';
 
 

data/lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/lib/Javonet/Core/Handler/HandlerDictionary.pm

@@ -3,6 +3,8 @@ use strict;
 use warnings FATAL => 'all';
 use lib 'lib';
 use Moose;
+use Exporter qw(import);
+our @EXPORT = qw(add_handler_to_dict get_handler);
 
 our %handler_dict;
 

data/lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/lib/Javonet/Core/Handler/ReferencesCache.pm

@@ -6,6 +6,8 @@ use Exporter;
 use Moose;
 use Data::UUID;
 use feature 'state';
+use Exporter qw(import);
+our @EXPORT = qw(cache_reference resolve_reference delete_reference);
 
 our %reference_cache;
 my $ug    = Data::UUID->new;

data/lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/lib/Javonet/Core/Interpreter/Interpreter.pm

@@ -3,8 +3,11 @@ use strict;
 use warnings;
 use lib 'lib';
 use aliased 'Javonet::Core::Handler::PerlHandler' => 'PerlHandler';
-use aliased 'Javonet::Core::Protocol::CommandSerializer' => 'CommandSerializer', qw(encode);
-use aliased 'Javonet::Core::Protocol::CommandDeserializer' => 'CommandDeserializer', qw(decode);
+use aliased 'Javonet::Core::Protocol::CommandSerializer' => 'CommandSerializer';
+use aliased 'Javonet::Core::Protocol::CommandDeserializer' => 'CommandDeserializer';
+
+use Exporter qw(import);
+our @EXPORT = qw(execute_ process);
 
 my $handler = PerlHandler->new();
 
@@ -13,16 +16,14 @@ sub execute_ {
     my $command = shift;
     my $connection_type = shift;
     my $tcp_address = shift;
-
-    my $commandSerializer = Javonet::Core::Protocol::CommandSerializer->new();
-    my @serialized_command = $commandSerializer->encode($command, $connection_type, $tcp_address, 0);
+    my @serialized_command = Javonet::Core::Protocol::CommandSerializer->encode($command, $connection_type, $tcp_address, 0);
     my $response_byte_array_ref;
     if ($command->{runtime} eq Javonet::Sdk::Core::RuntimeLib::get_runtime('Perl')) {
         require Javonet::Core::Receiver::Receiver;
         $response_byte_array_ref = Javonet::Core::Receiver::Receiver->send_command(\@serialized_command);
     } else {
         require Javonet::Core::Transmitter::PerlTransmitter;
-        $response_byte_array_ref = Javonet::Core::Transmitter::PerlTransmitter->send_command(\@serialized_command);
+        $response_byte_array_ref = Javonet::Core::Transmitter::PerlTransmitter->t_send_command(\@serialized_command);
     }
 
     my $commandDeserializer = CommandDeserializer->new($response_byte_array_ref);

data/lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/lib/Javonet/Core/Protocol/CommandDeserializer.pm

@@ -5,8 +5,10 @@ use Moose;
 use lib 'lib';
 use aliased 'Javonet::Sdk::Core::PerlCommand' => 'PerlCommand';
 use aliased 'Javonet::Sdk::Core::Type' => 'Type', qw(get_type);
-use aliased 'Javonet::Core::Protocol::TypeDeserializer' => 'TypeDeserializer', qw(deserializeInt deserializeString deserializeDouble deserializeFloat);
+use aliased 'Javonet::Core::Protocol::TypeDeserializer' => 'TypeDeserializer';
 
+use Exporter qw(import);
+our @EXPORT = qw(new isAtEnd decode readObject readCommand readCommandRecursively readString readInt readBool readFloat readByte readChar readLongLong readDouble readUnsignedLongLong readUnsignedInt readUndef);
 
 our $position = 0;
 our @buffer = [];
@@ -15,8 +17,8 @@ our $command;
 sub new {
     my ($self, $array_ref) = @_;
     @buffer = @$array_ref;
-    $command = PerlCommand->new(runtime =>$buffer[0],
-        command_type => $buffer[10], payload=>[]);
+    $command = PerlCommand->new(runtime => $buffer[0],
+        command_type                    => $buffer[10], payload => []);
     $position = 11;
     return $self;
 }
@@ -28,55 +30,55 @@ sub isAtEnd {
 
 sub decode {
     while (!isAtEnd()) {
-        $command = $command->addArgumentToPayload([readObject($buffer[$position])]);
+        $command = $command->addArgumentToPayload([ readObject($buffer[$position]) ]);
     }
     return $command;
 }
 
 sub readObject {
     my $type_num = $_[0];
-    if($type_num == Type->get_type('Command')){
+    if ($type_num == Type->get_type('Command')) {
         return readCommand();
     }
-    elsif($type_num == Type->get_type('JavonetString')){
+    elsif ($type_num == Type->get_type('JavonetString')) {
         return readString();
     }
-    elsif($type_num == Type->get_type('JavonetInteger')){
+    elsif ($type_num == Type->get_type('JavonetInteger')) {
         return readInt();
     }
-    elsif($type_num == Type->get_type('JavonetBool')){
+    elsif ($type_num == Type->get_type('JavonetBool')) {
         return readBool();
     }
-    elsif($type_num == Type->get_type('JavonetFloat')){
+    elsif ($type_num == Type->get_type('JavonetFloat')) {
         return readFloat();
     }
-    elsif($type_num == Type->get_type('JavonetByte')){
+    elsif ($type_num == Type->get_type('JavonetByte')) {
         return readByte();
     }
-    elsif($type_num == Type->get_type('JavonetChar')){
+    elsif ($type_num == Type->get_type('JavonetChar')) {
         return readChar();
     }
-    elsif($type_num == Type->get_type('JavonetLongLong')){
+    elsif ($type_num == Type->get_type('JavonetLongLong')) {
         return readLongLong();
     }
-    elsif($type_num == Type->get_type('JavonetDouble')){
+    elsif ($type_num == Type->get_type('JavonetDouble')) {
         return readDouble();
     }
-    elsif($type_num == Type->get_type('JavonetUnsignedLongLong')){
+    elsif ($type_num == Type->get_type('JavonetUnsignedLongLong')) {
         return readUnsignedLongLong();
     }
-    elsif($type_num == Type->get_type('JavonetUnsignedInteger')){
+    elsif ($type_num == Type->get_type('JavonetUnsignedInteger')) {
         return readUnsignedInt();
     }
-    elsif($type_num == Type->get_type('JavonetNull')){
+    elsif ($type_num == Type->get_type('JavonetNull')) {
         return readUndef();
     }
-    else{
+    else {
         die "Type is not supported: $type_num";
     }
 }
 
-sub readCommand{
+sub readCommand {
     my $p = $position;
     my @int_buffer = @buffer[$p + 1 .. $p + 4];
     my $numberOfArgumentInPayload = TypeDeserializer->deserializeInt(\@int_buffer);
@@ -99,12 +101,12 @@ sub readCommandRecursively {
         my $p = $position;
         my @int_buffer = @buffer[$p + 1 .. $p + 4];
         my $argSize = TypeDeserializer->deserializeInt(\@int_buffer);
-        $cmd = $cmd->addArgumentToPayload([readObject($buffer[$p])]);
+        $cmd = $cmd->addArgumentToPayload([ readObject($buffer[$p]) ]);
         return readCommandRecursively($numberOfArgumentInPayloadLeft - 1, $cmd);
     }
 }
 
-sub readString{
+sub readString {
     my $p = $position;
     my $string_encoding_mode = $buffer[$p + 1];
     my @int_buffer = @buffer[$p + 2 .. $p + 5];
@@ -118,7 +120,7 @@ sub readString{
     return $decodedString
 }
 
-sub readInt{
+sub readInt {
     $position += 2;
     my $p = $position;
     $position += 4;
@@ -126,7 +128,7 @@ sub readInt{
     return TypeDeserializer->deserializeInt(\@int_buffer);
 }
 
-sub readBool{
+sub readBool {
     $position += 2;
     my $p = $position;
     $position += 1;
@@ -134,7 +136,7 @@ sub readBool{
     return TypeDeserializer->deserializeBool($bool_buffer);
 }
 
-sub readFloat{
+sub readFloat {
     $position += 2;
     my $p = $position;
     $position += 4;
@@ -166,7 +168,7 @@ sub readLongLong {
     return TypeDeserializer->deserializeLongLong(\@longlong_buffer);
 }
 
-sub readDouble{
+sub readDouble {
     $position += 2;
     my $p = $position;
     $position += 8;
@@ -198,6 +200,5 @@ sub readUndef {
     return TypeDeserializer->deserializeUndef($undef_buffer);
 }
 
-
 no Moose;
 1;

data/lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/lib/Javonet/Core/Protocol/CommandSerializer.pm

@@ -7,11 +7,13 @@ use lib 'lib';
 use aliased 'Javonet::Sdk::Core::PerlCommand' => 'PerlCommand';
 use aliased 'Javonet::Sdk::Core::RuntimeLib' => 'RuntimeLib', qw(get_runtime);
 use aliased 'Javonet::Sdk::Core::Type' => 'Type', qw(get_type);
-use aliased 'Javonet::Core::Protocol::TypeSerializer' => 'TypeSerializer', qw(serializePrimitive serializeCommand);
+use aliased 'Javonet::Core::Protocol::TypeSerializer' => 'TypeSerializer';
 use Javonet::Sdk::Internal::ConnectionType;
-
 use Thread::Queue;
 
+use Exporter qw(import);
+our @EXPORT = qw(encode serialize_tcp_address serialize_recursively insert_into_buffer);
+
 my @byte_buffer = ();
 my $queue = Thread::Queue->new();
 
@@ -56,7 +58,7 @@ sub serialize_recursively{
     my $payload_len = @cur_payload;
     if ($payload_len > 0){
         if (!defined $cur_payload[0]){
-            insert_into_buffer(TypeSerializer->serialize_primitive(undef));
+            insert_into_buffer(TypeSerializer->serializePrimitive(undef));
         }
         else {
             if ($cur_payload[0]->isa("Javonet::Sdk::Core::PerlCommand")) {
@@ -65,7 +67,7 @@ sub serialize_recursively{
                 $queue->insert(0, $inner_command);
             }
             else {
-                my @result = TypeSerializer->serialize_primitive($cur_payload[0]);
+                my @result = TypeSerializer->serializePrimitive($cur_payload[0]);
                 insert_into_buffer(@result);
             }
         }

data/lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/lib/Javonet/Core/Protocol/TypeDeserializer.pm

@@ -5,6 +5,21 @@ use Moose;
 use Encode;
 use lib 'lib';
 
+use Exporter qw(import);
+our @EXPORT = qw(
+    deserializeString
+    deserializeInt
+    deserializeBool
+    deserializeFloat
+    deserializeByte
+    deserializeChar
+    deserializeLongLong
+    deserializeDouble
+    deserializeULongLong
+    deserializeUInt
+    deserializeUndef
+);
+
 sub deserializeString {
     my ($self, $string_encoding_mode, $acc_ref) = @_;
     my @string_array = @$acc_ref;

data/lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/lib/Javonet/Core/Protocol/TypeSerializer.pm

@@ -7,10 +7,13 @@ use lib 'lib';
 
 use Scalar::Util::Numeric qw(isint);
 use autobox::universal qw(type);
-use aliased 'Javonet::Sdk::Core::Type' => 'Type', qw(get_type);
-use aliased 'Javonet::Sdk::Core::StringEncodingMode' => 'StringEncodingMode', qw(get_string_encoding_mode);
+use aliased 'Javonet::Sdk::Core::Type' => 'Type';
+use aliased 'Javonet::Sdk::Core::StringEncodingMode' => 'StringEncodingMode';
 
-sub serialize_primitive {
+use Exporter qw(import);
+our @EXPORT = qw(serializeCommand serializePrimitive serializeString serializeInt serializeBool serializeFloat serializeByte serializeChar serializeLongLong serializeDouble serializeUllong serializeUint serializeUndef);
+
+sub serializePrimitive {
     my $self = $_[0];
     my $payload_item = $_[1];
     if(!defined $payload_item) {

data/lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/lib/Javonet/Core/Receiver/Receiver.pm

@@ -4,6 +4,9 @@ use warnings;
 use Config;
 use File::Basename;
 
+use Exporter qw(import);
+our @EXPORT = qw(heart_beat send_command get_runtime_info);
+
 my $perlLibDirJavonet;
 my $perlLibDirDeps;
 
@@ -15,9 +18,9 @@ BEGIN {
 
 use lib "$perlLibDirJavonet";
 use lib "$perlLibDirDeps";
-use aliased 'Javonet::Core::Interpreter::Interpreter' => 'Interpreter', qw(process);
-use aliased 'Javonet::Sdk::Core::RuntimeLogger' => 'RuntimeLogger', qw(get_runtime_info);
-
+use aliased 'Javonet::Core::Interpreter::Interpreter' => 'Interpreter';
+use aliased 'Javonet::Sdk::Core::RuntimeLogger' => 'RuntimeLogger';
+#
 sub heart_beat {
     my ($self, $message_byte_array_ref) = @_;
     my @response_byte_array = (49, 48);
@@ -32,7 +35,7 @@ sub send_command {
 }
 
 sub get_runtime_info {
-    return RuntimeLogger->get_runtime_info();
+    return RuntimeLogger->rl_get_runtime_info();
 }
 
 1;

data/lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/lib/Javonet/Core/Transmitter/PerlTransmitter.pm

@@ -2,27 +2,28 @@ package Javonet::Core::Transmitter::PerlTransmitter;
 use strict;
 use warnings;
 use Cwd;
-use aliased 'Javonet::Core::Transmitter::PerlTransmitterWrapper' => 'PerlTransmitterWrapper' , qw(send_command activate set_config_source set_javonet_working_directory);
+use aliased 'Javonet::Core::Transmitter::PerlTransmitterWrapper' => 'PerlTransmitterWrapper';
+use Exporter qw(import);
+our @EXPORT = qw(t_send_command t_activate t_set_config_source t_set_javonet_working_directory);
 
-sub send_command {
+sub t_send_command {
     my ($self, $message_byte_array_ref) = @_;
-    my $response_byte_array_ref = PerlTransmitterWrapper->send_command($message_byte_array_ref);
-    return $response_byte_array_ref;
+    return PerlTransmitterWrapper->tw_send_command($message_byte_array_ref);
 }
 
-sub activate {
+sub t_activate {
     my ($self, $licenseKey) = @_;
-    return PerlTransmitterWrapper->activate($licenseKey);
+    return PerlTransmitterWrapper->tw_activate($licenseKey);
 }
 
-sub set_config_source {
+sub t_set_config_source {
     my ($self, $config_path) = @_;
-    PerlTransmitterWrapper->set_config_source($config_path);
+    PerlTransmitterWrapper->tw_set_config_source($config_path);
 }
 
-sub set_javonet_working_directory {
+sub t_set_javonet_working_directory {
     my ($self, $working_directory) = @_;
-    PerlTransmitterWrapper->set_javonet_working_directory($working_directory);
+    PerlTransmitterWrapper->tw_set_javonet_working_directory($working_directory);
 }
 
 1;

data/lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/lib/Javonet/Core/Transmitter/PerlTransmitterWrapper.pm

@@ -8,6 +8,8 @@ use File::Spec;
 use Config;
 use Cwd;
 use POSIX qw(uname);
+use Exporter qw(import);
+our @EXPORT = qw(tw_initialize tw_send_command tw_activate tw_set_config_source tw_set_javonet_working_directory);
 
 my $ffi;
 
@@ -18,7 +20,8 @@ my $get_native_error_native;
 my $set_config_source_native;
 my $set_working_directory_native;
 
-sub initialize {
+
+sub tw_initialize {
     my $osname = $^O;
     {
         $ffi = FFI::Platypus->new(api => 1);
@@ -66,7 +69,7 @@ sub initialize {
     }
 }
 
-sub send_command {
+sub tw_send_command {
     my ($self, $message_ref) = @_;
     my @message_array = @$message_ref;
     my $response_array_len = $send_command_native->(\@message_array, scalar @message_array);
@@ -86,9 +89,9 @@ sub send_command {
     }
 }
 
-sub activate {
+sub tw_activate {
     my ($self, $licenseKey) = @_;
-    initialize();
+    tw_initialize();
     my $activation_result = $activate_native->($licenseKey);
     if ($activation_result < 0) {
         my $error_message = $get_native_error_native->();
@@ -99,9 +102,9 @@ sub activate {
     }
 }
 
-sub set_config_source {
+sub tw_set_config_source {
     my ($self, $config_path) = @_;
-    initialize();
+    tw_initialize();
     my $set_config_result = $set_config_source_native->($config_path);
     if ($set_config_result < 0) {
         my $error_message = $get_native_error_native->();
@@ -112,9 +115,9 @@ sub set_config_source {
     }
 }
 
-sub set_javonet_working_directory {
+sub tw_set_javonet_working_directory {
     my ($self, $working_directory) = @_;
-    initialize();
+    tw_initialize();
     my $set_working_directory_result = $set_working_directory_native->($working_directory);
     if ($set_working_directory_result < 0) {
         my $error_message = $get_native_error_native->();

data/lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/lib/Javonet/Javonet.pm

@@ -6,9 +6,11 @@ use lib 'lib';
 use Try::Tiny;
 use threads;
 use aliased 'Javonet::Sdk::Internal::RuntimeFactory' => 'RuntimeFactory';
-use aliased 'Javonet::Core::Transmitter::PerlTransmitter' => 'Transmitter', qw(activate send_command set_config_source set_javonet_working_directory);
+use aliased 'Javonet::Core::Transmitter::PerlTransmitter' => 'Transmitter';
 use aliased 'Javonet::Core::Exception::SdkExceptionHelper' => 'SdkExceptionHelper';
-use aliased 'Javonet::Sdk::Core::RuntimeLogger' => 'RuntimeLogger', qw(get_runtime_info);
+use aliased 'Javonet::Sdk::Core::RuntimeLogger' => 'RuntimeLogger';
+use Exporter qw(import);
+our @EXPORT = qw(activate in_memory tcp with_config get_runtime_info set_config_source set_javonet_working_directory);
 
 BEGIN {
     SdkExceptionHelper->send_exception_to_app_insights("SdkMessage", "Javonet Sdk initialized");
@@ -17,7 +19,7 @@ BEGIN {
 sub activate {
     my($self, $licenseKey) = @_;
     try {
-        return Transmitter->activate($licenseKey);
+        return Transmitter->t_activate($licenseKey);
     } catch {
         Javonet::Core::Exception::SdkExceptionHelper->send_exception_to_app_insights($_,"licenseFile");
         die($_);
@@ -37,7 +39,7 @@ sub tcp {
 sub with_config {
     my ($self, $config_path) = @_;
     try {
-        Transmitter->set_config_source($config_path);
+        Transmitter->t_set_config_source($config_path);
         return RuntimeFactory->new(Javonet::Sdk::Internal::ConnectionType::get_connection_type('WithConfig'), undef, $config_path);
     } catch {
         SdkExceptionHelper->send_exception_to_app_insights("SdkException", $_);
@@ -46,13 +48,13 @@ sub with_config {
 }
 
 sub get_runtime_info() {
-    RuntimeLogger->get_runtime_info();
+    RuntimeLogger->rl_get_runtime_info();
 }
 
 sub set_config_source {
     my ($self, $config_path) = @_;
     try {
-        Transmitter->set_config_source($config_path);
+        Transmitter->t_set_config_source($config_path);
     } catch {
         SdkExceptionHelper->send_exception_to_app_insights("SdkException", $_);
         die $_;
@@ -68,7 +70,7 @@ sub set_javonet_working_directory {
         $path .= '/' unless $path =~ m{/$};
         mkdir $path, 0700 unless -d $path;
         #ActivationHelper->working_directory($path);
-        Transmitter->set_javonet_working_directory($path);
+        Transmitter->t_set_javonet_working_directory($path);
     } catch {
         SdkExceptionHelper->send_exception_to_app_insights("SdkException", $_);
         die $_;

data/lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/lib/Javonet/Sdk/Core/PerlCommandType.pm

@@ -2,6 +2,8 @@ package Javonet::Sdk::Core::PerlCommandType;
 use strict;
 use warnings;
 use Moose;
+use Exporter qw(import);
+our @EXPORT = qw(get_command_type);
 
 my %command_type = (
     'Value'                     => 0,

data/lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/lib/Javonet/Sdk/Core/RuntimeLib.pm

@@ -2,6 +2,8 @@ package Javonet::Sdk::Core::RuntimeLib;
 use warnings;
 use strict;
 use Moose;
+use Exporter qw(import);
+our @EXPORT = qw(get_runtime);
 
 my %runtimes = (
     'Clr'       => 0,
@@ -12,7 +14,9 @@ my %runtimes = (
     'Python'    => 5,
     'Ruby'      => 6,
     'Nodejs'    => 7,
-    'Cpp'       => 8
+    'Cpp'       => 8,
+    'Php'       => 9,
+    'Python2'   => 10
 );
 
 sub get_runtime {

data/lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/lib/Javonet/Sdk/Core/RuntimeLogger.pm

@@ -1,19 +1,22 @@
 package Javonet::Sdk::Core::RuntimeLogger;
 use strict;
 use warnings;
+use Exporter qw(import);
+our @EXPORT = qw(rl_get_runtime_info print_runtime_info);
+
 use Config qw(%Config);
 use Cwd;
 use Sys::Hostname;
 
-our $not_logged_yet = 1;
+my $not_logged_yet = 1;
 
-sub get_runtime_info {
+sub rl_get_runtime_info {
     my $info;
     eval {
         $info = "Perl Managed Runtime Info:\n" .
             "Perl Version: $]\n" .
             "Perl executable path: $^X\n" .
-            "Perl \@INC Path: @INC\n" .
+            "Perl \\@INC Path: @INC\n" .
             "OS Version: " . $Config{osname} . " " . $Config{osvers} . "\n" .
             "Process Architecture: " . $Config{archname} . "\n" .
             "Current Working Directory: " . getcwd() . "\n";

data/lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/lib/Javonet/Sdk/Core/StringEncodingMode.pm

@@ -2,6 +2,8 @@ package Javonet::Sdk::Core::StringEncodingMode;
 use strict;
 use warnings;
 use Moose;
+use Exporter qw(import);
+our @EXPORT = qw(get_string_encoding_mode);
 
 my %string_encoding_mode = (
     'ASCII'             => 0,

data/lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/lib/Javonet/Sdk/Core/Type.pm

@@ -2,6 +2,8 @@ package Javonet::Sdk::Core::Type;
 use strict;
 use warnings FATAL => 'all';
 use Moose;
+use Exporter qw(import);
+our @EXPORT = qw(get_type);
 
 my %my_type = (
     'Command' => 0,

data/lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/lib/Javonet/Sdk/Internal/Abstract/AbstractRuntimeFactory.pm

@@ -19,6 +19,8 @@ sub nodejs : Abstract;
 
 sub python : Abstract;
 
+sub python27 : Abstract;
+
 
 no Moose;
 1;

data/lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/lib/Javonet/Sdk/Internal/RuntimeContext.pm

@@ -9,7 +9,7 @@ use aliased 'Javonet::Core::Handler::PerlHandler' => 'PerlHandler';
 use aliased 'Javonet::Core::Interpreter::Interpreter' => 'Interpreter', qw(execute_);
 use aliased 'Javonet::Core::Exception::ExceptionThrower' => 'ExceptionThrower';
 
-extends 'Javonet::Sdk::Internal::Abstract::AbstractModuleContext',
+extends 'Javonet::Sdk::Internal::Abstract::AbstractRuntimeContext',
     'Javonet::Sdk::Internal::Abstract::AbstractTypeContext';
 
 my $perl_handler = Javonet::Core::Handler::PerlHandler->new();

data/lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/lib/Javonet/Sdk/Internal/RuntimeFactory.pm

@@ -99,6 +99,16 @@ sub python {
     );
 }
 
+#@override
+sub python27 {
+    return Javonet::Sdk::Internal::RuntimeContext::get_instance(
+        Javonet::Sdk::Core::RuntimeLib::get_runtime('Python27'),
+        $connection_type,
+        $tcp_address,
+        $path
+    );
+}
+
 
 no Moose;
 1;