| line |
true |
false |
branch |
|
256
|
0 |
466 |
if &detected_reinvoked_destructor
|
|
275
|
24 |
68381 |
if (defined $pid and $pid != $$ and my $dbh = $_[0]->_dbh)
|
|
620
|
5 |
460 |
unless $info
|
|
624
|
460 |
0 |
if ref $info eq 'ARRAY'
|
|
628
|
0 |
460 |
unless $self->_default_dbi_connect_attributes
|
|
629
|
35 |
425 |
unless $info->{'attributes'}
|
|
634
|
453 |
7 |
if (keys %attrs and ref $args[0] ne 'CODE')
|
|
641
|
1 |
0 |
unless $attrs{'AutoCommit'} or $ENV{'DBIC_UNSAFE_AUTOCOMMIT_OK'}
|
|
643
|
453 |
0 |
if keys %attrs
|
|
681
|
460 |
810 |
if @_
|
|
687
|
168 |
11 |
if (not defined $conninfo->[0] and $ENV{'DBI_DSN'})
|
|
706
|
6 |
454 |
if (ref $args[0] eq 'CODE') { }
|
|
|
2 |
452 |
elsif (ref $args[0] eq 'HASH') { }
|
|
707
|
3 |
3 |
unless $args[1]
|
|
713
|
1 |
1 |
if (my $code = delete $attrs{'dbh_maker'}) { }
|
|
717
|
1 |
0 |
if (@ignored)
|
|
732
|
28 |
424 |
unless $args[3]
|
|
733
|
443 |
9 |
unless $args[4]
|
|
744
|
427 |
33 |
if @storage_opts
|
|
750
|
13 |
447 |
if @sql_maker_opts
|
|
752
|
425 |
35 |
if %attrs
|
|
782
|
37 |
458 |
unless defined $val
|
|
786
|
7 |
451 |
if (not ref $val) { }
|
|
|
449 |
2 |
elsif (ref $val eq 'CODE') { }
|
|
|
2 |
0 |
elsif (ref $val eq 'ARRAY') { }
|
|
840
|
3037 |
44818 |
if $self->{'_in_do_block'} or $self->transaction_depth
|
|
845
|
7114 |
37704 |
@_ ? :
|
|
851
|
22 |
0 |
if $_[0]->failed_attempt_count == 1
|
|
874
|
20 |
17 |
if (my $dbh = $_[0]->_dbh)
|
|
882
|
0 |
20 |
unless $_[0]->_dbh_autocommit
|
|
928
|
117 |
151 |
unless $_[0]->_seems_connected
|
|
947
|
70 |
107 |
unless $_[0]->connected
|
|
962
|
99 |
10 |
$_[0]->_dbh ? :
|
|
971
|
561 |
57888 |
unless $_[0]->_dbh
|
|
1056
|
470 |
2 |
$_[0]->_dbh_autocommit ? :
|
|
1058
|
468 |
4 |
unless $_[0]{'_in_determine_driver'}
|
|
1168
|
177 |
0 |
if ($info =~ /[^0-9]/)
|
|
1171
|
0 |
177 |
unless defined $info
|
|
1189
|
4 |
2 |
if $drv
|
|
1199
|
4 |
2 |
$drv ? :
|
|
1240
|
168 |
0 |
unless defined $v
|
|
1244
|
0 |
0 |
$expl ? :
|
|
1253
|
445 |
70 |
if (not $self->_driver_determined || $self->{'_in_determine_driver'})
|
|
1257
|
436 |
9 |
if (ref $self eq 'DBIx::Class::Storage::DBI')
|
|
1259
|
399 |
37 |
if ($self->_dbh) { }
|
|
1267
|
434 |
2 |
if ($driver) { }
|
|
1269
|
430 |
4 |
if ($self->load_optional_class($storage_class)) { }
|
|
1293
|
1 |
444 |
if ($self->can('source_bind_attributes'))
|
|
1304
|
7 |
437 |
if not $started_connected and defined $self->_dbh
|
|
1315
|
3 |
40 |
if (ref $self->_dbi_connect_info->[0] and &reftype($self->_dbi_connect_info->[0]) eq 'CODE') { }
|
|
1348
|
0 |
0 |
unless ($dbtype)
|
|
1359
|
0 |
0 |
if $self->isa($subclass)
|
|
1361
|
0 |
0 |
if ($self->load_optional_class($subclass)) { }
|
|
1389
|
25 |
1839 |
if (not ref $call) { }
|
|
|
914 |
925 |
elsif (ref $call eq 'CODE') { }
|
|
|
925 |
0 |
elsif (ref $call eq 'ARRAY') { }
|
|
1397
|
454 |
471 |
if (ref $call->[0] ne 'ARRAY') { }
|
|
1409
|
26 |
3 |
if ($method_prefix =~ /^connect/) { }
|
|
1452
|
4 |
16 |
if (ref $action eq 'CODE') { }
|
|
1461
|
3 |
13 |
ref $action eq 'ARRAY' ? :
|
|
1481
|
4 |
653 |
unless defined $info->[0]
|
|
1486
|
0 |
0 |
if $INC{'Apache/DBI.pm'} and $ENV{'MOD_PERL'}
|
|
1500
|
42 |
1 |
if ($weak_self) { }
|
|
1512
|
5 |
648 |
if (ref $info->[0] eq 'CODE') { }
|
|
1520
|
0 |
473 |
unless $dbh
|
|
1522
|
0 |
0 |
ref $info->[0] eq 'CODE' ? :
|
|
|
0 |
473 |
unless $dbh->FETCH('Active')
|
|
1531
|
473 |
0 |
unless ($self->unsafe)
|
|
1536
|
0 |
473 |
if $dbh->{'HandleError'} and ref $dbh->{'HandleError'} ne '__DBIC__DBH__ERROR__HANDLER__'
|
|
1540
|
2 |
471 |
unless ($dbh->{'RaiseError'})
|
|
1541
|
2 |
0 |
ref $info->[0] eq 'CODE' ? :
|
|
1587
|
293 |
8458 |
if ($self->{'_in_do_block'}) { }
|
|
1597
|
0 |
9194 |
unless $self->_seems_connected
|
|
1601
|
0 |
0 |
unless ($self->transaction_depth or $self->_dbh->FETCH('AutoCommit'))
|
|
1611
|
0 |
8585 |
if not $self->transaction_depth and defined $self->_dbh_autocommit and not $self->_dbh_autocommit
|
|
1627
|
0 |
244 |
unless $self->_seems_connected
|
|
1631
|
0 |
0 |
unless ($self->transaction_depth or $self->_dbh->FETCH('AutoCommit'))
|
|
1641
|
0 |
130 |
if not $self->transaction_depth and defined $self->_dbh_autocommit and not $self->_dbh_autocommit
|
|
1673
|
10711 |
7887 |
if (&blessed($ident))
|
|
1682
|
10931 |
7663 |
unless $args->[2]{'bind'}
|
|
1685
|
0 |
18594 |
if (not $ENV{'DBIC_DT_SEARCH_OK'} and $op eq 'select' and &first(sub {
$_->[1]->isa('DateTime') if length ref $_->[1] and &blessed($_->[1]);
}
, @$bind))
|
|
1691
|
4 |
13940 |
if length ref $_->[1] and &blessed($_->[1])
|
|
1717
|
40960 |
9 |
if (my $col = $_[0]{'dbic_colname'})
|
|
1721
|
40853 |
107 |
if $colinfos->{$col}{'data_type'}
|
|
1724
|
10517 |
30443 |
if $colinfos->{$col}{'size'}
|
|
1727
|
9 |
40960 |
unless $ret
|
|
1743
|
2295 |
22059 |
!keys(%{$$_[0];}) || exists $_->[0]{'dbd_attrs'} || $_->[0]{'sqlt_datatype'} ? :
|
|
|
123 |
18910 |
ref $_->[0] eq 'SCALAR' ? :
|
|
|
24354 |
19033 |
ref $_->[0] eq 'HASH' ? :
|
|
|
36 |
43387 |
!defined($_->[0]) ? :
|
|
|
200 |
43423 |
ref $_ ne 'ARRAY' || @$_ != 2 ? :
|
|
1759
|
140 |
4 |
defined($_ && $_->[1]) ? :
|
|
1762
|
0 |
141 |
unless $_[1]
|
|
1768
|
145 |
17881 |
if $self->debug
|
|
1775
|
140 |
17857 |
if $self->debug
|
|
1786
|
0 |
42233 |
if (exists $_->{'dbd_attrs'}) { }
|
|
|
42078 |
155 |
elsif ($_->{'sqlt_datatype'}) { }
|
|
1793
|
2397 |
39681 |
unless (exists $$cache{$_->{'sqlt_datatype'}})
|
|
1815
|
14 |
10139 |
unless $self->_dbh
|
|
1837
|
0 |
10127 |
unless $rv
|
|
1843
|
8625 |
1502 |
wantarray ? :
|
|
1850
|
10 |
17833 |
$self->disable_sth_caching ? :
|
|
1867
|
0 |
17825 |
unless $sth
|
|
1876
|
0 |
20180 |
if (ref $bind->[$i][1] eq 'SCALAR') { }
|
|
1886
|
225 |
19955 |
length ref $bind->[$i][1] && &is_plain_value($bind->[$i][1]) ? :
|
|
1908
|
0 |
0 |
if ($colinfo->{$col}{'auto_nextval'} and !exists $to_insert->{$col} || &is_literal_value($to_insert->{$col}))
|
|
2054
|
0 |
0 |
unless $_[3]
|
|
|
0 |
0 |
unless @{[] unless $_[3];}
|
|
2280
|
13998 |
8045 |
if defined $bind_attrs->[$i]
|
|
2297
|
7690 |
37027 |
if ++$fetch_row_idx > $#$data
|
|
2309
|
103600 |
54 |
!defined($_->{'_literal_bind_subindex'}) ? :
|
|
2316
|
50 |
103604 |
length ref $v && &is_plain_value($v) ? :
|
|
2337
|
0 |
7688 |
if not defined $err and !defined($rv) || $sth->err
|
|
2348
|
0 |
0 |
unless defined $err
|
|
2351
|
2 |
7688 |
if (defined $err)
|
|
2355
|
0 |
2 |
if $i > $#$tuple_status
|
|
2388
|
0 |
0 |
unless defined $err
|
|
2391
|
0 |
2 |
if defined $err
|
|
2417
|
1 |
0 |
if $_[3]{'software_limit'} and $_[3]{'offset'} || $_[3]{'rows'}
|
|
2457
|
207 |
7681 |
if (defined $attrs->{'offset'})
|
|
2459
|
0 |
207 |
if $attrs->{'offset'} =~ /\D/ or $attrs->{'offset'} < 0
|
|
2462
|
1743 |
6145 |
if (defined $attrs->{'rows'}) { }
|
|
|
12 |
6133 |
elsif ($attrs->{'offset'}) { }
|
|
2464
|
0 |
1743 |
if $attrs->{'rows'} =~ /\D/ or $attrs->{'rows'} <= 0
|
|
2476
|
11 |
7877 |
if ($attrs->{'_grouped_by_distinct'} and $attrs->{'collapse'}) { }
|
|
|
47 |
7830 |
elsif ($prefetch_needs_subquery || !$attrs->{'_simple_passthrough_construction'} and $attrs->{'group_by'} and @{$attrs->{'group_by'};} and my $grp_aliases = &try(sub {
$self->_resolve_aliastypes_from_select_args({'from', $attrs->{'from'}, 'group_by', $attrs->{'group_by'}});
}
)) { }
|
|
|
61 |
7769 |
elsif ($attrs->{'rows'} and $attrs->{'collapse'}) { }
|
|
2501
|
0 |
47 |
unless $grp_aliases->{'grouping'}
|
|
2509
|
87 |
7801 |
if ($prefetch_needs_subquery) { }
|
|
|
7795 |
6 |
elsif (not $attrs->{'software_limit'}) { }
|
|
2520
|
844 |
6957 |
if (not $prefetch_needs_subquery and ref $attrs->{'from'} and &reftype($attrs->{'from'}) eq 'ARRAY' and @{$attrs->{'from'};} != 1)
|
|
2609
|
4 |
0 |
if ($dbh->can('column_info'))
|
|
2613
|
0 |
4 |
$table =~ /^(.+?)\.(.+)$/ ? :
|
|
2620
|
6 |
8 |
$info->{'NULLABLE'} ? :
|
|
2630
|
4 |
0 |
if not $caught and scalar keys %result
|
|
2641
|
0 |
0 |
$sth->{'NULLABLE'}[$i] ? :
|
|
2643
|
0 |
0 |
if ($column_info{'data_type'} =~ /^(.*?)\((.*?)\)$/)
|
|
2656
|
0 |
0 |
if (defined $type_num and $dbh->can('type_info'))
|
|
2658
|
0 |
0 |
if $type_info
|
|
2659
|
0 |
0 |
if $type_name
|
|
2682
|
1241 |
0 |
if defined $id
|
|
2800
|
0 |
47 |
unless $_[1]
|
|
2867
|
2 |
0 |
if ($dir) { }
|
|
2871
|
0 |
1 |
unless -d $dir or require File::Path and File::Path::mkpath(["$dir"])
|
|
2880
|
0 |
2 |
unless -d $dir
|
|
2883
|
0 |
2 |
if ref $databases ne 'ARRAY'
|
|
2893
|
2 |
0 |
unless $sqltargs
|
|
2896
|
0 |
2 |
unless ('DBIx::Class::Optional::Dependencies'->req_ok_for('deploy'))
|
|
2903
|
0 |
2 |
unless my $sqlt_schema = $sqlt->translate({'data', $schema})
|
|
2913
|
0 |
4 |
if (-e $filename and $version eq $schema_version)
|
|
2920
|
0 |
4 |
unless ($output)
|
|
2924
|
0 |
4 |
unless (open $file, ">$filename")
|
|
2931
|
2 |
2 |
unless $preversion
|
|
2936
|
0 |
2 |
unless (-e $prefilename)
|
|
2942
|
0 |
2 |
if (-e $difffile)
|
|
2953
|
0 |
2 |
unless $t->parser($db)
|
|
2956
|
0 |
2 |
unless my $out = $t->translate($prefilename)
|
|
2961
|
2 |
0 |
unless $source_schema->name
|
|
2970
|
1 |
1 |
unless ("SQL::Translator::Producer::$db"->can('preprocess_schema'))
|
|
2975
|
0 |
1 |
unless $t->parser($db)
|
|
2978
|
0 |
1 |
unless my $out = $t->translate($filename)
|
|
2983
|
1 |
0 |
unless $dest_schema->name
|
|
2993
|
2 |
0 |
if $SQL::Translator::Producer::SQLite::NO_QUOTES
|
|
3002
|
0 |
2 |
unless (open $file, ">$difffile")
|
|
3086
|
3 |
173 |
unless $line
|
|
3087
|
0 |
173 |
if $line =~ /^--/
|
|
3089
|
2 |
171 |
if $line =~ /^BEGIN TRANSACTION/m
|
|
3090
|
2 |
169 |
if $line =~ /^COMMIT/m
|
|
3091
|
0 |
169 |
if $line =~ /^\s+$/
|
|
3102
|
2 |
1 |
unless $sqltargs
|
|
3103
|
2 |
1 |
if (@statements > 1) { }
|
|
|
1 |
0 |
elsif (@statements == 1) { }
|
|
3195
|
69 |
1580 |
$join_count && $join_count > 1 ? :
|
|
3209
|
0 |
0 |
if ($attr->{'sqlt_datatype'})
|
|
3212
|
0 |
0 |
if ($attr->{'sqlt_size'})
|
|
3215
|
0 |
0 |
if ($data_type =~ /^(?:
l? (?:var)? char(?:acter)? (?:\s*varying)?
|
(?:var)? binary (?:\s*varying)?
|
raw
)\b/x) { }
|
|
|
0 |
0 |
elsif ($data_type =~ /^(?:
national \s* character (?:\s*varying)?
|
nchar
|
univarchar
|
nvarchar
)\b/x) { }
|
|
3240
|
0 |
0 |
unless ($max_size or $self->_is_lob_type($data_type))
|
|
3245
|
0 |
0 |
unless $max_size or $self->_dbic_connect_attributes->{'LongReadLen'} or $self->_get_dbh->{'LongReadLen'}
|
|
3251
|
0 |
0 |
if $data_type
|
|
3259
|
0 |
0 |
if $data_type
|
|
3265
|
0 |
0 |
if $data_type
|
|
3273
|
0 |
0 |
if $data_type
|