use warnings;
use strict;
use Maasha::Biopieces;
-use Maasha::KISS::IO;
+use Maasha::KISS;
# >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
while ( $record = Maasha::Biopieces::get_record( $in ) )
{
- if ( $entry = Maasha::KISS::IO::biopiece2kiss( $record ) ) {
- Maasha::KISS::IO::kiss_entry_put( $entry, $fh );
+ if ( $entry = Maasha::KISS::biopiece2kiss( $record ) ) {
+ Maasha::KISS::kiss_entry_put( $entry, $fh );
}
Maasha::Biopieces::put_record( $record, $out ) if not $options->{ 'no_stream' };