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   84074 use strict;
  240         1885  
  240         6903  
3 240     240   1110 use warnings;
  240         404  
  240         17303  
4              
5             sub import {
6 0     0   0 $SIG{__WARN__} = sub { die @_ };
  240     240   10878  
7             }
8              
9             1;