$self->{_get_next_rec} = $opts{code}
    if ref $opts{code} eq 'CODE';
*Tie::File::_read_record
    = sub {
        my ($self) = @_;
        my $rec = $self->{_get_next_rec}->( $self->{fh} );
        return $rec;
      };