Branch Coverage

blib/lib/CTM/Base/MainClass.pm
Criterion Covered Total %
branch 7 46 15.2


line true false branch
73 2 0 if ((caller)->isa('CTM::Base::MainClass')) { }
75 2 0 if (defined $params{'version'} and defined $params{'DBMSType'} and defined $params{'DBMSAddress'} and defined $params{'DBMSPort'} and defined $params{'DBMSInstance'} and defined $params{'DBMSUser'}) { }
82 2 0 exists $params{'DBMSPassword'} ? :
102 0 0 if ((caller)->isa('CTM::Base::MainClass')) { }
104 0 0 if (defined $$self{'_version'} and $$self{'_version'} =~ /^[678]$/ and defined $$self{'DBMSType'} and $$self{'DBMSType'} =~ /^(Pg|Oracle|mysql|Sybase|ODBC)$/ and hascontent($$self{'DBMSAddress'}) and defined $$self{'DBMSPort'} and $$self{'DBMSPort'} =~ /^\d+$/ and $$self{'DBMSPort'} >= 0 and $$self{'DBMSPort'} <= 65535 and defined hascontent($$self{'DBMSInstance'}) and hascontent($$self{'DBMSUser'}) and defined $$self{'DBMSConnectTimeout'} and $$self{'DBMSConnectTimeout'} =~ /^\d+$/) { }
105 0 0 if (not $self->isSessionSeemAlive) { }
106 0 0 if (eval 'require DBD::' . $$self{'DBMSType'}) { }
112 0 0 if ($myOSIsUnix) { }
125 0 0 if ($$self{'DBMSType'} eq 'ODBC') { }
141 0 0 if defined $DBI::errstr
146 0 0 if $myOSIsUnix
148 0 0 unless (defined $self->getError)
150 0 0 if ($situation) { }
151 0 0 if (not @{$inexistingSQLTables;}) { }
178 1 0 if ((caller)->isa('CTM::Base::MainClass')) { }
180 0 1 if ($self->isSessionSeemAlive) { }
181 0 0 if ($self->_DBI->disconnect) { }
200 2 0 if ((caller)->isa('CTM::Base::MainClass')) { }
210 0 0 if ((caller)->isa('CTM::Base::MainClass')) { }
220 0 0 if ((caller)->isa('CTM::Base::MainClass')) { }
230 0 0 if ((caller)->isa('CTM::Base::MainClass')) { }
232 0 0 if ($self->isSessionSeemAlive) { }
245 2 0 if ((caller)->isa('CTM::Base::MainClass')) { }