Create C++ instance and call instance method from Perl package

This article provides an introduction to cross-technology creation of instances of classes and invocation of instance methods.

With Javonet you can interact with classes from Perl package like they were available in C++ but invocation must be performed through Javonet SDK API, passing type and method name as string.

Javonet allows you to pass any C++ value type as argument to instance method from Perl package. In example: int, float, string, char, long and other. For reference type arguments (instances of other classes) you can create such instance with Javonet and pass the Invocation Context variable referencing that object as argument of static method invocation.

Using C++ in custom Perl package

With Javonet it is possible to reference any custom Perl package and interact with public methods declared on types defined within that module almost the same as with any other C++ library.

This section present sample custom Perl package with class declaring methods and Javonet SDK syntax required to create object and invoke that methods and consume the results in C++.

Snippet below represents the sample code from Perl package which contains class and its methods:

package TestClass::TestClass;
use strict;
use warnings FATAL => 'all';
use Moose;

sub multiply_by_two {
	my ($a) = @_;
	return $a * 2;
}

sub multiply_two_numbers {
	my ($self, $a, $b) = @_;
	return $a * $b;
}

1;sub multiply_by_two {
	my ($a) = @_;
	return $a * 2;
}

sub multiply_two_numbers {
	my ($self, $a, $b) = @_;
	return $a * $b;
}

It is possible to invoke one of the declared instance methods from Perl package using following C++ code.

#include "Javonet.h"
#include <iostream>
#include <vector>

using namespace JavonetNS::Cpp::Sdk;

std::string resourcesDirectory = ".";

int main(int argc, char* argv[]) {

    // use Activate only once in your app
    Javonet::Activate("your-license-key");
    
    // create called runtime context
    auto calledRuntime = Javonet::InMemory()->Perl();
    
    // set up variables
    auto libraryPath = resourcesDirectory + "/TestClass.pm";
    auto className = "TestClass::TestClass";
    
    // load custom library
    calledRuntime->LoadLibrary(libraryPath);
    
    // get type from the runtime
    auto calledRuntimeType = calledRuntime->GetType(className)->Execute();
    
    // create type's instance
    auto instance = calledRuntimeType->CreateInstance()->Execute();
    
    // invoke instance's method
    auto response = instance->InvokeInstanceMethod("multiply_two_numbers", { 4, 5 })->Execute();
    
    // get value from response
    auto result = std::any_cast<int>(response->GetValue());
    
    // write result to console
    std::cout << result << std::endl;
}package TestClass::TestClass;
use strict;
use warnings FATAL => 'all';
use Moose;

sub multiply_by_two {
	my ($a) = @_;
	return $a * 2;
}

sub multiply_two_numbers {
	my ($self, $a, $b) = @_;
	return $a * $b;
}

1;// use Activate only once in your app
Javonet::Activate("your-license-key");

// create called runtime context
auto calledRuntime = Javonet::InMemory()->Perl();

// set up variables
auto libraryPath = resourcesDirectory + "/TestClass.pm";
auto className = "TestClass::TestClass";

// load custom library
calledRuntime->LoadLibrary(libraryPath);

// get type from the runtime
auto calledRuntimeType = calledRuntime->GetType(className)->Execute();

// create type's instance
auto instance = calledRuntimeType->CreateInstance()->Execute();

// invoke instance's method
auto response = instance->InvokeInstanceMethod("multiply_two_numbers", { 4, 5 })->Execute();

// get value from response
auto result = std::any_cast<int>(response->GetValue());

// write result to console
std::cout << result << std::endl;

In code snippet above you can see how easily you can activate Javonet and instruct it using inMemory() method to create new RuntimeContext that will run perl-package runtime within your current process. Next with addLibrary method it triggers the load of required perl-package module and allows you to interact with any classes and their methods defined in that package.

Further call to createInstance() allows to create instance of class. Calls to invokeInstanceMethod() allows to call "multiplyTwoNumbers" perl-package instance method and pass the value type arguments. With Javonet you can invoke methods with any number and any type of arguments including value type arguments, reference type arguments, arrays and collections.

You can receive and further process and type of result returned by called perl-package method, regardless if it is reference type that will get returned as another instance of Invocation Context that you can use for further interaction, or value type that you can obtain as cpp value with getValue() method.

Using C++ framework Perl package

The same steps are required to use types and methods from standard Perl package:

The same operation can be performed remotely by just changing the new Runtime Context invocation from in memory to tcp that will create and interact with your Perl package objects on any remote node, container or service that hosts Javonet Code Gateway. This way you can preserve the same logic in your application and instantly switch between monolithic and microservices architecture without the need to implement the integration layer based on web services or other remote invocation methods.

Read more about use cases and software architecture scenarios where Javonet runtime bridging technology can support your development process.