17 lines
433 B
Perl
Executable File
17 lines
433 B
Perl
Executable File
#!/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 $@;
|
|
}
|