line |
true |
false |
branch |
21
|
0 |
0 |
if (my $orig = $opts->{$mode}) |
22
|
0 |
0 |
if (not ref $orig) { } |
|
0 |
0 |
elsif (ref $orig eq 'CODE') { } |
|
0 |
0 |
elsif (ref $orig eq 'ARRAY') { } |
82
|
0 |
0 |
if (my $e = $@) |
83
|
0 |
0 |
if ($e =~ /DBI connect\(.+\) failed:/) { } |
84
|
0 |
0 |
if ($e =~ /Can't connect to MySQL server on '[^']*' \(111\)/) { } |
|
0 |
0 |
elsif ($e =~ /Lost connection to MySQL server at/) { } |
|
0 |
0 |
elsif ($e =~ /Unknown MySQL server host '[^']*' \(0\)/ or $e =~ /Can't connect to MySQL server on/) { } |
109
|
0 |
0 |
if $self->{'handler'} |