gistfile1.pl

warn "connecting to link intensity GFF\n";

my $intensities = Bio::DB::SeqFeature::Store->
  new( -adaptor => 'DBI::mysql',
       -dsn => 'dbolser_002:mysql.compbio.dundee.ac.uk',
       -user => 'dbolser',
       -pass => 'abc123',
       -verbose => $verbose,
     );

warn Dumper $intensities
  if $verbose > 1;

__END__

Gives...


connecting to link intensity GFF
$VAR1 = bless( {
                 'dumpdir' => '/local/tmp',
                 'settings_cache' => {
                                       'serializer' => 'Storable',
                                       'compress' => '1',
                                       'autoindex' => '1',
                                       'index_subfeatures' => '1'
                                     },
                 'namespace' => undef,
                 'seqfeatureclass' => 'Bio::DB::SeqFeature',
                 'writeable' => undef,
                 'is_temp' => undef,
                 'dbh' => bless( {}, 'DBI::db' )
               }, 'Bio::DB::SeqFeature::Store::DBI::mysql' );