my $app = MyApp->new;

{
  use curry::lexical \$app, qw(log foo bar), critical_log => [log => "CRITICAL"];
 
  log("Hi");         # $app->log("Hi");
  foo();             # $app->foo();
  bar(123);          # $app->bar(123);
  critical_log();    # $app->log("CRITICAL");
}