*{"${caller}::reply"} = sub { [200, ['Content-Type' => 'text/plain', 'Cache-Control' => 'no-cache'], [ @_ ] ] };
*{"${caller}::purge"} = sub {
return unless $ENV{PURGE_HOST};
*{"${caller}::reply"} = sub { [200, ['Content-Type' => 'text/plain', 'Cache-Control' => 'no-cache'], [ @_ ] ] };
*{"${caller}::purge"} = sub {
return unless $ENV{PURGE_HOST};