File Coverage

blib/lib/Bio/ConnectDots/Config.pm
Criterion Covered Total %
statement 0 7 0.0
branch 0 4 0.0
condition n/a
subroutine 0 1 0.0
pod 0 1 0.0
total 0 13 0.0


line stmt bran cond sub pod time code
1             package Bio::ConnectDots::Config;
2             # Database connection file. These values will be the default connection settings
3             # used in all scripts provided with the package. Simply change the fields to match your
4             # database connection parameters
5              
6             sub db {
7 0     0 0   my ($db) = @_;
8 0           my $info;
9              
10 0 0         if($db =~ /production/i) {
11 0           $info = {
12             host=>'yuki',
13             user=>'dburdick',
14             password=>'password',
15             dbname=>'ctd_db2'
16             };
17             }
18            
19 0 0         if($db =~ /test/i) {
20 0           $info = {
21             host=>'yuki',
22             user=>'dburdick',
23             password=>'password',
24             dbname=>'ctd_unittest'
25             };
26             }
27 0           return $info;
28             }
29              
30             1;