The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

$whole = $db->whole_segment ($segment,$settings);

Given a detail segment, return the whole seq_id that contains it

$region = $db->region_segment ($segment,$settings [,$whole]);

Given a detail segment and the current settings, return the region centered on the segment. The whole segment can be passed if desired -- this will avoid a redundant lookup.