Patterns in Perl 20

Facade example

my $compiler = Compiler->new();
my $bytecode = $compiler->compile('file');

my $interpeter = Interpreter->new();
$interpreter->execute($bytecode)
my $runner = ProgramRunner->new();
$runner->run('file')
Copyright © 2005-2006 David Rolsky