package IO::Multiplex;
[...]
sub add {
   [...]
   $self->{_fhs}{"$fh"}{writefun} = $fh->can('syswrite');
   $self->{_fhs}{"$fh"}{readfun} = $fh->can('sysread');
   [...]
}