File Coverage

blib/lib/IO/Die/binmode.pm

Criterion	Covered	Total	%
statement	10	10	100.0
branch	3	4	75.0
condition			n/a
subroutine	2	2	100.0
pod	0	1	0.0
total	15	17	88.2

package IO::Die;

use strict;

my $DEFAULT_BINMODE_LAYER = ':raw';    #cf. perldoc -f binmode

sub binmode {
    my ( $NS, $fh_r, $layer ) = @_;

    if ( !defined $layer ) {
        $layer = $DEFAULT_BINMODE_LAYER;
    }

    local ( $!, $^E );
    my $ok = CORE::binmode( $fh_r, $layer ) or do {
        $NS->__THROW( 'Binmode', layer => $layer );
    };

    return $ok;
}

1;