no warnings 'redefine';
local *Web::Simple::Application::_run_fcgi = sub { $res = "fcgi" };
local *Web::Simple::Application::_run_cgi = sub { $res = "cgi" };
- local *Web::Simple::Application::_run_cli = sub { $res = "cli" };
- local *Web::Simple::Application::_run_cli_test_request = sub { $res = "test" };
+ local *Web::Simple::Application::run_cli = sub { $res = "cli" };
use strictures;
{