File Coverage

web/cgi-bin/yatt.lib/YATT/Util/CGICompat.pm
Criterion Covered Total %
statement 12 16 75.0
branch 0 2 0.0
condition n/a
subroutine 4 6 66.6
pod n/a
total 16 24 66.6


line stmt bran cond sub pod time code
1             package YATT::Util::CGICompat;
2 1     1   6628 use strict;
  1         2  
  1         30  
3 1     1   6 use warnings qw(FATAL all NONFATAL misc);
  1         3  
  1         49  
4              
5 1     1   5 use YATT::Util::Symbol qw/globref stash/;
  1         2  
  1         64  
6              
7 1     1   1456 use CGI;
  1         40448  
  1         7  
8              
9             sub import {
10 0 0   0     unless (stash('CGI')->{'multi_param'}) {
11 0           *{globref('CGI', 'multi_param')} = sub {
12 0     0     shift->param(@_);
13 0           };
14             }
15             }
16              
17             1;