| line |
true |
false |
branch |
|
59
|
0 |
0 |
if $mode eq 'return'
|
|
64
|
0 |
0 |
if ($mode eq 'croak' or $mode eq 'fatal') { }
|
|
|
0 |
0 |
elsif ($mode eq 'carp') { }
|
|
|
0 |
0 |
elsif ($mode eq 'cluck') { }
|
|
|
0 |
0 |
elsif ($mode eq 'confess') { }
|
|
96
|
0 |
0 |
if (ref $_[1])
|
|
100
|
0 |
0 |
if (ref $_[0] eq 'HASH') { }
|
|
|
0 |
0 |
elsif (ref $_[0] eq 'ARRAY') { }
|
|
126
|
62 |
1 |
if (@_)
|
|
128
|
0 |
62 |
if (@_ == 1 and ref $_[0] eq 'ARRAY') { }
|
|
139
|
1 |
62 |
wantarray ? :
|
|
146
|
1 |
0 |
if (@_ == 1) { }
|
|
152
|
0 |
0 |
unless @_ % 2 == 0
|
|
158
|
0 |
1 |
if exists $args{'debug'}
|
|
160
|
0 |
1 |
$class eq 'Rose::DB::Object::Manager' ? :
|
|
163
|
1 |
0 |
UNIVERSAL::isa($target_class, 'Rose::DB::Object::Manager') ? :
|
|
166
|
1 |
0 |
unless ($object_class)
|
|
168
|
1 |
0 |
if (UNIVERSAL::isa($target_class, 'Rose::DB::Object::Manager'))
|
|
173
|
0 |
1 |
if (not $object_class and UNIVERSAL::isa($target_class, 'Rose::DB::Object'))
|
|
179
|
0 |
1 |
unless ($object_class)
|
|
181
|
0 |
0 |
UNIVERSAL::isa($target_class, 'Rose::DB::Object::Manager') ? :
|
|
187
|
0 |
1 |
unless (UNIVERSAL::isa($object_class, 'Rose::DB::Object'))
|
|
198
|
0 |
0 |
if ($error)
|
|
209
|
0 |
1 |
if (not $args{'methods'}) { }
|
|
|
0 |
1 |
elsif ($args{'base_name'}) { }
|
|
211
|
0 |
0 |
unless ($base_name)
|
|
229
|
0 |
1 |
unless ref $args{'methods'} eq 'HASH'
|
|
236
|
0 |
1 |
unless $base_name
|
|
238
|
0 |
1 |
$name =~ s/\(\)$// ? :
|
|
240
|
0 |
1 |
if ref $types and ref $types ne 'ARRAY'
|
|
243
|
0 |
0 |
if ($have_full_name and ref $types and @$types > 1)
|
|
249
|
1 |
0 |
ref $types ? :
|
|
253
|
0 |
3 |
if ($type eq 'objects') { }
|
|
|
1 |
2 |
elsif ($type eq 'count') { }
|
|
|
1 |
1 |
elsif ($type eq 'iterator') { }
|
|
|
1 |
0 |
elsif ($type eq 'delete') { }
|
|
|
0 |
0 |
elsif ($type eq 'update') { }
|
|
255
|
0 |
0 |
$have_full_name ? :
|
|
264
|
0 |
0 |
if defined &{$method;}
|
|
266
|
0 |
0 |
if 'Rose::DB::Object::Manager'->can($short_method)
|
|
271
|
0 |
0 |
if $Debug
|
|
280
|
0 |
1 |
$have_full_name ? :
|
|
288
|
0 |
2 |
if defined &{$method;}
|
|
291
|
0 |
1 |
if $Debug
|
|
301
|
0 |
1 |
$have_full_name ? :
|
|
309
|
0 |
2 |
if defined &{$method;}
|
|
312
|
0 |
1 |
if $Debug
|
|
322
|
0 |
1 |
$have_full_name ? :
|
|
330
|
0 |
2 |
if defined &{$method;}
|
|
333
|
0 |
1 |
if $Debug
|
|
342
|
0 |
0 |
$have_full_name ? :
|
|
350
|
0 |
0 |
if defined &{$method;}
|
|
353
|
0 |
0 |
if $Debug
|
|
383
|
0 |
0 |
if (ref $_[1]) { }
|
|
387
|
0 |
0 |
if (ref $_[0] eq 'HASH') { }
|
|
|
0 |
0 |
elsif (ref $_[0] eq 'ARRAY') { }
|
|
423
|
0 |
0 |
if $args{'where'} and not exists $args{'query'}
|
|
425
|
0 |
0 |
unless exists $args{'strict_ops'}
|
|
430
|
0 |
0 |
exists $args{'table_aliases'} ? :
|
|
433
|
0 |
0 |
if (delete $args{'for_update'})
|
|
438
|
0 |
0 |
if ref $with_objects and not @$with_objects
|
|
439
|
0 |
0 |
if ref $require_objects and not @$require_objects
|
|
441
|
0 |
0 |
if exists $args{'debug'}
|
|
444
|
0 |
0 |
exists $args{'limit_with_subselect'} ? :
|
|
449
|
0 |
0 |
$select ? :
|
|
458
|
0 |
0 |
exists $args{'prepare_cached'} ? :
|
|
465
|
0 |
0 |
unless ($dbh)
|
|
467
|
0 |
0 |
unless ($dbh = $db->retain_dbh)
|
|
479
|
0 |
0 |
if $dbh->{'Driver'}{'Name'} eq 'Pg' and index($dbh->{'Driver'}{'Version'}, '2.0.') == 0
|
|
482
|
0 |
0 |
defined $args{'nested_joins'} ? :
|
|
|
0 |
0 |
$db->supports_nested_joins ? :
|
|
485
|
0 |
0 |
defined $args{'explicit_joins'} ? :
|
|
489
|
0 |
0 |
if ($with_map_records = delete $args{'with_map_records'})
|
|
491
|
0 |
0 |
unless (ref $with_map_records)
|
|
493
|
0 |
0 |
if ($with_map_records =~ /^[A-Za-z_]\w*$/) { }
|
|
|
0 |
0 |
elsif ($with_map_records) { }
|
|
508
|
0 |
0 |
$with_objects && !$require_objects ? :
|
|
513
|
0 |
0 |
if $with_objects and not ref $with_objects
|
|
514
|
0 |
0 |
if $require_objects and not ref $require_objects
|
|
525
|
0 |
0 |
unless index($_, '!') > 0
|
|
|
0 |
0 |
$with_objects ? :
|
|
|
0 |
0 |
$require_objects ? :
|
|
|
0 |
0 |
if (&first(sub {
|
|
530
|
0 |
0 |
$with_objects ? :
|
|
535
|
0 |
0 |
$with_objects ? :
|
|
|
0 |
0 |
$require_objects ? :
|
|
538
|
0 |
0 |
if not $in_require and $i++ == $requires_start
|
|
543
|
0 |
0 |
if (index($arg, '.') < 0) { }
|
|
548
|
0 |
0 |
$1 eq '!' || !$1 && $in_require ? :
|
|
551
|
0 |
0 |
if $join_type{$arg} and $join_type{$arg} ne $join_type
|
|
560
|
0 |
0 |
$1 eq '!' || !$1 && $in_require ? :
|
|
563
|
0 |
0 |
if $join_type{$arg} and $join_type{$arg} ne $join_type
|
|
571
|
0 |
0 |
$1 eq '!' || !$1 && $in_require ? :
|
|
576
|
0 |
0 |
if $join_type{$clean_arg} and $join_type{$clean_arg} ne $join_type
|
|
583
|
0 |
0 |
if (grep {$_ eq 'LEFT OUTER JOIN';} values %join_type)
|
|
592
|
0 |
0 |
$outer_joins ? :
|
|
599
|
0 |
0 |
if ($with_objects)
|
|
611
|
0 |
0 |
if (&first(sub {
|
|
617
|
0 |
0 |
if $seen_rel{$arg}
|
|
619
|
0 |
0 |
if (index($arg, '.') < 0) { }
|
|
631
|
0 |
0 |
if $seen_rel{$arg}++
|
|
650
|
0 |
0 |
if ($require_objects)
|
|
656
|
0 |
0 |
if (&first(sub {
|
|
662
|
0 |
0 |
if (index($arg, '.') < 0) { }
|
|
664
|
0 |
0 |
if (my $seen = $seen_rel{$arg})
|
|
666
|
0 |
0 |
if ($seen == 555)
|
|
681
|
0 |
0 |
if (my $seen = $seen_rel{$arg})
|
|
683
|
0 |
0 |
if ($seen == 555)
|
|
695
|
0 |
0 |
if $seen_rel{$arg}
|
|
710
|
0 |
0 |
if ($seen_rel{$arg})
|
|
723
|
0 |
0 |
ref $args{'object_args'} eq 'HASH' ? :
|
|
726
|
0 |
0 |
unless exists $args{'share_db'}
|
|
728
|
0 |
0 |
if (delete $args{'share_db'})
|
|
736
|
0 |
0 |
unless defined $args{'nonlazy'}
|
|
738
|
0 |
0 |
ref $nonlazy ? :
|
|
743
|
0 |
0 |
!ref($nonlazy) || $nonlazy{'self'} ? :
|
|
747
|
0 |
0 |
if ($use_lazy_columns) { }
|
|
776
|
0 |
0 |
$with_objects ? :
|
|
778
|
0 |
0 |
if ($distinct or $fetch)
|
|
780
|
0 |
0 |
if ($fetch and ref $distinct)
|
|
786
|
0 |
0 |
if $distinct
|
|
790
|
0 |
0 |
if (ref $fetch or ref $distinct)
|
|
792
|
0 |
0 |
ref $distinct ? :
|
|
800
|
0 |
0 |
if (exists $args{'page'} or exists $args{'per_page'})
|
|
802
|
0 |
0 |
if (exists $args{'limit'} or exists $args{'offset'})
|
|
812
|
0 |
0 |
if $page < 1
|
|
813
|
0 |
0 |
if $per_page < 1
|
|
817
|
0 |
0 |
if ($page > 1)
|
|
824
|
0 |
0 |
if (my $sort_by = $args{'sort_by'})
|
|
826
|
0 |
0 |
unless ref $sort_by eq 'ARRAY'
|
|
828
|
0 |
0 |
if ($num_subtables == 0 and defined $table_aliases and $table_aliases == 0)
|
|
836
|
0 |
0 |
unless ref $sort
|
|
850
|
0 |
0 |
if ($with_objects)
|
|
854
|
0 |
0 |
if ($args{'limit'} || $args{'offset'} and $dbh->{'Driver'}{'Name'} eq 'Oracle')
|
|
860
|
0 |
0 |
$args{'clauses'} ? :
|
|
872
|
0 |
0 |
if (index($tn_name, '.') > 0)
|
|
882
|
0 |
0 |
if (index($name, '.') >= 0) { }
|
|
898
|
0 |
0 |
$key->can('foreign_class') ? :
|
|
912
|
0 |
0 |
if ($rel_type =~ /\bmany$/)
|
|
918
|
0 |
0 |
if ($rel_type eq 'many to many')
|
|
929
|
0 |
0 |
if ($args{'limit'})
|
|
931
|
0 |
0 |
if ($try_subselect_limit and $db->supports_select_from_subselect and !$args{'offset'} || $db->supports_limit_with_offset and not $args{'select'}) { }
|
|
935
|
0 |
0 |
unless ($fetch and @$fetch and $fetch->[0] eq 't1')
|
|
966
|
0 |
0 |
$num_to_many_rels - $num_to_many_rels_adjustment > 1 ? :
|
|
968
|
0 |
0 |
unless ($args{'multi_many_ok'})
|
|
970
|
0 |
0 |
if ($multi_many)
|
|
990
|
0 |
0 |
if (index($arg, '.') > 0) { }
|
|
997
|
0 |
0 |
defined $rel_tn{$parent} ? :
|
|
1019
|
0 |
0 |
if ($rel_type eq 'foreign key' or $rel_type eq 'one to one' or $rel_type eq 'many to one' or $rel_type eq 'one to many') { }
|
|
|
0 |
0 |
elsif ($rel_type eq 'many to many') { }
|
|
1022
|
0 |
0 |
unless my $ft_class = $rel->class
|
|
1027
|
0 |
0 |
if (not $ft_columns and $rel_type ne 'one to many')
|
|
1032
|
0 |
0 |
if ($rel->can('query_args') and my $query_args = $rel->query_args)
|
|
1041
|
0 |
0 |
if (ref $param)
|
|
1048
|
0 |
0 |
unless ($param =~ s/^t2\./t$rel_tn{$arg}./)
|
|
1050
|
0 |
0 |
unless $param =~ /^t\d+\./
|
|
1070
|
0 |
0 |
!ref($nonlazy) || $nonlazy{$name} ? :
|
|
1072
|
0 |
0 |
if ($use_lazy_columns) { }
|
|
1088
|
0 |
0 |
$direct_inject ? :
|
|
1104
|
0 |
0 |
unless ($ft_columns and %$ft_columns)
|
|
1106
|
0 |
0 |
if ($with_objects{$arg}) { }
|
|
|
0 |
0 |
elsif ($use_explicit_joins) { }
|
|
1122
|
0 |
0 |
if (not $rel_type eq 'foreign key' && $rel->is_required && $rel->referential_integrity && $nested_joins and $outer_joins || $with_objects{$arg}) { }
|
|
1129
|
0 |
0 |
if ($multi_many)
|
|
1150
|
0 |
0 |
if ($use_redundant_join_conditions)
|
|
1154
|
0 |
0 |
$has_dups[$i - 1] ? :
|
|
1167
|
0 |
0 |
if ($use_explicit_joins) { }
|
|
1189
|
0 |
0 |
if $joins[$i] and $joins[$i]{'type'} eq 'JOIN'
|
|
1192
|
0 |
0 |
if ($rel->can('join_args') and my $join_args = $rel->join_args)
|
|
1220
|
0 |
0 |
if (@redundant)
|
|
1226
|
0 |
0 |
if $joins[$i]
|
|
1229
|
0 |
0 |
if ($rel->can('manager_args') and my $mgr_args = $rel->manager_args)
|
|
1232
|
0 |
0 |
if ($mgr_args->{'sort_by'} and !%fetch || $fetch{$tables[-1]} && !$fetch{$rel_names[-1]})
|
|
1236
|
0 |
0 |
ref $mgr_args->{'sort_by'} eq 'ARRAY' ? :
|
|
1241
|
0 |
0 |
unless ref $sort
|
|
1255
|
0 |
0 |
unless my $map_class = $rel->map_class
|
|
1274
|
0 |
0 |
if (my $rel_with_map_records = $rel_mgr_args->{'with_map_records'}) { }
|
|
|
0 |
0 |
elsif ($with_map_records) { }
|
|
1277
|
0 |
0 |
$rel_map_record_method ? :
|
|
|
0 |
0 |
$with_map_records && exists $with_map_records->{$name} ? :
|
|
1284
|
0 |
0 |
exists $with_map_records->{$name} ? :
|
|
1287
|
0 |
0 |
if ($map_record_method) { }
|
|
1289
|
0 |
0 |
!ref($nonlazy) || $nonlazy{$name} ? :
|
|
1291
|
0 |
0 |
if ($use_lazy_columns) { }
|
|
1326
|
0 |
0 |
if ($map_record_method)
|
|
1328
|
0 |
0 |
unless my $ft_class = $rel->foreign_class
|
|
1331
|
0 |
0 |
if ($ft_class->can($map_record_method)) { }
|
|
1333
|
0 |
0 |
if ($direct_inject and my $map_record_key = $ft_class->meta->map_record_method_key($map_record_method))
|
|
1344
|
0 |
0 |
if ($direct_inject and $mapped_object_methods[$i - 1])
|
|
1355
|
0 |
0 |
if ($outer_joins or $with_objects{$arg}) { }
|
|
1368
|
0 |
0 |
if ($use_explicit_joins) { }
|
|
1390
|
0 |
0 |
if $joins[$i] and $joins[$i]{'type'} eq 'JOIN'
|
|
1398
|
0 |
0 |
unless my $ft_class = $rel->foreign_class
|
|
1404
|
0 |
0 |
unless my $map_to = $rel->map_to
|
|
1413
|
0 |
0 |
unless my $ft_columns = $foreign_rel->key_columns
|
|
1422
|
0 |
0 |
!ref($nonlazy) || $nonlazy{$name} ? :
|
|
1424
|
0 |
0 |
if ($use_lazy_columns) { }
|
|
1444
|
0 |
0 |
$direct_inject ? :
|
|
1462
|
0 |
0 |
if ($outer_joins or $with_objects{$arg}) { }
|
|
1475
|
0 |
0 |
if ($use_explicit_joins) { }
|
|
1497
|
0 |
0 |
if $joins[$i] and $joins[$i]{'type'} eq 'JOIN'
|
|
1500
|
0 |
0 |
if ($rel->can('manager_args') and my $mgr_args = $rel->manager_args)
|
|
1503
|
0 |
0 |
if ($mgr_args->{'sort_by'} and !%fetch || $fetch{$tables[-1]} && !$fetch{$rel_names[-1]})
|
|
1507
|
0 |
0 |
ref $mgr_args->{'sort_by'} eq 'ARRAY' ? :
|
|
1513
|
0 |
0 |
unless ref $sort
|
|
1531
|
0 |
0 |
if (%fetch)
|
|
1540
|
0 |
0 |
unless ($fetch{$tn} or $fetch{$tables[$i]} or $fetch{$trimmed_table} or $fetch{$rel_names[$i]} or $fetch{$rel_name})
|
|
1553
|
0 |
0 |
if ($select)
|
|
1555
|
0 |
0 |
if ($fetch)
|
|
1560
|
0 |
0 |
unless ref $select
|
|
1570
|
0 |
0 |
if ref $item eq 'SCALAR'
|
|
1572
|
0 |
0 |
if (index($item, '.') < 0 and not $item =~ /\s+ AS \s+ \w+ \s* \Z/xi) { }
|
|
|
0 |
0 |
elsif ($item =~ /^t(\d+)\.(.+)$/) { }
|
|
|
0 |
0 |
elsif ($item =~ /^(['"]?)([^.(]+)\1\.(['"]?)(.+)(\3)$/) { }
|
|
1574
|
0 |
0 |
if $item eq '*'
|
|
1576
|
0 |
0 |
if $table_aliases > 0
|
|
1582
|
0 |
0 |
unless $table_aliases
|
|
1584
|
0 |
0 |
if $item =~ /^t\d+\.\*$/
|
|
1592
|
0 |
0 |
if $item =~ /^t\d+\.\*$/
|
|
1595
|
0 |
0 |
if (defined $tn)
|
|
1599
|
0 |
0 |
if ($meta->column($column) and my $alias = $meta->column($column)->alias)
|
|
1601
|
0 |
0 |
unless $alias eq $column
|
|
1607
|
0 |
0 |
if ($expand_dotstar)
|
|
1613
|
0 |
0 |
if ref $item eq 'SCALAR'
|
|
1615
|
0 |
0 |
unless ($item =~ /^(?: t(\d+)\. )? \* $/x)
|
|
1623
|
0 |
0 |
$table_aliases ? :
|
|
1627
|
0 |
0 |
if (my $alias = $column->alias) { }
|
|
1644
|
0 |
0 |
if ($count_only)
|
|
1653
|
0 |
0 |
delete $args{'distinct'} || $with_objects ? :
|
|
1655
|
0 |
0 |
if (not $use_distinct and $require_objects)
|
|
1665
|
0 |
0 |
if (index($key->type, 'many') >= 0)
|
|
1679
|
0 |
0 |
if (not $use_distinct or @$pk_columns == 1 or $db->supports_multi_column_count_distinct) { }
|
|
1685
|
0 |
0 |
$select_arg ? :
|
|
|
0 |
0 |
$use_distinct ? :
|
|
1691
|
0 |
0 |
$use_distinct ? :
|
|
1713
|
0 |
0 |
if ($wrap)
|
|
1719
|
0 |
0 |
if ($return_sql)
|
|
1721
|
0 |
0 |
if $dbh_retained
|
|
1722
|
0 |
0 |
wantarray ? :
|
|
1736
|
0 |
0 |
if $Debug
|
|
1737
|
0 |
0 |
$prepare_cached ? :
|
|
1740
|
0 |
0 |
if (@bind_params) { }
|
|
1764
|
0 |
0 |
if ($error)
|
|
1767
|
0 |
0 |
ref $error ? :
|
|
1777
|
0 |
0 |
if (my $sort_by = $args{'sort_by'}) { }
|
|
|
0 |
0 |
elsif ($num_to_many_rels > 0 and !%fetch || (keys %fetch || 0) > 3 and not $no_forced_sort) { }
|
|
1782
|
0 |
0 |
if ($table_aliases) { }
|
|
1798
|
0 |
0 |
unless ($sort =~ s/^(['"`]?)(\w+)\1(\s+(?:ASC|DESC))?$/t1.$1$2$1$3/i or $sort =~ s/\b$table_unquoted\./t$i./g)
|
|
1801
|
0 |
0 |
if (my $rel_name = $rel_name{"t$i"})
|
|
1803
|
0 |
0 |
unless $rel_name =~ /^t\d+$/
|
|
1815
|
0 |
0 |
if ($num_to_many_rels > 0 and !%fetch || (keys %fetch || 0) > 3 and not $no_forced_sort)
|
|
1821
|
0 |
0 |
if (not ref $sort and $sort =~ /^t1\./)
|
|
1828
|
0 |
0 |
if ($do_prefix)
|
|
1841
|
0 |
0 |
unless ref $sort
|
|
1858
|
0 |
0 |
if (defined $args{'offset'}) { }
|
|
|
0 |
0 |
elsif ($args{'limit'}) { }
|
|
1861
|
0 |
0 |
unless $args{'limit'} or $manual_limit
|
|
1863
|
0 |
0 |
if ($db->supports_limit_with_offset and not $manual_limit and not $subselect_limit) { }
|
|
|
0 |
0 |
elsif ($manual_limit) { }
|
|
1911
|
0 |
0 |
if ($subselect_limit)
|
|
1917
|
0 |
0 |
if ($args{'sort_by'} and $num_subtables > 0)
|
|
1923
|
0 |
0 |
ref $arg ? :
|
|
|
0 |
0 |
if index(ref $arg ? $$arg : $arg, 't1.') == 0
|
|
1942
|
0 |
0 |
unless ($columns)
|
|
1948
|
0 |
0 |
if ($multi_table) { }
|
|
1954
|
0 |
0 |
unless defined $table_aliases
|
|
1959
|
0 |
0 |
$table_aliases ? :
|
|
1962
|
0 |
0 |
$num_with_objects && scalar @{[@has_dups[1 .. $num_with_objects]];} ? :
|
|
1965
|
0 |
0 |
if $Debug
|
|
1972
|
0 |
0 |
if (@t1_bind_params)
|
|
1979
|
0 |
0 |
if ($return_sql)
|
|
1981
|
0 |
0 |
if $dbh_retained
|
|
1982
|
0 |
0 |
wantarray ? :
|
|
1995
|
0 |
0 |
if $Debug
|
|
1997
|
0 |
0 |
$prepare_cached ? :
|
|
|
0 |
0 |
unless my $sth = $prepare_cached ? $dbh->prepare_cached($sql, undef, 3) : $dbh->prepare($sql)
|
|
2002
|
0 |
0 |
if (@bind_params) { }
|
|
2024
|
0 |
0 |
if ($select) { }
|
|
2030
|
0 |
0 |
ref $orig_item eq 'SCALAR' ? :
|
|
2032
|
0 |
0 |
if ($item =~ s/\s+AS\s+(\w.+)$//i)
|
|
2037
|
0 |
0 |
if (index($item, '.') < 0) { }
|
|
|
0 |
0 |
elsif ($item =~ /^t(\d+)\.(.+)$/) { }
|
|
|
0 |
0 |
elsif ($item =~ /^(['"]?)([^.(]+)\1\.(['"]?)(.+)\3$/) { }
|
|
2068
|
0 |
0 |
if ($direct_inject) { }
|
|
2079
|
0 |
0 |
if ($key_map->{$column} eq $column) { }
|
|
2108
|
0 |
0 |
if ($return_iterator)
|
|
2118
|
0 |
0 |
if ($with_objects) { }
|
|
2122
|
0 |
0 |
if ($handle_dups) { }
|
|
2159
|
0 |
0 |
unless $sth
|
|
2166
|
0 |
0 |
unless ($seen[0]{$pk}++)
|
|
2169
|
0 |
0 |
if ($last_object)
|
|
2173
|
0 |
0 |
if ($direct_inject) { }
|
|
2208
|
0 |
0 |
if ($direct_inject) { }
|
|
2228
|
0 |
0 |
unless $object ||= $last_object
|
|
2235
|
0 |
0 |
if defined $mapped_object_method and not $mapped_object_method
|
|
2242
|
0 |
0 |
unless length $sub_pk
|
|
2246
|
0 |
0 |
unless ($subobject)
|
|
2249
|
0 |
0 |
if ($direct_inject) { }
|
|
2267
|
0 |
0 |
if ($has_dups[$i]) { }
|
|
2269
|
0 |
0 |
if ($mapped_object_methods[$i]) { }
|
|
2275
|
0 |
0 |
if ($map_record)
|
|
2277
|
0 |
0 |
unless my $method = $mapped_object_methods[$i - 1]
|
|
2279
|
0 |
0 |
if ($direct_inject) { }
|
|
2292
|
0 |
0 |
if defined $mapped_object_methods[$i]
|
|
2294
|
0 |
0 |
if ($has_dups[$i] and my $bt = $belongs_to[$i]) { }
|
|
2301
|
0 |
0 |
if ($multi_many and ref $parent_object eq 'ARRAY' and @$parent_object > 1)
|
|
2317
|
0 |
0 |
unless $check_parent->$parent_method eq $check{$map->[1]}
|
|
2327
|
0 |
0 |
if ref $parent_object eq 'ARRAY'
|
|
2333
|
0 |
0 |
if $seen{join $;, $ident, $method}{$sub_pk}++
|
|
2341
|
0 |
0 |
if $seen{join $;, $ident, $method}{$sub_pk}++
|
|
2354
|
0 |
0 |
if (my $bt = $belongs_to[$i]) { }
|
|
2360
|
0 |
0 |
if ref $parent_object eq 'ARRAY'
|
|
2370
|
0 |
0 |
if $seen{join $;, &refaddr($parent_object), $method}++
|
|
2372
|
0 |
0 |
if ($direct_inject) { }
|
|
2384
|
0 |
0 |
if ($skip_first)
|
|
2386
|
0 |
0 |
if $seen[0]{$pk} > 1
|
|
2387
|
0 |
0 |
if $seen[0]{$pk} == 1
|
|
2388
|
0 |
0 |
if $count <= $skip_first
|
|
2396
|
0 |
0 |
if ($object_is_ready)
|
|
2403
|
0 |
0 |
if ($manual_limit and $self->{'_count'} == $manual_limit)
|
|
2412
|
0 |
0 |
if ($last_object and not $object_is_ready)
|
|
2416
|
0 |
0 |
if ($direct_inject) { }
|
|
2455
|
0 |
0 |
if ($error)
|
|
2457
|
0 |
0 |
ref $error ? :
|
|
2462
|
0 |
0 |
if $skip_first
|
|
2464
|
0 |
0 |
if (@objects)
|
|
2467
|
0 |
0 |
if ($manual_limit and $self->{'_count'} == $manual_limit)
|
|
2500
|
0 |
0 |
unless ($sth->fetch)
|
|
2505
|
0 |
0 |
if $skip_first and ++$count <= $skip_first
|
|
2507
|
0 |
0 |
if ($direct_inject) { }
|
|
2522
|
0 |
0 |
if ($with_objects)
|
|
2530
|
0 |
0 |
unless grep {defined $_;} values %{$row{join $;, $class, $i};}
|
|
2534
|
0 |
0 |
if ($direct_inject) { }
|
|
2548
|
0 |
0 |
if ($direct_inject) { }
|
|
2550
|
0 |
0 |
if (my $bt = $belongs_to[$i]) { }
|
|
2561
|
0 |
0 |
if (my $bt = $belongs_to[$i]) { }
|
|
2584
|
0 |
0 |
if ($error)
|
|
2586
|
0 |
0 |
ref $error ? :
|
|
2591
|
0 |
0 |
$skip_first ? :
|
|
2613
|
0 |
0 |
unless ($sth->fetch)
|
|
2619
|
0 |
0 |
if $skip_first and ++$count <= $skip_first
|
|
2621
|
0 |
0 |
if ($direct_inject) { }
|
|
2643
|
0 |
0 |
if ($error)
|
|
2645
|
0 |
0 |
ref $error ? :
|
|
2656
|
0 |
0 |
if $sth
|
|
2657
|
0 |
0 |
if $db and $dbh_retained
|
|
2664
|
0 |
0 |
if $db and $dbh_retained
|
|
2674
|
0 |
0 |
if ($with_objects) { }
|
|
2678
|
0 |
0 |
if ($handle_dups) { }
|
|
2703
|
0 |
0 |
unless ($seen[0]{$pk}++)
|
|
2706
|
0 |
0 |
if ($last_object)
|
|
2708
|
0 |
0 |
if ($direct_inject) { }
|
|
2737
|
0 |
0 |
if (not $skip_first and $manual_limit and @objects == $manual_limit)
|
|
2744
|
0 |
0 |
if ($direct_inject) { }
|
|
2764
|
0 |
0 |
unless $object ||= $last_object
|
|
2771
|
0 |
0 |
if defined $mapped_object_method and not $mapped_object_method
|
|
2778
|
0 |
0 |
unless length $sub_pk
|
|
2782
|
0 |
0 |
unless ($subobject)
|
|
2785
|
0 |
0 |
if ($direct_inject) { }
|
|
2803
|
0 |
0 |
if ($has_dups[$i]) { }
|
|
2805
|
0 |
0 |
if ($mapped_object_method) { }
|
|
2811
|
0 |
0 |
if ($map_record)
|
|
2813
|
0 |
0 |
unless my $method = $mapped_object_methods[$i - 1]
|
|
2815
|
0 |
0 |
if ($direct_inject) { }
|
|
2828
|
0 |
0 |
if defined $mapped_object_methods[$i]
|
|
2830
|
0 |
0 |
if ($has_dups[$i] and my $bt = $belongs_to[$i]) { }
|
|
2837
|
0 |
0 |
if ($multi_many and ref $parent_object eq 'ARRAY' and @$parent_object > 1)
|
|
2853
|
0 |
0 |
unless $check_parent->$parent_method eq $check{$map->[1]}
|
|
2863
|
0 |
0 |
if ref $parent_object eq 'ARRAY'
|
|
2869
|
0 |
0 |
if $seen{join $;, $ident, $method}{$sub_pk}++
|
|
2877
|
0 |
0 |
if $seen{join $;, $ident, $method}{$sub_pk}++
|
|
2891
|
0 |
0 |
if (my $bt = $belongs_to[$i]) { }
|
|
2896
|
0 |
0 |
if ref $parent_object eq 'ARRAY'
|
|
2906
|
0 |
0 |
if $seen{join $;, &refaddr($parent_object), $method}++
|
|
2908
|
0 |
0 |
if ($direct_inject) { }
|
|
2920
|
0 |
0 |
if ($skip_first)
|
|
2922
|
0 |
0 |
if $seen[0]{$pk} > 1
|
|
2923
|
0 |
0 |
if @objects < $skip_first
|
|
2933
|
0 |
0 |
if ($last_object and not $skip_first)
|
|
2935
|
0 |
0 |
if ($direct_inject) { }
|
|
2958
|
0 |
0 |
unless ($manual_limit and @objects >= $manual_limit)
|
|
2964
|
0 |
0 |
if $skip_first
|
|
2968
|
0 |
0 |
if ($skip_first)
|
|
2972
|
0 |
0 |
if ++$count < $skip_first
|
|
2981
|
0 |
0 |
if ($direct_inject) { }
|
|
3002
|
0 |
0 |
unless grep {defined $_;} values %{$row{join $;, $class, $i};}
|
|
3006
|
0 |
0 |
if ($direct_inject) { }
|
|
3020
|
0 |
0 |
if ($direct_inject) { }
|
|
3022
|
0 |
0 |
if (my $bt = $belongs_to[$i]) { }
|
|
3033
|
0 |
0 |
if (my $bt = $belongs_to[$i]) { }
|
|
3052
|
0 |
0 |
if ($skip_first)
|
|
3056
|
0 |
0 |
if ++$count < $skip_first
|
|
3061
|
0 |
0 |
if ($direct_inject) { }
|
|
3091
|
0 |
0 |
if $iterator
|
|
3093
|
0 |
0 |
if $dbh_retained
|
|
3095
|
0 |
0 |
if ($error)
|
|
3097
|
0 |
0 |
ref $error ? :
|
|
3113
|
0 |
0 |
unless ($object->$action)
|
|
3130
|
0 |
0 |
if (ref $_[1]) { }
|
|
3134
|
0 |
0 |
if (ref $_[0] eq 'HASH') { }
|
|
|
0 |
0 |
elsif (ref $_[0] eq 'ARRAY') { }
|
|
3153
|
0 |
0 |
unless my $object_class = $args{'object_class'} || $class->object_class
|
|
3159
|
0 |
0 |
exists $args{'prepare_cached'} ? :
|
|
3166
|
0 |
0 |
unless ($dbh)
|
|
3168
|
0 |
0 |
unless ($dbh = $db->retain_dbh)
|
|
3181
|
0 |
0 |
unless ($args{'query'} and @{$args{'query'};} or $args{'clauses'} and @{$args{'clauses'};} or delete $args{'all'})
|
|
3191
|
0 |
0 |
if ($args{'query'} and @{$args{'query'};} and $args{'all'})
|
|
3206
|
0 |
0 |
$where ? :
|
|
3218
|
0 |
0 |
if $Debug
|
|
3221
|
0 |
0 |
$prepare_cached ? :
|
|
|
0 |
0 |
unless my $sth = $prepare_cached ? $dbh->prepare_cached($sql, undef, 3) : $dbh->prepare($sql)
|
|
3224
|
0 |
0 |
if (@bind_params) { }
|
|
3247
|
0 |
0 |
if ($error)
|
|
3249
|
0 |
0 |
ref $error ? :
|
|
3263
|
0 |
0 |
unless my $object_class = $args{'object_class'} || $class->object_class
|
|
3269
|
0 |
0 |
exists $args{'prepare_cached'} ? :
|
|
3276
|
0 |
0 |
unless ($dbh)
|
|
3278
|
0 |
0 |
unless ($dbh = $db->retain_dbh)
|
|
3289
|
0 |
0 |
unless ($args{'where'} and @{$args{'where'};} or delete $args{'all'})
|
|
3296
|
0 |
0 |
if ($args{'where'} and @{$args{'where'};} and $args{'all'})
|
|
3302
|
0 |
0 |
unless my $set = delete $args{'set'}
|
|
3305
|
0 |
0 |
if ref $set eq 'HASH'
|
|
3328
|
0 |
0 |
if ($args{'query'} = $where) { }
|
|
3355
|
0 |
0 |
if $Debug
|
|
3358
|
0 |
0 |
$prepare_cached ? :
|
|
|
0 |
0 |
unless my $sth = $prepare_cached ? $dbh->prepare_cached($sql, undef, 3) : $dbh->prepare($sql)
|
|
3361
|
0 |
0 |
if (@bind_params) { }
|
|
3384
|
0 |
0 |
if ($error)
|
|
3386
|
0 |
0 |
ref $error ? :
|
|
3400
|
0 |
0 |
if (@_ == 2) { }
|
|
3408
|
0 |
0 |
unless my $method = delete $args{'method'}
|
|
3413
|
0 |
0 |
$args{'iterator'} ? :
|
|
3416
|
0 |
0 |
if ($named_args) { }
|
|
3446
|
0 |
0 |
if (@_ == 1) { }
|
|
3453
|
0 |
0 |
unless $sql
|
|
3458
|
0 |
0 |
unless my $meta = $object_class->meta
|
|
3462
|
0 |
0 |
exists $args{'prepare_cached'} ? :
|
|
3469
|
0 |
0 |
$args{'_methods'} && %{$args{'_methods'};} ? :
|
|
3475
|
0 |
0 |
unless ($dbh)
|
|
3477
|
0 |
0 |
unless ($dbh = $db->retain_dbh)
|
|
3489
|
0 |
0 |
exists $args{'share_db'} ? :
|
|
|
0 |
0 |
(exists $args{'share_db'} ? $args{'share_db'} : 1) ? :
|
|
3502
|
0 |
0 |
if $Debug
|
|
3503
|
0 |
0 |
$prepare_cached ? :
|
|
|
0 |
0 |
unless my $sth = $prepare_cached ? $dbh->prepare_cached($sql, $attr, 3) : $dbh->prepare($sql, $attr)
|
|
3510
|
0 |
0 |
unless ($have_methods)
|
|
3514
|
0 |
0 |
if ($meta->column($col)) { }
|
|
|
0 |
0 |
elsif ($object_class->can($col)) { }
|
|
|
0 |
0 |
elsif ($meta->column(lc $col)) { }
|
|
|
0 |
0 |
elsif ($object_class->can(lc $col)) { }
|
|
3555
|
0 |
0 |
if $dbh_retained
|
|
3557
|
0 |
0 |
if ($error)
|
|
3560
|
0 |
0 |
ref $error ? :
|
|
3574
|
0 |
0 |
if (@_ == 1) { }
|
|
3581
|
0 |
0 |
unless $sql
|
|
3590
|
0 |
0 |
exists $args{'prepare_cached'} ? :
|
|
3597
|
0 |
0 |
$args{'_methods'} && %{$args{'_methods'};} ? :
|
|
3603
|
0 |
0 |
unless ($dbh)
|
|
3605
|
0 |
0 |
unless ($dbh = $db->retain_dbh)
|
|
3617
|
0 |
0 |
exists $args{'share_db'} ? :
|
|
|
0 |
0 |
(exists $args{'share_db'} ? $args{'share_db'} : 1) ? :
|
|
3630
|
0 |
0 |
if $Debug
|
|
3631
|
0 |
0 |
$prepare_cached ? :
|
|
|
0 |
0 |
unless $sth = $prepare_cached ? $dbh->prepare_cached($sql, $attr, 3) : $dbh->prepare($sql, $attr)
|
|
3640
|
0 |
0 |
if ($error)
|
|
3642
|
0 |
0 |
if $dbh_retained
|
|
3644
|
0 |
0 |
ref $error ? :
|
|
3667
|
0 |
0 |
unless my $row = $sth->fetchrow_hashref
|
|
3669
|
0 |
0 |
unless ($have_methods)
|
|
3673
|
0 |
0 |
if ($meta->column($col)) { }
|
|
|
0 |
0 |
elsif ($object_class->can($col)) { }
|
|
|
0 |
0 |
elsif ($meta->column(lc $col)) { }
|
|
|
0 |
0 |
elsif ($object_class->can(lc $col)) { }
|
|
3715
|
0 |
0 |
if ($error)
|
|
3717
|
0 |
0 |
ref $error ? :
|
|
3727
|
0 |
0 |
if $sth
|
|
3728
|
0 |
0 |
if $db and $dbh_retained
|
|
3735
|
0 |
0 |
if $db and $dbh_retained
|