Peertube-dl/bin/js-pruebas

#!/usr/bin/env perl
#
use strict;
use warnings;

use feature 'say';

use Peertube::DL::Javascript;

my $a = Peertube::DL::Javascript::_duk_create_heap_default();
eval { Peertube::DL::Javascript::_duk_push_lstring( $a, "\"hola mundo\"" ); };
if ($@) {
    warn $@;
    $@ = "";
}
if ( defined $a ) {
Peertube::DL::Javascript::_duk_peval($a);
say Peertube::DL::Javascript::_duk_get_lstring($a, -1);
Peertube::DL::Javascript::_duk_destroy_heap($a);
}