gistfile1.txt

Line 1604 of /homes/dbolser/perl5/lib/perl5/Bio/DB/SeqFeature/Store/DBI/mysql.pm
    print Dumper $self if !defined $source_tag; exit;


Gives:

$VAR1 = bless( {
                 'dumpdir' => '/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' );