Branch Coverage

blib/lib/YATT/Lite/WebMVC0/DBSchema.pm
Criterion Covered Total %
branch 0 254 0.0


line true false branch
69 0 0 if (my $sub = $self->{'cf_on_destroy'})
77 0 0 if (my $dbh = delete $schema->{'cf_DBH'}) { }
79 0 0 unless $dbh->{'AutoCommit'}
82 0 0 if $schema->{'cf_debug'}
85 0 0 if $schema->{'cf_debug'}
96 0 0 if @_
103 0 0 unless ref $orig
108 0 0 ref $v ? :
112 0 0 if @_
113 0 0 if $new->{'cf_debug'}
119 0 0 if (my $dbh = delete $self->{'cf_DBH'})
120 0 0 if $self->{'cf_is_clone'}
136 0 0 if (ref $item) { }
149 0 0 if ref $list->[0]
150 0 0 if ($list->[0] =~ /^-(\w+)/) { }
153 0 0 unless @$list >= 2
164 0 0 if $self->{'cf_auto_create'}
169 0 0 if $self->{'cf_group_writable'} // 1
178 0 0 unless my $sub = $app->can('backend_startup')
183 0 0 if ($schema->{'cf_connect_atstart'})
209 0 0 if ($when =~ /^at_?start$/i) { }
0 0 elsif ($when =~ /^on_?demand$/i) { }
223 0 0 @_ ? :
224 0 0 unless (defined $spec)
227 0 0 if (ref $spec eq 'ARRAY' or not ref $spec) { }
0 0 elsif (ref $spec eq 'CODE') { }
236 0 0 $schema->{'cf_debug'} >= 2 ? :
0 0 if $schema->{'cf_debug'}
243 0 0 if ($dbtype =~ /^dbi:/i) { }
0 0 elsif (my $sub = $schema->can("connect_to_\L$dbtype\E")) { }
255 0 0 unless my($driver) = $dbi =~ /^dbi:([^:]+):/i
257 0 0 if (my $sub = $schema->can("connect_to_\L$driver\E")) { }
272 0 0 if ($dsn_or_sqlite_fn =~ /^dbi:SQLite:(?:dbname=)?(.*)$/i) { }
278 0 0 unless (delete $opts{'RO'})
279 0 0 if 'version'->parse($DBD::SQLite::VERSION) >= $minver
286 0 0 if $first_time
314 0 0 unless $schema->{'cf_auto_create'}
326 0 0 if $schema->has_table($table->{'cf_name'}, $dbh)
329 0 0 if (not $schema->{'cf_verbose'}) { }
0 0 elsif ($schema->{'cf_verbose'} >= 2) { }
0 0 elsif ($schema->{'cf_verbose'} and $create =~ /^create table /i) { }
339 0 0 if $schema->has_view($view->{'cf_name'}, $dbh)
340 0 0 if $view->{'cf_virtual'}
341 0 0 if ($schema->{'cf_verbose'})
347 0 0 if (@created)
352 0 0 if (@sql)
353 0 0 unless $dbh->{'AutoCommit'}
365 0 0 if (grep {ref $_ eq 'SCALAR';} @$record) { }
370 0 0 if $schema->{'cf_verbose'}
375 0 0 if $schema->{'cf_verbose'}
390 0 0 ref $_ ? :
398 0 0 if ($schema->{'dbtype'} and my $sub = $schema->can("$schema->{'dbtype'}_has_type")) { }
409 0 0 unless $schema->{'dbtype'}
410 0 0 unless my $sub = $schema->can("$schema->{'dbtype'}_$method")
417 0 0 unless my($found) = $dbh->selectrow_array("select name from sqlite_master where type = ? and name = ?\n", undef, $type, $name)
457 0 0 $opts->{'raw'} ? :
480 0 0 unless my YATT::Lite::WebMVC0::DBSchema::Table $tab = $self->{'table_dict'}{$tabName}
482 0 0 if ($opts{'raw'}) { }
488 0 0 if (my YATT::Lite::WebMVC0::DBSchema::Column $pk = $self->get_table_pk($subTab) || $self->get_table_pk($tab))
500 0 0 unless my YATT::Lite::WebMVC0::DBSchema::Table $tab = $self->{'table_dict'}{$tabName}
517 0 0 ref $tabName ? :
519 0 0 unless $pkinfo
520 0 0 if (wantarray) { }
521 0 0 ref $pkinfo eq 'ARRAY' ? :
523 0 0 ref $pkinfo eq 'ARRAY' ? :
531 0 0 if @_ == 1
532 0 0 if ($tab and not $tab->{'not_configured'})
543 0 0 if $opts
547 0 0 if (not ref $colpairs[0]) { }
549 0 0 ref $desc ? :
554 0 0 if (my($relType, @relSpec) = $self->known_rels($method, undef, @args)) { }
557 0 0 unless my $sub = $self->can("add_table_\L$method\E")
569 0 0 if ($tab->{'pk'} and @args)
591 0 0 unless (defined $item)
598 0 0 if not ref $item and $item =~ s/\.(\w+)$//
600 0 0 ref $item ? :
605 0 0 if ($tab->{'relation_dict'}{$relName})
615 0 0 if ($tab->{'col_dict'}{$colName})
619 0 0 if (ref $type) { }
0 0 elsif (not defined $type) { }
627 0 0 if (not defined(my $key = shift @colSpec)) { }
0 0 elsif (ref $key) { }
0 0 elsif ($key =~ /^-/) { }
634 0 0 if (my($relType, @relSpec) = $self->known_rels($method, $colName, @args)) { }
649 0 0 if $col->{'cf_primary_key'}
666 0 0 if ($tab->{'not_configured'})
672 0 0 if (@not_configured)
687 0 0 unless $known_rels{$relType}
709 0 0 if $col->{'cf_primary_key'}
711 0 0 if $col->{'cf_indexed'}
716 0 0 if (not $pk_ok and $tab->{'pk'})
749 0 0 if (my $trigger = $tab->{'cf_trigger_after_delete'})
756 0 0 wantarray ? :
772 0 0 $col->{'cf_primary_key'} ? :
0 0 $col->{'cf_unique'} ? :
0 0 $col->{'cf_autoincrement'} ? :
777 0 0 if (not defined $col->{'cf_type'}) { }
0 0 elsif ($col->{'cf_type'} =~ /^int/i and $col->{'cf_primary_key'}) { }
788 0 0 unless my $sub = $schema->can($schema->{'dbtype'} . '_sql_compound_trigger')
795 0 0 if (not ref $item) { }
0 0 elsif (@$item == 1) { }
806 0 0 ref $item ? :
821 0 0 ref $method ? :
826 0 0 $wantarray ? :
829 0 0 wantarray ? :
844 0 0 unless &$to_find($value)
852 0 0 if $self->{'cf_verbose'}
858 0 0 unless my($rowid) = $sth->fetchrow_array
867 0 0 if $self->{'cf_verbose'}
880 0 0 if $self->{'cf_verbose'}
893 0 0 unless my YATT::Lite::WebMVC0::DBSchema::Table $tab = $self->{'table_dict'}{$tabName}
906 0 0 unless my YATT::Lite::WebMVC0::DBSchema::Table $tab = $self->{'table_dict'}{$tabName}
909 0 0 $resColList ? :
911 0 0 if (not defined $keyColList) { }
0 0 elsif (not ref $keyColList) { }
0 0 elsif (ref $keyColList eq 'ARRAY') { }
0 0 elsif (ref $keyColList eq 'SCALAR') { }
924 0 0 if ($group_by)
927 0 0 if ($order_by)
930 0 0 defined $where ? :
945 0 0 if (ref $_) { }
962 0 0 if (my YATT::Lite::WebMVC0::DBSchema::Column $pk = $tab->{'pk'}) { }
1014 0 0 if (my $sub = $pack->can('cf_list')) { }
1040 0 0 $as_utc ? :
1046 0 0 unless defined $_[0]
1048 0 0 ref $_[0] eq 'ARRAY' ? :
0 0 ref $_[0] eq 'HASH' ? :