my $mock_cgi = new Test::MockModule('CGI::Simple');
$mock_cgi->mock(path_info => sub {
delete $_[0]->{'.path_info'};
- goto $mock_cgi->original('path_info')
+ my $orig_path_info = $mock_cgi->original('path_info');
+ goto $orig_path_info;
});
# run()
can_ok($r => 'send_output');
SKIP: {
eval "require IO::CaptureOutput";
- skip "IO::CaptureOutput not installed", 3 if $@;
+ skip "IO::CaptureOutput not installed", 2 if $@;
$r->content_type('text/plain');
$r->document_encoding('iso8859-1');
$r->output('Hello World!');