File Coverage

blib/lib/IO/Die/closedir.pm
Criterion Covered Total %
statement 8 8 100.0
branch 2 2 100.0
condition n/a
subroutine 2 2 100.0
pod 0 1 0.0
total 12 13 92.3


line stmt bran cond sub pod time code
1             package IO::Die;
2              
3 1     1   5 use strict;
  1         2  
  1         83  
4              
5             sub closedir {
6 2     2 0 773 my ( $NS, $dh ) = @_;
7              
8 2         9 local ( $!, $^E );
9 2 100       14 my $ok = CORE::closedir($dh) or do {
10 1         4 $NS->__THROW('DirectoryClose');
11             };
12              
13 1         6 return $ok;
14             }
15              
16             1;