# >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
+use warnings;
use strict;
use Maasha::Biopieces;
use Maasha::Filesys;
$num = 1;
- while ( $entry = Maasha::GFF::get_entry( $data_in ) )
+ while ( $entry = Maasha::GFF::gff_entry_get( $data_in ) )
{
- Maasha::Biopieces::put_record( $entry, $out );
+ if ( $record = Maasha::GFF::gff2biopiece( $entry ) ) {
+ Maasha::Biopieces::put_record( $record, $out );
+ }
last if $options->{ "num" } and $num == $options->{ "num" };