File Coverage

web/cgi-bin/yatt.lib/YATT/Util/redundant_sprintf.pm
Criterion Covered Total %
statement 7 7 100.0
branch 1 2 50.0
condition n/a
subroutine 3 3 100.0
pod n/a
total 11 12 91.6


line stmt bran cond sub pod time code
1             package YATT::Util::redundant_sprintf;
2 12     12   36 use strict;
  12         13  
  12         327  
3 12     12   40 use warnings FATAL => qw/all/;
  12         14  
  12         605  
4              
5             sub import {
6 17 50   17   19096 warnings->unimport(qw/redundant/) if $] >= 5.021002;
7             }
8              
9             1;