File Coverage

blib/lib/MogileFS/Sys.pm
Criterion Covered Total %
statement 9 10 90.0
branch n/a
condition n/a
subroutine 3 4 75.0
pod 0 1 0.0
total 12 15 80.0


line stmt bran cond sub pod time code
1             package MogileFS::Sys;
2 7     7   47 use strict;
  7         12  
  7         307  
3 7     7   42 use Socket qw(MSG_NOSIGNAL);
  7         14  
  7         391  
4 7     7   43 use vars qw($FLAG_NOSIGNAL);
  7         131  
  7         687  
5              
6             # used in send() calls to request not to get SIGPIPEd
7             eval { $FLAG_NOSIGNAL = MSG_NOSIGNAL };
8              
9             sub flag_nosignal {
10 0     0 0   return $FLAG_NOSIGNAL;
11             }
12              
13             1;