Branch Coverage

blib/lib/Wiki/Toolkit/Store/Database.pm
Criterion Covered Total %
branch 5 322 1.5


line true false branch
24 0 8 $@ ? :
95 0 3 if ($args{'dbh'}) { }
100 3 0 unless defined $args{'dbname'}
111 0 0 unless my $dsn = $self->_dsn($dbname, $dbhost, $dbport)
113 0 0 unless $self->{'_dbh'} = 'DBI'->connect($dsn, $dbuser, $dbpass, $self->_get_dbh_connect_attr)
120 0 0 if ($db_ver < $cur_ver) { }
0 0 elsif ($db_ver > $cur_ver) { }
144 0 0 if ($result and $result == 0 or not $result) { }
0 0 elsif ($result == -1 or $result == 1) { }
202 0 0 scalar @_ == 1 ? :
203 0 0 unless ($args{'version'})
206 0 0 unless $args{'plugins'}
208 0 0 if ($plugin->can('pre_retrieve'))
217 0 0 unless (wantarray)
231 0 0 unless (wantarray)
246 0 0 unless $sth->execute($args{'name'}, $data{'version'})
250 0 0 if (defined $metadata{$type}) { }
266 0 0 unless $args{'name'}
272 0 0 if ($args{'version'}) { }
290 0 0 unless scalar @results
302 0 0 unless $node_data{'metadata'}
306 0 0 if (ref $val eq 'ARRAY') { }
353 0 0 if (scalar @_ == 1) { }
359 0 0 unless $args{'ignore_case'}
365 0 0 lc $found_name eq lc $args{'name'} ? :
371 0 0 unless my(%data) = $self->retrieve_node($node)
407 0 0 unless $node
415 0 0 unless $sth->execute
447 0 0 unless $sth->execute
516 0 0 unless $links_to_ref
518 0 0 unless ($requires_moderation)
521 0 0 unless $args{'plugins'}
524 0 0 if ($plugin->can('pre_write'))
534 0 0 if ($write_allowed < 1)
539 0 0 if ($self->_checksum(%args) eq $args{'checksum'})
550 0 0 unless ($exists)
556 0 0 if ($requires_moderation)
567 0 0 unless $add_sth->execute(map({$self->charset_encode($_);} $node, $version, $node_content, $timestamp, $requires_moderation))
579 0 0 if ($exists)
585 0 0 unless $version
589 0 0 unless ($node_requires_moderation)
594 0 0 unless $dbh->do($sql)
598 0 0 if ($requires_moderation)
611 0 0 unless $add_sth->execute(map({$self->charset_encode($_);} $node_id, $version, $content, $timestamp, 1 - $node_requires_moderation))
617 0 0 unless $dbh->do('DELETE FROM internal_links WHERE link_from=' . $dbh->quote($self->charset_encode($node)))
627 0 0 if $@
632 0 0 unless $metadata_ref
637 0 0 ref $val && ref $val eq 'ARRAY' ? :
642 0 0 if ref $value
654 0 0 if ($all_scalars) { }
660 0 0 unless $add_sth->execute(map({$self->charset_encode($_);} $node_id, $version, $type, $value))
669 0 0 unless $add_sth->execute(map({$self->charset_encode($_);} $node_id, $version, $type_to_store, $value_to_store))
676 0 0 unless $args{'plugins'}
678 0 0 if ($plugin->can('post_write'))
696 0 0 unless (ref $time)
729 0 0 if ($formatter->can('node_name_to_node_param') and $formatter->can('node_param_to_node_name'))
738 0 0 unless $args{'plugins'}
741 0 0 if ($plugin->can('pre_rename'))
752 0 0 if ($rename_allowed < 1)
770 0 0 if ($formatter->can('rename_links'))
799 0 0 if ($formatter->can('rename_links')) { }
804 0 0 if ($page_name eq $old_name)
816 0 0 if ($new_content ne $page{'content'})
818 0 0 if ($create_new_versions) { }
842 0 0 unless ($create_new_versions)
852 0 0 unless $args{'plugins'}
854 0 0 if ($plugin->can('post_rename'))
879 0 0 scalar @_ == 2 ? :
885 0 0 unless $args{'plugins'}
888 0 0 if ($plugin->can('pre_moderate'))
897 0 0 if ($moderation_allowed < 1)
916 0 0 unless $hv_sth->execute($node_id, '1')
919 0 0 unless ($highest_mod_version)
928 0 0 unless $update_sth->execute('1', $node_id, $version)
931 0 0 if (int $version > int $highest_mod_version) { }
937 0 0 unless ($new_data{'last_modified'})
946 0 0 unless $newv_sth->execute($version, $self->charset_encode($new_data{'content'}), $new_data{'last_modified'}, $node_id)
955 0 0 unless $args{'plugins'}
957 0 0 if ($plugin->can('post_moderate'))
981 0 0 scalar @_ == 2 ? :
994 0 0 unless ($node_id)
1004 0 0 unless $mod_sth->execute("$required", $node_id)
1035 0 0 scalar @_ == 1 ? :
1050 0 0 unless ($version)
1055 0 0 unless $dbh->do($sql)
1057 0 0 unless $dbh->do($sql)
1059 0 0 unless $dbh->do($sql)
1061 0 0 unless $dbh->do($sql)
1070 0 0 unless ($verdata{'version'})
1079 0 0 unless $sth->execute
1082 0 0 if ($count == 1)
1089 0 0 if ($currdata{'version'} == $version)
1108 0 0 unless $sth->execute(@prevdata{'version', 'content', 'last_modified'}, $name)
1116 0 0 unless $sth->execute
1122 0 0 unless $sth->execute($name)
1126 0 0 if ($formatter->can('find_internal_links'))
1138 0 0 if $@
1146 0 0 unless $sth->execute
1160 0 0 unless $sth->execute($version)
1166 0 0 unless $sth->execute($version)
1194 0 0 unless $plugins
1196 0 0 if ($plugin->can('post_delete'))
1314 0 0 if ($args{'since'}) { }
0 0 elsif ($args{'between_days'}) { }
0 0 elsif ($args{'days'}) { }
0 0 elsif ($args{'last_n_changes'}) { }
1346 0 0 if ($metadata_is)
1348 0 0 if ($include_all_changes)
1356 0 0 if ref $value
1358 0 0 $main_table eq 'node' ? :
1367 0 0 if (defined $moderation)
1386 0 0 if ($metadata_isnt)
1389 0 0 if ref $value
1404 0 0 if ($metadata_was)
1410 0 0 if ref $value
1431 0 0 if ($metadata_wasnt)
1434 0 0 if ref $value
1453 0 0 if ($include_all_changes or $new_only or $metadata_was or $metadata_wasnt)
1458 0 0 if ($new_only)
1462 0 0 if ($since) { }
0 0 elsif ($between_days) { }
1469 0 0 if $start < $end
1479 0 0 if ($include_all_changes or $new_only or $use_content_table) { }
1485 0 0 if ($use_content_table)
1489 0 0 scalar @where ? :
0 0 $use_content_table ? :
1498 0 0 if ($limit)
1499 0 0 unless $limit =~ /^\d+$/
1517 0 0 if (defined $metadata{$type}) { }
1548 0 0 if ($args{'with_details'}) { }
1589 0 0 unless ($node_id)
1596 0 0 unless $node_id
1600 0 0 if ($with_content)
1603 0 0 if ($with_metadata)
1607 0 0 if ($with_metadata)
1628 0 0 if (%data and $data{'version'} != $results[2]) { }
1640 0 0 if ($with_content)
1644 0 0 if ($with_metadata)
1646 0 0 unless ($data{'metadata'})
1648 0 0 if ($m_type)
1650 0 0 if ($data{'metadata'}{$m_type}) { }
1651 0 0 unless (ref $data{'metadata'}{$m_type} eq 'ARRAY')
1668 0 0 if ($dataref)
1716 0 0 unless $type
1719 0 0 if ($args{'ignore_case'})
1756 0 0 unless $type
1759 0 0 if ($args{'ignore_case'})
1768 0 0 if (not $value) { }
1788 0 0 unless ($with_hash{$node})
1810 0 0 if ($args{'ignore_case'}) { }
1844 0 0 if ($args{'ignore_case'}) { }
1926 0 0 if ($only_where_lastest)
1984 0 0 unless ($data{'version'})
2028 0 0 unless $type
2103 0 0 if ($@)
2107 0 0 if ($@)
2112 0 0 if ($@) { }
2189 0 3 if $self->{'_external_dbh'}
2191 0 3 if $dbh
2199 0 0 if ($CAN_USE_ENCODE)
2214 0 0 if ($CAN_USE_ENCODE)