/usr/local/CPAN/GBrowse/Bio/Graphics/GBrowseFeature.pm

• package Bio::Graphics::GBrowseFeature
  • gbrowse_dbid
• EOF

package Bio::Graphics::GBrowseFeature;

# $Id$
# add gbrowse_dbid() method to Bio::Graphics::Feature;

use strict;
use warnings;
use base 'Bio::Graphics::Feature';

sub gbrowse_dbid {
    my $self = shift;
    my $d    = $self->{__gbrowse_dbid};
    $self->{__gbrowse_dbid} = shift if @_;
    $d;
}

1;