Branch Coverage

blib/lib/IPC/Concurrency/DBI.pm
Criterion Covered Total %
branch 19 30 63.3


line true false branch
136 0 10 unless defined $database_handle
138 0 10 unless Data::Validate::Type::is_instance($database_handle, 'class', 'DBI::db')
150 8 2 if defined $verbose
182 1 7 if not defined $name or $name eq ''
184 1 6 if length $name > 255
186 1 5 if not defined $maximum_instances or $maximum_instances eq ''
188 1 4 unless Data::Validate::Type::is_number($maximum_instances, 'strictly_positive', 1)
205 0 3 if defined $database_handle->errstr
208 3 0 defined $rows_affected && $rows_affected == 1 ? :
268 1 0 unless defined $drop_if_exist and $drop_if_exist
273 0 1 unless $database_type =~ /^(?:SQLite|mysql|Pg)$/x
322 0 1 unless defined $$tables_sql{$database_type}
327 0 1 if ($drop_if_exist)
329 0 0 unless $database_handle->do('DROP TABLE IF EXISTS ipc_concurrency_applications')
333 0 1 unless $database_handle->do($$tables_sql{$database_type})