File Coverage

blib/lib/IO/Framed/X/ErrnoBase.pm
Criterion Covered Total %
statement 12 12 100.0
branch 2 2 100.0
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 18 19 94.7


line stmt bran cond sub pod time code
1             package IO::Framed::X::ErrnoBase;
2              
3 2     2   924 use strict;
  2         6  
  2         58  
4 2     2   11 use warnings;
  2         15  
  2         55  
5              
6 2     2   10 use parent qw( IO::Framed::X::Base );
  2         3  
  2         12  
7              
8             sub errno_is {
9 2     2 0 179 my ($self, $name) = @_;
10              
11 2         9 local $! = $self->get('OS_ERROR');
12 2 100       59 return $!{$name} ? 1 : 0;
13             }
14              
15             1;