"Perlito" Perl 5 Compiler
Source program:
use v5; use strict; use feature 'say'; package Main; my $out = JS::inline('document.getElementById("print-result")'); $out->{'value'} = "Changing the output box using the document object\n"; say "hello, World!"; say "goodbye $_" foreach 1 .. 3; sub fact { $_[0] <= 1 ? $_[0] : $_[0] * fact( $_[0] - 1 ) } for my $v ( 1 .. 5 ) { say "fact $v = ", fact($v); } my $time = 'Compile-time'; $str = ' say("this was compiled at $time") '; $time = 'Run-time'; eval $str; package Printer; my $out = JS::inline('document.getElementById("print-result")'); sub new { bless {}, $_[0] } sub out { $out->{'value'} .= $_[1] } package Main; my $printer = Printer->new; $printer->out( "Using my 'Printer' object\n" );
Compiler log:
Compiled to Javascript:
Output: