Crusty Wrappers

use v6;
use MONKEY-SEE-NO-EVAL;

my $env = %*ENV;

class B {
    method wrap(Callable $app) returns Callable {
	my Callable $_app = $app;
	return $_app;
    }
}

class C {
    method !mkapp() {
	EVAL('sub app($env) {
                  return "I have output"
              }
              my $b = B.new;
              $b.wrap(&app);');
    }
	
    method run() {
	my &app = self!mkapp;
	return &app;
    }
}


my $c = C.new;
while True {$c.run};