$bp_record->{ "S_ID" } ||
return undef;
- $bed_entry[ chromStart ] = $bp_record->{ "CHR_BEG" } ||
- $bp_record->{ "S_BEG" } ||
- return undef;
+ if ( defined $bp_record->{ "CHR_BEG" } ) {
+ $bed_entry[ chromStart ] = $bp_record->{ "CHR_BEG" };
+ } elsif ( defined $bp_record->{ "S_BEG" } ) {
+ $bed_entry[ chromStart ] = $bp_record->{ "S_BEG" };
+ } else {
+ return undef;
+ }
- $bed_entry[ chromEnd ] = $bp_record->{ "CHR_END" } ||
- $bp_record->{ "S_END" } ||
- return undef;
+ if ( defined $bp_record->{ "CHR_END" } ) {
+ $bed_entry[ chromEnd ] = $bp_record->{ "CHR_END" };
+ } elsif ( defined $bp_record->{ "S_END" }) {
+ $bed_entry[ chromEnd ] = $bp_record->{ "S_END" };
+ } else {
+ return undef;
+ }
$bed_entry[ chromEnd ]++;