File Coverage

lib/IOMux/File/Read.pm

Criterion	Covered	Total	%
statement	37	40	92.5
branch	5	10	50.0
condition	1	5	20.0
subroutine	9	10	90.0
pod	2	3	66.6
total	54	68	79.4

# Copyrights 2011-2020 by [Mark Overmeer ].
#  For other contributors see ChangeLog.
# See the manual pages for details on the licensing terms.
# Pod stripped from pm file by OODoc 2.02.
# This code is part of distribution IOMux.  Meta-POD processed with OODoc
# into POD and HTML manual-pages.  See README.md
# Copyright Mark Overmeer.  Licensed under the same terms as Perl itself.

package IOMux::File::Read;
use vars '$VERSION';
$VERSION = '1.01';

use base 'IOMux::Handler::Read';

use warnings;
use strict;

use Log::Report    'iomux';
use Fcntl;
use File::Basename 'basename';


sub init($)
{   my ($self, $args) = @_;

    my $file  = $args->{file}
        or error __x"no file to open specified in {pkg}", pkg => __PACKAGE__;

    my $flags = $args->{modeflags};
    unless(ref $file || defined $flags)
    {   $flags  = O_RDONLY|O_NONBLOCK;
        $flags |= O_EXCL   if $args->{exclusive};
    }

    my $fh;
    if(ref $file)
    {   $fh = $file;
        $self->{IMFR_mode} = $args->{mode} || '<';
    }
    else
    {   sysopen $fh, $file, $flags
            or fault __x"cannot open file {fn} for {pkg}"
               , fn => $file, pkg => __PACKAGE__;
        $self->{IMFR_mode} = $flags;
    }
    $args->{name} = '<'.(basename $file);
    $args->{fh}   = $fh;

    $self->SUPER::init($args);
    $self;
}


sub open($$@)
{   my ($class, $mode, $file, %args) = @_;
    $class->new(file => $file, mode => $mode, %args);
}

#-------------------

sub mode() {shift->{IMFR_mode}}

1;