File Coverage

blib/lib/YATT/Lite/Util/CGICompat.pm
Criterion Covered Total %
statement 13 16 81.2
branch 1 2 50.0
condition n/a
subroutine 5 6 83.3
pod n/a
total 19 24 79.1


line stmt bran cond sub pod time code
1             package YATT::Lite::Util::CGICompat;
2 13     13   113 use strict;
  13         30  
  13         462  
3 13     13   69 use warnings qw(FATAL all NONFATAL misc);
  13         30  
  13         557  
4              
5 13     13   68 use YATT::Lite::Util qw/globref symtab/;
  13         27  
  13         529  
6              
7 13     13   475 use CGI;
  13         312821  
  13         90  
8              
9             sub import {
10 13 50   13   80 unless (symtab('CGI')->{'multi_param'}) {
11 0           *{globref('CGI', 'multi_param')} = sub {
12 0     0     shift->param(@_);
13 0           };
14             }
15             }
16              
17             1;