use warnings;
use strict;
use Maasha::Biopieces;
-use Maasha::UCSC;
+use Maasha::UCSC::BED;
# >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
while ( $record = Maasha::Biopieces::get_record( $in ) )
{
- $record = Maasha::UCSC::bed_analyze( $record ) if $record->{ "REC_TYPE" } eq "BED";
+ $record = Maasha::UCSC::BED::bed_analyze( $record ) if $record->{ "REC_TYPE" } eq "BED";
Maasha::Biopieces::put_record( $record, $out );
}