File Coverage

xt/lib/FatalWarnings.pm
Criterion Covered Total %
statement 7 8 87.5
branch n/a
condition n/a
subroutine 3 4 75.0
pod n/a
total 10 12 83.3


line stmt bran cond sub pod time code
1             package FatalWarnings;
2 240     240   93939 use strict;
  240         1856  
  240         7467  
3 240     240   1158 use warnings;
  240         360  
  240         18852  
4              
5             sub import {
6 0     0   0 $SIG{__WARN__} = sub { die @_ };
  240     240   11154  
7             }
8              
9             1;