File Coverage

blib/lib/IPC/Manager/Base/FS/Handle.pm

Criterion	Covered	Total	%
statement	28	31	90.3
branch	7	14	50.0
condition			n/a
subroutine	7	8	87.5
pod	0	3	0.0
total	42	56	75.0

package IPC::Manager::Base::FS::Handle;
use strict;
use warnings;

our $VERSION = '0.000005';

use Carp qw/croak/;

use parent 'IPC::Manager::Base::FS';
use Object::HashBase qw{
    +buffer
};

sub fill_buffer { croak "Not Implemented" }

sub pending_messages {
    my $self = shift;

    $self->pid_check;

    return 1 if $self->have_resume_file;
    return 1 if @{$self->{+BUFFER}};
    return 1 if $self->select->can_read(0);

    return 0;
}

sub ready_messages {
    my $self = shift;

    $self->pid_check;

    return 1 if $self->have_resume_file;
    return 1 if @{$self->{+BUFFER}};

    return 0 unless $self->pending_messages;

    return 1 if $self->fill_buffer;

    return 0;
}

1;