Peertube-dl/bin/js-pruebas

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

use feature 'say';

use Peertube::DL::Javascript;

my $js = Peertube::DL::Javascript->new;
eval {
    say $js->evalJS("if(\"undefined\"!=typeof Reflect&&Reflect.construct){if(a())return Reflect.construct;var b=Reflect.construct;return function(c,d,e){c=b(c,d);e&&Reflect.setPrototypeOf(c,e.prototype);return c}}return function(c,d,e){void 0===e&&(e=c);");
};
if ($@) {
    warn $@;
}