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 8     8   40 use strict;
  8         17  
  8         259  
3 8     8   42 use warnings qw(FATAL all NONFATAL misc);
  8         16  
  8         366  
4              
5 8     8   42 use YATT::Lite::Util qw/globref symtab/;
  8         13  
  8         423  
6              
7 8     8   383 use CGI;
  8         272728  
  8         64  
8              
9             sub import {
10 8 50   8   51 unless (symtab('CGI')->{'multi_param'}) {
11 0           *{globref('CGI', 'multi_param')} = sub {
12 0     0     shift->param(@_);
13 0           };
14             }
15             }
16              
17             1;