File Coverage

blib/lib/IO/Select/SSL.pm

Criterion	Covered	Total	%
statement	11	28	39.2
branch	0	10	0.0
condition	0	6	0.0
subroutine	4	7	57.1
pod	3	3	100.0
total	18	54	33.3

package IO::Select::SSL;

use 5.006;
use strict;
use warnings;
use base qw(IO::Select);

our $VERSION = '0.03';

# can_read( [ $timeout ] )
# Assume pending SSL handles have priority since no select() syscall is required
sub can_read {
  my $self = shift;
  if (my @ssl = $self->pending_handles) {
    return @ssl;
  }
  return $self->SUPER::can_read(@_);
}

# select ( READ, WRITE, ERROR [, TIMEOUT ] )
# Assume pending SSL read handles have priority since no select() syscall is required
sub select {
  my $class = shift;
  if (my $reader = $_[0]) {
    if (my @ssl = $reader->pending_handles) {
      return (\@ssl, [], []);
    }
  }
  return $class->SUPER::select(@_);
}

# pending_handles
# Return a list of handles that already have pending but unread data in its INPUT buffer.
sub pending_handles {
  my $self = shift;
  my @ssl = ();
  foreach my $handle ($self->handles) {
    if (ref($handle) =~ /::/ and
        $handle->can("pending") and
        $handle->pending) {
      push @ssl, $handle;
    }
  }
  if (@ssl) {
    return @ssl;
  }
  return ();
}

# Autoload methods go after =cut, and are processed by the autosplit program.

1;
__END__