File Coverage

blib/lib/Mojo/Server/CGI/LegacyMigrate.pm
Criterion Covered Total %
statement 9 12 75.0
branch 0 2 0.0
condition n/a
subroutine 3 4 75.0
pod 1 1 100.0
total 13 19 68.4


line stmt bran cond sub pod time code
1             package Mojo::Server::CGI::LegacyMigrate;
2 1     1   57286 use Mojo::Base 'Mojo::Server::CGI';
  1         158838  
  1         6  
3              
4 1     1   39341 use strict;
  1         2  
  1         18  
5 1     1   5 use warnings;
  1         1  
  1         95  
6              
7             our $VERSION = '0.01';
8              
9             sub run {
10              
11             # We withhold headers if anything has written to
12             # STDOUT. This is neccessary because some scripts, in-transition
13             # to Mojo will still use `print`, and output headers
14 0 0   0 1   if ( tell(*STDOUT) != 0 ) {
15 0           return undef;
16             }
17              
18 0           goto &Mojo::Server::CGI::run;
19              
20             }
21              
22             1;
23              
24             __END__