| line |
true |
false |
branch |
|
40
|
180 |
11 |
$args->{'column'} ? :
|
|
42
|
13 |
178 |
if $type eq 'integer'
|
|
46
|
0 |
191 |
if (exists $args->{'with_init'} or exists $args->{'init_method'})
|
|
65
|
180 |
11 |
$args->{'column'} ? :
|
|
|
0 |
191 |
($args->{'column'} ? $args->{'column'}->nonpersistent : 0) ? :
|
|
68
|
191 |
0 |
!$undef_overrides_default ? :
|
|
81
|
0 |
191 |
if ($check_in)
|
|
83
|
0 |
0 |
unless ref $check_in
|
|
101
|
8 |
183 |
if ($length)
|
|
103
|
0 |
8 |
unless ($length =~ /^\d+$/)
|
|
109
|
2 |
6 |
if ($overflow eq 'fatal') { }
|
|
|
0 |
6 |
elsif ($overflow eq 'warn') { }
|
|
|
2 |
4 |
elsif ($overflow eq 'truncate') { }
|
|
|
0 |
4 |
elsif (defined $overflow) { }
|
|
116
|
0 |
2 |
$length == 1 ? :
|
|
129
|
0 |
0 |
$length == 1 ? :
|
|
157
|
4 |
187 |
if ($type eq 'character') { }
|
|
181
|
2 |
189 |
if (defined $default) { }
|
|
|
0 |
189 |
elsif (defined $init_method) { }
|
|
183
|
0 |
2 |
if ($type eq 'character') { }
|
|
212
|
0 |
0 |
if ($type eq 'character') { }
|
|
248
|
0 |
191 |
$smart ? :
|
|
251
|
0 |
191 |
$smart ? :
|
|
256
|
0 |
191 |
if ($smart) { }
|
|
258
|
0 |
0 |
$type eq 'integer' ? :
|
|
269
|
0 |
191 |
if ($smart) { }
|
|
271
|
0 |
0 |
$type eq 'integer' ? :
|
|
282
|
185 |
6 |
if ($interface eq 'get_set') { }
|
|
|
3 |
3 |
elsif ($interface eq 'get') { }
|
|
|
3 |
0 |
elsif ($interface eq 'set') { }
|
|
287
|
2 |
183 |
if (defined $default or defined $init_method) { }
|
|
340
|
0 |
185 |
if $Debug
|
|
345
|
0 |
185 |
if ($error)
|
|
356
|
0 |
3 |
if (defined $default or defined $init_method) { }
|
|
370
|
0 |
3 |
if $Debug
|
|
375
|
0 |
3 |
if ($error)
|
|
409
|
0 |
3 |
if $Debug
|
|
414
|
0 |
3 |
if ($error)
|
|
432
|
1 |
0 |
$args->{'column'} ? :
|
|
438
|
1 |
0 |
unless (ref $values and @$values)
|
|
449
|
1 |
0 |
if $default eq '' and not $values{$default}
|
|
451
|
1 |
0 |
if (exists $args->{'default'})
|
|
453
|
1 |
1 |
unless (exists $values{$default})
|
|
459
|
1 |
0 |
$args->{'column'} ? :
|
|
|
1 |
1 |
($args->{'column'} ? $args->{'column'}->nonpersistent : 0) ? :
|
|
464
|
0 |
0 |
if ($interface eq 'get_set') { }
|
|
|
0 |
0 |
elsif ($interface eq 'set') { }
|
|
|
0 |
0 |
elsif ($interface eq 'get') { }
|
|
466
|
1 |
0 |
if (exists $args->{'default'}) { }
|
|
|
1 |
1 |
elsif (exists $args->{'with_init'} or exists $args->{'init_method'}) { }
|
|
472
|
1 |
0 |
if (@_)
|
|
474
|
1 |
0 |
unless not defined $_[0] or exists $values{$_[0]}
|
|
475
|
1 |
1 |
unless $self->{'__xrdbopriv_loading'}
|
|
479
|
0 |
0 |
if (defined $self->{$key} or $undef_overrides_default and $self->{'__xrdbopriv_modified_columns'}{$column_name} || $self->{'__xrdbopriv_in_db'} && !($self->{'__xrdbopriv_set_columns'}{$column_name} || $self->{$mod_columns_key}{$column_name})) { }
|
|
499
|
1 |
0 |
if (@_)
|
|
501
|
0 |
0 |
unless not defined $_[0] or exists $values{$_[0]}
|
|
506
|
1 |
0 |
if (defined $self->{$key} or $undef_overrides_default and $self->{$mod_columns_key}{$column_name} || $self->{'__xrdbopriv_in_db'} && !($self->{'__xrdbopriv_set_columns'}{$column_name} || $self->{$mod_columns_key}{$column_name})) { }
|
|
524
|
1 |
1 |
if (@_)
|
|
526
|
0 |
0 |
unless not defined $_[0] or exists $values{$_[0]}
|
|
527
|
1 |
0 |
unless $self->{'__xrdbopriv_loading'}
|
|
541
|
1 |
0 |
unless @_
|
|
542
|
1 |
1 |
unless not defined $_[0] or exists $values{$_[0]}
|
|
543
|
1 |
0 |
unless $self->{'__xrdbopriv_loading'}
|
|
549
|
0 |
0 |
if (exists $args->{'default'}) { }
|
|
|
0 |
0 |
elsif (exists $args->{'with_init'} or exists $args->{'init_method'}) { }
|
|
555
|
1 |
0 |
if (defined $self->{$key} or $undef_overrides_default and $self->{$mod_columns_key}{$column_name} || $self->{'__xrdbopriv_in_db'} && !($self->{'__xrdbopriv_set_columns'}{$column_name} || $self->{$mod_columns_key}{$column_name})) { }
|
|
576
|
0 |
0 |
defined $self->{$key} ? :
|
|
586
|
0 |
0 |
if ($Debug > 1)
|
|
623
|
7 |
3 |
$args->{'column'} ? :
|
|
629
|
7 |
3 |
$args->{'column'} ? :
|
|
|
0 |
10 |
($args->{'column'} ? $args->{'column'}->nonpersistent : 0) ? :
|
|
634
|
8 |
2 |
if ($interface eq 'get_set') { }
|
|
|
1 |
1 |
elsif ($interface eq 'get') { }
|
|
|
1 |
0 |
elsif ($interface eq 'set') { }
|
|
638
|
3 |
5 |
if (defined $default) { }
|
|
640
|
3 |
0 |
$default ? :
|
|
|
0 |
3 |
$default =~ /^(?:0(?:\.0*)?|f(?:alse)?|no?)$/ ? :
|
|
646
|
0 |
0 |
unless my $db = $self->db
|
|
649
|
0 |
0 |
if (@_)
|
|
654
|
0 |
0 |
if ($self->{'__xrdbopriv_loading'}) { }
|
|
661
|
0 |
0 |
if ($value =~ /^(?:1(?:\.0*)?|t(?:rue)?|y(?:es)?)$/i) { }
|
|
|
0 |
0 |
elsif ($value =~ /^(?:0(?:\.0*)?|f(?:alse)?|no?)$/i) { }
|
|
|
0 |
0 |
elsif ($value) { }
|
|
676
|
0 |
0 |
unless defined $value
|
|
685
|
0 |
0 |
defined $value ? :
|
|
691
|
0 |
0 |
unless (defined $self->{$key} or defined $$self{join $;, $formatted_key, $driver} or $undef_overrides_default and $self->{$mod_columns_key}{$column_name} || $self->{'__xrdbopriv_in_db'} && !($self->{'__xrdbopriv_set_columns'}{$column_name} || $self->{$mod_columns_key}{$column_name}))
|
|
699
|
0 |
0 |
if ($self->{'__xrdbopriv_saving'})
|
|
702
|
0 |
0 |
unless defined $$self{join $;, $formatted_key, $driver} or not defined $self->{$key}
|
|
707
|
0 |
0 |
if (not defined $self->{$key} and defined $$self{join $;, $formatted_key, $driver})
|
|
712
|
0 |
0 |
if (defined $self->{$key} or $undef_overrides_default and $self->{$mod_columns_key}{$column_name} || $self->{'__xrdbopriv_in_db'} && !($self->{'__xrdbopriv_set_columns'}{$column_name} || $self->{$mod_columns_key}{$column_name})) { }
|
|
729
|
0 |
0 |
unless my $db = $self->db
|
|
732
|
0 |
0 |
if (@_)
|
|
737
|
0 |
0 |
if ($self->{'__xrdbopriv_loading'}) { }
|
|
744
|
0 |
0 |
if ($value =~ /^(?:1(?:\.0*)?|t(?:rue)?|y(?:es)?)$/i) { }
|
|
|
0 |
0 |
elsif ($value =~ /^(?:0(?:\.0*)?|f(?:alse)?|no?)$/i) { }
|
|
|
0 |
0 |
elsif ($value) { }
|
|
759
|
0 |
0 |
unless defined $value
|
|
768
|
0 |
0 |
defined $value ? :
|
|
774
|
0 |
0 |
defined $_[0] ? :
|
|
777
|
0 |
0 |
if ($self->{'__xrdbopriv_saving'})
|
|
780
|
0 |
0 |
unless defined $$self{join $;, $formatted_key, $driver} or not defined $self->{$key}
|
|
785
|
0 |
0 |
if (not defined $self->{$key} and defined $$self{join $;, $formatted_key, $driver})
|
|
798
|
0 |
1 |
if (defined $default) { }
|
|
800
|
0 |
0 |
$default ? :
|
|
|
0 |
0 |
$default =~ /^(?:0(?:\.0*)?|f(?:alse)?|no?)$/ ? :
|
|
806
|
0 |
0 |
unless my $db = $self->db
|
|
810
|
0 |
0 |
unless (defined $self->{$key} or defined $$self{join $;, $formatted_key, $driver} or $undef_overrides_default and $self->{$mod_columns_key}{$column_name} || $self->{'__xrdbopriv_in_db'} && !($self->{'__xrdbopriv_set_columns'}{$column_name} || $self->{$mod_columns_key}{$column_name}))
|
|
818
|
0 |
0 |
if ($self->{'__xrdbopriv_saving'})
|
|
821
|
0 |
0 |
unless defined $$self{join $;, $formatted_key, $driver} or not defined $self->{$key}
|
|
826
|
0 |
0 |
if (not defined $self->{$key} and defined $$self{join $;, $formatted_key, $driver})
|
|
831
|
0 |
0 |
if (defined $self->{$key} or $undef_overrides_default and $self->{$mod_columns_key}{$column_name} || $self->{'__xrdbopriv_in_db'} && !($self->{'__xrdbopriv_set_columns'}{$column_name} || $self->{$mod_columns_key}{$column_name})) { }
|
|
848
|
0 |
0 |
unless my $db = $self->db
|
|
851
|
0 |
0 |
if ($self->{'__xrdbopriv_saving'})
|
|
854
|
0 |
0 |
unless defined $$self{join $;, $formatted_key, $driver} or not defined $self->{$key}
|
|
859
|
0 |
0 |
if (not defined $self->{$key} and defined $$self{join $;, $formatted_key, $driver})
|
|
874
|
0 |
0 |
unless @_
|
|
875
|
0 |
0 |
unless my $db = $self->db
|
|
880
|
0 |
0 |
if ($self->{'__xrdbopriv_loading'}) { }
|
|
887
|
0 |
0 |
if ($value =~ /^(?:1(?:\.0*)?|t(?:rue)?|y(?:es)?)$/i) { }
|
|
|
0 |
0 |
elsif ($value =~ /^(?:0(?:\.0*)?|f(?:alse)?|no?)$/i) { }
|
|
|
0 |
0 |
elsif ($value) { }
|
|
902
|
0 |
0 |
unless defined $value
|
|
911
|
0 |
0 |
defined $value ? :
|
|
928
|
5 |
3 |
$args->{'column'} ? :
|
|
932
|
5 |
3 |
$args->{'column'} ? :
|
|
|
0 |
8 |
($args->{'column'} ? $args->{'column'}->nonpersistent : 0) ? :
|
|
937
|
6 |
2 |
if ($interface eq 'get_set') { }
|
|
|
1 |
1 |
elsif ($interface eq 'get') { }
|
|
|
1 |
0 |
elsif ($interface eq 'set') { }
|
|
944
|
2 |
4 |
if (defined $default) { }
|
|
950
|
0 |
0 |
unless my $db = $self->db
|
|
953
|
0 |
0 |
if (@_)
|
|
955
|
0 |
0 |
if ($self->{'__xrdbopriv_loading'}) { }
|
|
964
|
0 |
0 |
if (not defined $_[0] or defined $self->{$key}) { }
|
|
976
|
0 |
0 |
unless defined wantarray
|
|
979
|
0 |
0 |
unless (defined $self->{$key} or defined $$self{join $;, $formatted_key, $driver} or $undef_overrides_default and $self->{$mod_columns_key}{$column_name} || $self->{'__xrdbopriv_in_db'} && !($self->{'__xrdbopriv_set_columns'}{$column_name} || $self->{$mod_columns_key}{$column_name}))
|
|
985
|
0 |
0 |
if (not defined $default or defined $self->{$key}) { }
|
|
995
|
0 |
0 |
if ($self->{'__xrdbopriv_saving'})
|
|
998
|
0 |
0 |
unless defined $$self{join $;, $formatted_key, $driver} or not defined $self->{$key}
|
|
1003
|
0 |
0 |
if (defined $self->{$key})
|
|
1009
|
0 |
0 |
if (defined $$self{join $;, $formatted_key, $driver})
|
|
1025
|
0 |
0 |
unless my $db = $self->db
|
|
1028
|
0 |
0 |
if (@_)
|
|
1030
|
0 |
0 |
if ($self->{'__xrdbopriv_loading'}) { }
|
|
1039
|
0 |
0 |
if (not defined $_[0] or defined $self->{$key}) { }
|
|
1051
|
0 |
0 |
if ($self->{'__xrdbopriv_saving'})
|
|
1053
|
0 |
0 |
unless defined $$self{join $;, $formatted_key, $driver} or defined $self->{$key}
|
|
1056
|
0 |
0 |
unless defined $$self{join $;, $formatted_key, $driver} or not defined $self->{$key}
|
|
1061
|
0 |
0 |
unless defined wantarray
|
|
1063
|
0 |
0 |
if (defined $self->{$key})
|
|
1069
|
0 |
0 |
if (defined $$self{join $;, $formatted_key, $driver})
|
|
1079
|
1 |
3 |
if ($args->{'with_intersects'})
|
|
1087
|
0 |
0 |
unless my $val = $self->{$key}
|
|
1089
|
0 |
0 |
unless (ref $vec)
|
|
1091
|
0 |
0 |
unless my $db = $self->db
|
|
1093
|
0 |
0 |
unless defined $vec
|
|
1096
|
0 |
0 |
if $vec->Size != $size
|
|
1100
|
0 |
0 |
$test->to_Bin > 0 ? :
|
|
1112
|
0 |
1 |
if (defined $default) { }
|
|
1118
|
0 |
0 |
unless my $db = $self->db
|
|
1121
|
0 |
0 |
unless (defined $self->{$key} or defined $$self{join $;, $formatted_key, $driver} or $undef_overrides_default and $self->{$mod_columns_key}{$column_name} || $self->{'__xrdbopriv_in_db'} && !($self->{'__xrdbopriv_set_columns'}{$column_name} || $self->{$mod_columns_key}{$column_name}))
|
|
1127
|
0 |
0 |
if (not defined $default or defined $self->{$key}) { }
|
|
1137
|
0 |
0 |
if ($self->{'__xrdbopriv_saving'})
|
|
1140
|
0 |
0 |
unless defined $$self{join $;, $formatted_key, $driver} or not defined $self->{$key}
|
|
1145
|
0 |
0 |
unless defined wantarray
|
|
1147
|
0 |
0 |
if (defined $self->{$key})
|
|
1153
|
0 |
0 |
if (defined $$self{join $;, $formatted_key, $driver})
|
|
1169
|
0 |
0 |
unless my $db = $self->db
|
|
1172
|
0 |
0 |
if ($self->{'__xrdbopriv_saving'})
|
|
1174
|
0 |
0 |
unless defined $$self{join $;, $formatted_key, $driver} or defined $self->{$key}
|
|
1177
|
0 |
0 |
unless defined $$self{join $;, $formatted_key, $driver} or not defined $self->{$key}
|
|
1182
|
0 |
0 |
unless defined wantarray
|
|
1184
|
0 |
0 |
if (defined $self->{$key})
|
|
1190
|
0 |
0 |
if (defined $$self{join $;, $formatted_key, $driver})
|
|
1211
|
0 |
0 |
unless my $db = $self->db
|
|
1214
|
0 |
0 |
unless @_
|
|
1216
|
0 |
0 |
if ($self->{'__xrdbopriv_loading'}) { }
|
|
1225
|
0 |
0 |
if (not defined $_[0] or defined $self->{$key}) { }
|
|
1236
|
0 |
0 |
if ($self->{'__xrdbopriv_saving'})
|
|
1238
|
0 |
0 |
unless defined $$self{join $;, $formatted_key, $driver} or defined $self->{$key}
|
|
1241
|
0 |
0 |
unless defined $$self{join $;, $formatted_key, $driver} or not defined $self->{$key}
|
|
1246
|
0 |
0 |
if (defined $self->{$key})
|
|
1252
|
0 |
0 |
if (defined $$self{join $;, $formatted_key, $driver})
|
|
1274
|
2 |
3 |
$args->{'column'} ? :
|
|
1280
|
2 |
3 |
$args->{'column'} ? :
|
|
|
0 |
5 |
($args->{'column'} ? $args->{'column'}->nonpersistent : 0) ? :
|
|
1285
|
3 |
2 |
if ($interface eq 'get_set') { }
|
|
|
1 |
1 |
elsif ($interface eq 'get') { }
|
|
|
1 |
0 |
elsif ($interface eq 'set') { }
|
|
1289
|
0 |
3 |
if (defined $default) { }
|
|
1295
|
0 |
0 |
unless my $db = $self->db
|
|
1298
|
0 |
0 |
if (@_) { }
|
|
|
0 |
0 |
elsif (not defined $self->{$key}) { }
|
|
1300
|
0 |
0 |
if ($self->{'__xrdbopriv_loading'}) { }
|
|
1302
|
0 |
0 |
if (ref $_[0] eq 'ARRAY') { }
|
|
1317
|
0 |
0 |
if (not defined $_[0] or defined $self->{$key}) { }
|
|
1330
|
0 |
0 |
unless (not defined $$self{join $;, $formatted_key, $driver} and $undef_overrides_default and $self->{$mod_columns_key}{$column_name} || $self->{'__xrdbopriv_in_db'} && !($self->{'__xrdbopriv_set_columns'}{$column_name} || $self->{$mod_columns_key}{$column_name}))
|
|
1335
|
0 |
0 |
defined $$self{join $;, $formatted_key, $driver} ? :
|
|
1337
|
0 |
0 |
if (not defined $default or defined $self->{$key}) { }
|
|
1349
|
0 |
0 |
unless defined wantarray
|
|
1352
|
0 |
0 |
unless (defined $self->{$key} or defined $$self{join $;, $formatted_key, $driver} or $undef_overrides_default and $self->{$mod_columns_key}{$column_name} || $self->{'__xrdbopriv_in_db'} && !($self->{'__xrdbopriv_set_columns'}{$column_name} || $self->{$mod_columns_key}{$column_name}))
|
|
1358
|
0 |
0 |
if (not defined $default or defined $self->{$key}) { }
|
|
1369
|
0 |
0 |
if ($self->{'__xrdbopriv_saving'})
|
|
1372
|
0 |
0 |
unless defined $$self{join $;, $formatted_key, $driver} or not defined $self->{$key}
|
|
1377
|
0 |
0 |
wantarray ? :
|
|
|
0 |
0 |
defined $self->{$key} ? :
|
|
1386
|
0 |
0 |
unless my $db = $self->db
|
|
1389
|
0 |
0 |
if (@_)
|
|
1391
|
0 |
0 |
if ($self->{'__xrdbopriv_loading'}) { }
|
|
1393
|
0 |
0 |
if (ref $_[0] eq 'ARRAY') { }
|
|
1408
|
0 |
0 |
if (not defined $_[0] or defined $self->{$key}) { }
|
|
1420
|
0 |
0 |
if ($self->{'__xrdbopriv_saving'})
|
|
1422
|
0 |
0 |
unless defined $$self{join $;, $formatted_key, $driver} or defined $self->{$key}
|
|
1425
|
0 |
0 |
unless defined $$self{join $;, $formatted_key, $driver} or not defined $self->{$key}
|
|
1430
|
0 |
0 |
unless defined wantarray
|
|
1432
|
0 |
0 |
if (defined $self->{$key})
|
|
1435
|
0 |
0 |
wantarray ? :
|
|
1438
|
0 |
0 |
if (defined $$self{join $;, $formatted_key, $driver})
|
|
1443
|
0 |
0 |
wantarray ? :
|
|
|
0 |
0 |
defined $self->{$key} ? :
|
|
1454
|
0 |
1 |
if (defined $default) { }
|
|
1460
|
0 |
0 |
unless my $db = $self->db
|
|
1463
|
0 |
0 |
unless (defined $self->{$key} or $self->{'__xrdbopriv_saving'} and defined $$self{join $;, $formatted_key, $driver})
|
|
1465
|
0 |
0 |
unless (not defined $default or $undef_overrides_default and $self->{$mod_columns_key}{$column_name} || $self->{'__xrdbopriv_in_db'} && !($self->{'__xrdbopriv_set_columns'}{$column_name} || $self->{$mod_columns_key}{$column_name}))
|
|
1471
|
0 |
0 |
if (not defined $default or defined $self->{$key}) { }
|
|
1483
|
0 |
0 |
if ($self->{'__xrdbopriv_saving'})
|
|
1486
|
0 |
0 |
unless defined $$self{join $;, $formatted_key, $driver} or not defined $self->{$key}
|
|
1491
|
0 |
0 |
unless defined wantarray
|
|
1493
|
0 |
0 |
if (defined $self->{$key})
|
|
1496
|
0 |
0 |
wantarray ? :
|
|
1499
|
0 |
0 |
if (defined $$self{join $;, $formatted_key, $driver})
|
|
1504
|
0 |
0 |
wantarray ? :
|
|
|
0 |
0 |
defined $self->{$key} ? :
|
|
1516
|
0 |
0 |
unless my $db = $self->db
|
|
1519
|
0 |
0 |
if ($self->{'__xrdbopriv_saving'})
|
|
1521
|
0 |
0 |
unless defined $$self{join $;, $formatted_key, $driver} or defined $self->{$key}
|
|
1524
|
0 |
0 |
unless defined $$self{join $;, $formatted_key, $driver} or not defined $self->{$key}
|
|
1529
|
0 |
0 |
unless defined wantarray
|
|
1531
|
0 |
0 |
if (defined $self->{$key})
|
|
1534
|
0 |
0 |
wantarray ? :
|
|
1537
|
0 |
0 |
if (defined $$self{join $;, $formatted_key, $driver})
|
|
1542
|
0 |
0 |
wantarray ? :
|
|
|
0 |
0 |
defined $self->{$key} ? :
|
|
1555
|
0 |
0 |
unless my $db = $self->db
|
|
1558
|
0 |
0 |
unless @_
|
|
1560
|
0 |
0 |
if ($self->{'__xrdbopriv_loading'}) { }
|
|
1562
|
0 |
0 |
if (ref $_[0] eq 'ARRAY') { }
|
|
1577
|
0 |
0 |
if (not defined $_[0] or defined $self->{$key}) { }
|
|
1588
|
0 |
0 |
if ($self->{'__xrdbopriv_saving'})
|
|
1590
|
0 |
0 |
unless defined $$self{join $;, $formatted_key, $driver} or defined $self->{$key}
|
|
1593
|
0 |
0 |
unless defined $$self{join $;, $formatted_key, $driver} or not defined $self->{$key}
|
|
1598
|
0 |
0 |
if (defined $self->{$key})
|
|
1601
|
0 |
0 |
wantarray ? :
|
|
1604
|
0 |
0 |
if (defined $$self{join $;, $formatted_key, $driver})
|
|
1609
|
0 |
0 |
wantarray ? :
|
|
|
0 |
0 |
defined $self->{$key} ? :
|
|
1627
|
0 |
3 |
$args->{'column'} ? :
|
|
1629
|
0 |
3 |
$choices ? :
|
|
1637
|
0 |
3 |
$args->{'column'} ? :
|
|
|
0 |
3 |
($args->{'column'} ? $args->{'column'}->nonpersistent : 0) ? :
|
|
1642
|
1 |
2 |
if ($interface eq 'get_set') { }
|
|
|
1 |
1 |
elsif ($interface eq 'get') { }
|
|
|
1 |
0 |
elsif ($interface eq 'set') { }
|
|
1646
|
0 |
1 |
if (defined $default) { }
|
|
1652
|
0 |
0 |
unless my $db = $self->db
|
|
1655
|
0 |
0 |
if (@_) { }
|
|
|
0 |
0 |
elsif (not defined $self->{$key}) { }
|
|
1657
|
0 |
0 |
if ($self->{'__xrdbopriv_loading'}) { }
|
|
1666
|
0 |
0 |
if ($choices)
|
|
1671
|
0 |
0 |
unless exists $choices{$val}
|
|
1677
|
0 |
0 |
if (not defined $_[0] or defined $self->{$key}) { }
|
|
1690
|
0 |
0 |
unless (not defined $$self{join $;, $formatted_key, $driver} and $undef_overrides_default and $self->{$mod_columns_key}{$column_name} || $self->{'__xrdbopriv_in_db'} && !($self->{'__xrdbopriv_set_columns'}{$column_name} || $self->{$mod_columns_key}{$column_name}))
|
|
1695
|
0 |
0 |
defined $$self{join $;, $formatted_key, $driver} ? :
|
|
1698
|
0 |
0 |
if ($choices)
|
|
1703
|
0 |
0 |
unless exists $choices{$val}
|
|
1709
|
0 |
0 |
if (not defined $default or defined $self->{$key}) { }
|
|
1720
|
0 |
0 |
unless defined wantarray
|
|
1723
|
0 |
0 |
unless (defined $self->{$key} or defined $$self{join $;, $formatted_key, $driver} or $undef_overrides_default and $self->{$mod_columns_key}{$column_name} || $self->{'__xrdbopriv_in_db'} && !($self->{'__xrdbopriv_set_columns'}{$column_name} || $self->{$mod_columns_key}{$column_name}))
|
|
1729
|
0 |
0 |
if (not defined $default or defined $self->{$key}) { }
|
|
1740
|
0 |
0 |
if ($self->{'__xrdbopriv_saving'})
|
|
1743
|
0 |
0 |
unless defined $$self{join $;, $formatted_key, $driver} or not defined $self->{$key}
|
|
1748
|
0 |
0 |
wantarray ? :
|
|
|
0 |
0 |
defined $self->{$key} ? :
|
|
1757
|
0 |
0 |
unless my $db = $self->db
|
|
1760
|
0 |
0 |
if (@_)
|
|
1762
|
0 |
0 |
if ($self->{'__xrdbopriv_loading'}) { }
|
|
1771
|
0 |
0 |
if ($choices)
|
|
1776
|
0 |
0 |
unless exists $choices{$val}
|
|
1782
|
0 |
0 |
if (not defined $_[0] or defined $self->{$key}) { }
|
|
1794
|
0 |
0 |
if ($self->{'__xrdbopriv_saving'})
|
|
1796
|
0 |
0 |
unless defined $$self{join $;, $formatted_key, $driver} or defined $self->{$key}
|
|
1799
|
0 |
0 |
unless defined $$self{join $;, $formatted_key, $driver} or not defined $self->{$key}
|
|
1804
|
0 |
0 |
unless defined wantarray
|
|
1806
|
0 |
0 |
if (defined $self->{$key})
|
|
1809
|
0 |
0 |
wantarray ? :
|
|
1812
|
0 |
0 |
if (defined $$self{join $;, $formatted_key, $driver})
|
|
1817
|
0 |
0 |
wantarray ? :
|
|
|
0 |
0 |
defined $self->{$key} ? :
|
|
1828
|
0 |
1 |
if (defined $default) { }
|
|
1834
|
0 |
0 |
unless my $db = $self->db
|
|
1837
|
0 |
0 |
unless (defined $self->{$key} or $self->{'__xrdbopriv_saving'} and defined $$self{join $;, $formatted_key, $driver})
|
|
1839
|
0 |
0 |
unless (not defined $default or $undef_overrides_default and $self->{$mod_columns_key}{$column_name} || $self->{'__xrdbopriv_in_db'} && !($self->{'__xrdbopriv_set_columns'}{$column_name} || $self->{$mod_columns_key}{$column_name}))
|
|
1845
|
0 |
0 |
if ($choices)
|
|
1850
|
0 |
0 |
unless exists $choices{$val}
|
|
1856
|
0 |
0 |
if (not defined $default or defined $self->{$key}) { }
|
|
1868
|
0 |
0 |
if ($self->{'__xrdbopriv_saving'})
|
|
1871
|
0 |
0 |
unless defined $$self{join $;, $formatted_key, $driver} or not defined $self->{$key}
|
|
1876
|
0 |
0 |
unless defined wantarray
|
|
1878
|
0 |
0 |
if (defined $self->{$key})
|
|
1881
|
0 |
0 |
wantarray ? :
|
|
1884
|
0 |
0 |
if (defined $$self{join $;, $formatted_key, $driver})
|
|
1889
|
0 |
0 |
wantarray ? :
|
|
|
0 |
0 |
defined $self->{$key} ? :
|
|
1901
|
0 |
0 |
unless my $db = $self->db
|
|
1904
|
0 |
0 |
if ($self->{'__xrdbopriv_saving'})
|
|
1906
|
0 |
0 |
unless defined $$self{join $;, $formatted_key, $driver} or defined $self->{$key}
|
|
1909
|
0 |
0 |
unless defined $$self{join $;, $formatted_key, $driver} or not defined $self->{$key}
|
|
1914
|
0 |
0 |
unless defined wantarray
|
|
1916
|
0 |
0 |
if (defined $self->{$key})
|
|
1919
|
0 |
0 |
wantarray ? :
|
|
1922
|
0 |
0 |
if (defined $$self{join $;, $formatted_key, $driver})
|
|
1927
|
0 |
0 |
wantarray ? :
|
|
|
0 |
0 |
defined $self->{$key} ? :
|
|
1940
|
0 |
0 |
unless my $db = $self->db
|
|
1943
|
0 |
0 |
unless @_
|
|
1945
|
0 |
0 |
if ($self->{'__xrdbopriv_loading'}) { }
|
|
1954
|
0 |
0 |
if ($choices)
|
|
1959
|
0 |
0 |
unless exists $choices{$val}
|
|
1965
|
0 |
0 |
if (not defined $_[0] or defined $self->{$key}) { }
|
|
1976
|
0 |
0 |
if ($self->{'__xrdbopriv_saving'})
|
|
1978
|
0 |
0 |
unless defined $$self{join $;, $formatted_key, $driver} or defined $self->{$key}
|
|
1981
|
0 |
0 |
unless defined $$self{join $;, $formatted_key, $driver} or not defined $self->{$key}
|
|
1986
|
0 |
0 |
if (defined $self->{$key})
|
|
1989
|
0 |
0 |
wantarray ? :
|
|
1992
|
0 |
0 |
if (defined $$self{join $;, $formatted_key, $driver})
|
|
1997
|
0 |
0 |
wantarray ? :
|
|
|
0 |
0 |
defined $self->{$key} ? :
|
|
2013
|
0 |
120 |
if ($args->{'manager_class'} or $args->{'manager_method'} or $args->{'manager_args'} or $args->{'query_args'} or $args->{'join_args'})
|
|
2025
|
0 |
120 |
unless my $target_class = $options->{'target_class'}
|
|
2029
|
0 |
120 |
unless my $fk_class = $args->{'class'}
|
|
2036
|
104 |
0 |
exists $args->{'referential_integrity'} ? :
|
|
|
16 |
104 |
exists $args->{'required'} ? :
|
|
2038
|
104 |
16 |
$fk && $fk->isa('Rose::DB::Object::Metadata::ForeignKey') ? :
|
|
2041
|
0 |
16 |
if (exists $args->{'required'} and exists $args->{'referential_integrity'} and !$args->{'required'} != !$$args->{'referential_integrity'})
|
|
2048
|
0 |
120 |
unless my $fk_columns = $args->{'key_columns'}
|
|
2064
|
120 |
0 |
if ($unique{join $;, @f_columns[0 .. $i]})
|
|
2071
|
0 |
120 |
unless ($key_ok)
|
|
2078
|
0 |
120 |
if ($interface eq 'get_set') { }
|
|
|
0 |
120 |
elsif ($interface eq 'get_set_now') { }
|
|
|
60 |
60 |
elsif ($interface eq 'get_set_on_save') { }
|
|
|
0 |
60 |
elsif ($interface eq 'delete_now') { }
|
|
|
60 |
0 |
elsif ($interface eq 'delete_on_save') { }
|
|
2084
|
0 |
0 |
if (@_)
|
|
2087
|
0 |
0 |
if ($self->{'__xrdbopriv_loading'})
|
|
2092
|
0 |
0 |
unless (defined $_[0])
|
|
2094
|
0 |
0 |
if ($ref_integrity or $required)
|
|
2101
|
0 |
0 |
if $meta->column($local_column)->is_primary_key_member
|
|
2125
|
0 |
0 |
if defined $self->{$key}
|
|
2137
|
0 |
0 |
unless (defined $key{$foreign_method})
|
|
2148
|
0 |
0 |
if ($share_db) { }
|
|
2159
|
0 |
0 |
if ($required) { }
|
|
2170
|
0 |
0 |
if ($error or not $ret)
|
|
2176
|
0 |
0 |
ref $msg ? :
|
|
2184
|
0 |
0 |
unless $obj->load('speculative', 1)
|
|
2196
|
0 |
0 |
if (@_)
|
|
2199
|
0 |
0 |
if ($self->{'__xrdbopriv_loading'})
|
|
2205
|
0 |
0 |
unless ($self->{'__xrdbopriv_in_db'})
|
|
2210
|
0 |
0 |
unless (defined $_[0])
|
|
2212
|
0 |
0 |
if ($ref_integrity or $required)
|
|
2219
|
0 |
0 |
if $meta->column($local_column)->is_primary_key_member
|
|
2243
|
0 |
0 |
unless (defined $ret)
|
|
2249
|
0 |
0 |
$ret == -1 ? :
|
|
2256
|
0 |
0 |
if (__check_and_merge($object)) { }
|
|
2258
|
0 |
0 |
unless $object->save('changes_only', 1)
|
|
2262
|
0 |
0 |
unless $object->save
|
|
2275
|
0 |
0 |
unless $self->save('changes_only', 1)
|
|
2280
|
0 |
0 |
unless $share_db
|
|
2282
|
0 |
0 |
if ($started_new_tx)
|
|
2284
|
0 |
0 |
unless $db->commit
|
|
2291
|
0 |
0 |
if ($error)
|
|
2293
|
0 |
0 |
ref $error ? :
|
|
2294
|
0 |
0 |
if $db and $started_new_tx
|
|
2302
|
0 |
0 |
if defined $self->{$key}
|
|
2314
|
0 |
0 |
unless (defined $key{$foreign_method})
|
|
2325
|
0 |
0 |
if ($share_db) { }
|
|
2336
|
0 |
0 |
if ($required) { }
|
|
2347
|
0 |
0 |
if ($error or not $ret)
|
|
2353
|
0 |
0 |
ref $msg ? :
|
|
2361
|
0 |
0 |
unless $obj->load('speculative', 1)
|
|
2369
|
0 |
60 |
unless ($fk)
|
|
2375
|
52 |
8 |
$fk->type eq 'foreign key' ? :
|
|
2381
|
0 |
0 |
if (@_)
|
|
2384
|
0 |
0 |
if ($self->{'__xrdbopriv_loading'})
|
|
2389
|
0 |
0 |
unless (defined $_[0])
|
|
2391
|
0 |
0 |
if ($ref_integrity or $required)
|
|
2398
|
0 |
0 |
if $meta->column($local_column)->is_primary_key_member
|
|
2413
|
0 |
0 |
if ($is_fk and !$fk->requires_preexisting_parent_object || $self->{'__xrdbopriv_in_db'})
|
|
2438
|
0 |
0 |
unless my $object = $self->{$key}
|
|
2442
|
0 |
0 |
unless ($linked_up)
|
|
2449
|
0 |
0 |
unless defined $object->$foreign_method
|
|
2470
|
0 |
0 |
if (__check_and_merge($object)) { }
|
|
2472
|
0 |
0 |
unless $object->save(%$args, 'changes_only', 1)
|
|
2476
|
0 |
0 |
unless $object->save(%$args)
|
|
2491
|
0 |
0 |
unless $share_db
|
|
2499
|
0 |
0 |
if ($error)
|
|
2501
|
0 |
0 |
ref $error ? :
|
|
2509
|
0 |
0 |
if ($linked_up) { }
|
|
2521
|
0 |
0 |
if defined $self->{$key}
|
|
2533
|
0 |
0 |
unless (defined $key{$foreign_method})
|
|
2544
|
0 |
0 |
if ($share_db) { }
|
|
2555
|
0 |
0 |
if ($required) { }
|
|
2566
|
0 |
0 |
if ($error or not $ret)
|
|
2570
|
0 |
0 |
ref $msg ? :
|
|
2578
|
0 |
0 |
unless $obj->load('speculative', 1)
|
|
2586
|
0 |
0 |
unless ($fk)
|
|
2592
|
0 |
0 |
$fk->type eq 'foreign key' ? :
|
|
2610
|
0 |
0 |
unless (defined $key{$foreign_method})
|
|
2615
|
0 |
0 |
if (delete $self->{'__xrdbopriv_on_save'}{'pre'}{'fk'}{$fk_name}{'set'} or delete $self->{'__xrdbopriv_on_save'}{'post'}{'rel'}{$fk_name}{'set'})
|
|
2618
|
0 |
0 |
if ($ref_integrity or $required)
|
|
2625
|
0 |
0 |
if $meta->column($local_column)->is_primary_key_member
|
|
2656
|
0 |
0 |
unless (defined $ret)
|
|
2662
|
0 |
0 |
$ret == -1 ? :
|
|
2664
|
0 |
0 |
if ($ref_integrity or $required)
|
|
2671
|
0 |
0 |
if $meta->column($local_column)->is_primary_key_member
|
|
2682
|
0 |
0 |
unless $self->save
|
|
2685
|
0 |
0 |
unless $deleted = $object->delete(@_)
|
|
2687
|
0 |
0 |
if ($started_new_tx)
|
|
2689
|
0 |
0 |
unless $db->commit
|
|
2695
|
0 |
0 |
unless $share_db
|
|
2701
|
0 |
0 |
if ($error)
|
|
2703
|
0 |
0 |
ref $error ? :
|
|
2704
|
0 |
0 |
if $db and $started_new_tx
|
|
2713
|
0 |
0 |
if $to_save_pre
|
|
2716
|
0 |
0 |
if $to_save_post
|
|
2728
|
0 |
60 |
unless ($fk)
|
|
2734
|
52 |
8 |
$fk->type eq 'foreign key' ? :
|
|
2752
|
0 |
0 |
unless (defined $key{$foreign_method})
|
|
2757
|
0 |
0 |
if (delete $self->{'__xrdbopriv_on_save'}{'pre'}{'fk'}{$fk_name}{'set'} or delete $self->{'__xrdbopriv_on_save'}{'post'}{'rel'}{$fk_name}{'set'})
|
|
2760
|
0 |
0 |
if ($ref_integrity or $required)
|
|
2767
|
0 |
0 |
if $meta->column($local_column)->is_primary_key_member
|
|
2787
|
0 |
0 |
if ($ref_integrity or $required)
|
|
2794
|
0 |
0 |
if $meta->column($local_column)->is_primary_key_member
|
|
2826
|
0 |
0 |
unless $object->delete(@delete_args)
|
|
2832
|
0 |
0 |
if ($error)
|
|
2834
|
0 |
0 |
ref $error ? :
|
|
2839
|
0 |
0 |
unless defined $self->$method
|
|
2847
|
0 |
0 |
unless $share_db
|
|
2872
|
0 |
12 |
unless my $target_class = $options->{'target_class'}
|
|
2876
|
0 |
12 |
unless my $ft_class = $args->{'class'}
|
|
2880
|
0 |
0 |
unless (exists $args->{'key_columns'} or exists $args->{'query_args'} or exists $args->{'join_args'})
|
|
2896
|
12 |
0 |
unless $args->{'join_args'}
|
|
2900
|
0 |
12 |
if ($mgr_args->{'query'})
|
|
2911
|
12 |
0 |
unless ($ft_manager)
|
|
2919
|
0 |
12 |
exists $args->{'referential_integrity'} ? :
|
|
|
0 |
12 |
exists $args->{'required'} ? :
|
|
2921
|
0 |
0 |
if (exists $args->{'required'} and exists $args->{'referential_integrity'} and !$args->{'required'} != !$$args->{'referential_integrity'})
|
|
2928
|
0 |
12 |
$args->{'column'} ? :
|
|
|
0 |
12 |
($args->{'column'} ? $args->{'column'}->nonpersistent : 0) ? :
|
|
2931
|
0 |
12 |
if ($interface eq 'count') { }
|
|
|
4 |
8 |
elsif ($interface eq 'find' or $interface eq 'iterator') { }
|
|
|
0 |
8 |
elsif ($interface eq 'get_set' or $interface eq 'get_set_load') { }
|
|
|
0 |
8 |
elsif ($interface eq 'get_set_now') { }
|
|
|
4 |
4 |
elsif ($interface eq 'get_set_on_save') { }
|
|
|
0 |
4 |
elsif ($interface eq 'delete_now') { }
|
|
|
0 |
4 |
elsif ($interface eq 'delete_on_save') { }
|
|
|
0 |
4 |
elsif ($interface eq 'add_now') { }
|
|
|
4 |
0 |
elsif ($interface eq 'add_on_save') { }
|
|
2941
|
0 |
0 |
if (my $ref = ref $_[0]) { }
|
|
2943
|
0 |
0 |
if ($ref eq 'HASH') { }
|
|
|
0 |
0 |
elsif (ref $_[0] eq 'ARRAY') { }
|
|
2954
|
0 |
0 |
if (delete $args{'from_cache'})
|
|
2956
|
0 |
0 |
if (keys %args)
|
|
2962
|
0 |
0 |
if (defined $self->{$cache_key})
|
|
2964
|
0 |
0 |
wantarray ? :
|
|
2980
|
0 |
0 |
unless (defined $key{$foreign_column})
|
|
2992
|
0 |
0 |
unless delete $args{'query'}
|
|
2997
|
0 |
0 |
if (exists $mgr_args->{$param})
|
|
3001
|
0 |
0 |
if ($ref eq 'ARRAY') { }
|
|
|
0 |
0 |
elsif ($ref eq 'HASH') { }
|
|
3004
|
0 |
0 |
ref $mgr_args->{$param} ? :
|
|
3010
|
0 |
0 |
unless exists $args{$param}{$k}
|
|
3018
|
0 |
0 |
unless exists $args{$k}
|
|
3033
|
0 |
0 |
if ($share_db) { }
|
|
3050
|
0 |
0 |
if ($error or not defined $count)
|
|
3053
|
0 |
0 |
ref $msg ? :
|
|
3055
|
0 |
0 |
wantarray ? :
|
|
3058
|
0 |
0 |
if $cache
|
|
3067
|
0 |
4 |
$interface eq 'iterator' ? :
|
|
3069
|
0 |
4 |
if ($is_iterator) { }
|
|
3084
|
0 |
0 |
if (my $ref = ref $_[0]) { }
|
|
3086
|
0 |
0 |
if ($ref eq 'HASH') { }
|
|
|
0 |
0 |
elsif (ref $_[0] eq 'ARRAY') { }
|
|
3097
|
0 |
0 |
if (delete $args{'from_cache'})
|
|
3099
|
0 |
0 |
if (keys %args)
|
|
3105
|
0 |
0 |
if (defined $self->{$cache_key})
|
|
3107
|
0 |
0 |
wantarray ? :
|
|
3123
|
0 |
0 |
unless (defined $key{$foreign_column})
|
|
3135
|
0 |
0 |
unless delete $args{'query'}
|
|
3140
|
0 |
0 |
if (exists $mgr_args->{$param})
|
|
3144
|
0 |
0 |
if ($ref eq 'ARRAY') { }
|
|
|
0 |
0 |
elsif ($ref eq 'HASH') { }
|
|
3147
|
0 |
0 |
ref $mgr_args->{$param} ? :
|
|
3153
|
0 |
0 |
unless exists $args{$param}{$k}
|
|
3161
|
0 |
0 |
unless exists $args{$k}
|
|
3174
|
0 |
0 |
if ($share_db) { }
|
|
3176
|
0 |
0 |
unless $objs = $ft_manager->$ft_method('query', \@query, 'db', $self->db, %args)
|
|
3182
|
0 |
0 |
unless $objs = $ft_manager->$ft_method('query', \@query, 'db', $self->db, 'share_db', 0, %args)
|
|
3193
|
0 |
0 |
if ($error or not $objs)
|
|
3196
|
0 |
0 |
$is_iterator ? :
|
|
|
0 |
0 |
ref $msg ? :
|
|
3199
|
0 |
0 |
wantarray ? :
|
|
3202
|
0 |
0 |
if $is_iterator
|
|
3204
|
0 |
0 |
if $cache
|
|
3206
|
0 |
0 |
wantarray ? :
|
|
3215
|
0 |
0 |
if (@_)
|
|
3217
|
0 |
0 |
if @_ == 1 and not defined $_[0]
|
|
3220
|
0 |
0 |
if (not $single) { }
|
|
3222
|
0 |
0 |
wantarray ? :
|
|
3230
|
0 |
0 |
if (defined $self->{$key})
|
|
3232
|
0 |
0 |
if (not $single) { }
|
|
3234
|
0 |
0 |
wantarray ? :
|
|
3251
|
0 |
0 |
unless (defined $key{$foreign_column})
|
|
3268
|
0 |
0 |
if ($share_db) { }
|
|
3270
|
0 |
0 |
unless $objs = $ft_manager->$ft_method('query', [%key, @$query_args], %$mgr_args, 'db', $self->db)
|
|
3278
|
0 |
0 |
unless $objs = $ft_manager->$ft_method('query', [%key, @$query_args], 'db', $self->db, 'share_db', 0, %$mgr_args)
|
|
3289
|
0 |
0 |
if ($error or not $objs)
|
|
3293
|
0 |
0 |
ref $msg ? :
|
|
3296
|
0 |
0 |
wantarray ? :
|
|
3301
|
0 |
0 |
if (not $single) { }
|
|
3303
|
0 |
0 |
wantarray ? :
|
|
3307
|
0 |
0 |
if ($required and not @$objs)
|
|
3320
|
0 |
0 |
if ($interface eq 'get_set_load')
|
|
3326
|
0 |
0 |
defined((shift())->$name(@_)) ? :
|
|
3334
|
0 |
0 |
unless ($relationship)
|
|
3345
|
0 |
0 |
if (@_)
|
|
3348
|
0 |
0 |
if ($self->{'__xrdbopriv_loading'})
|
|
3350
|
0 |
0 |
if @_ == 1 and not defined $_[0]
|
|
3351
|
0 |
0 |
@_ == 1 && ref $_[0] eq 'ARRAY' ? :
|
|
3353
|
0 |
0 |
if (not $single) { }
|
|
3355
|
0 |
0 |
wantarray ? :
|
|
3364
|
0 |
0 |
unless ($self->{'__xrdbopriv_in_db'})
|
|
3370
|
0 |
0 |
if (@_ == 1 and not defined $_[0])
|
|
3377
|
0 |
0 |
$single ? :
|
|
3383
|
0 |
0 |
unless my $ft_meta = $ft_class->meta
|
|
3395
|
0 |
0 |
unless (defined $key{$foreign_column})
|
|
3400
|
0 |
0 |
$single ? :
|
|
3416
|
0 |
0 |
unless (defined $ret)
|
|
3422
|
0 |
0 |
$ret == -1 ? :
|
|
3445
|
0 |
0 |
unless defined $deleted
|
|
3450
|
0 |
0 |
if $deleted
|
|
3457
|
0 |
0 |
if (__check_and_merge($object)) { }
|
|
3459
|
0 |
0 |
unless $object->save('changes_only', 1)
|
|
3463
|
0 |
0 |
unless $object->save
|
|
3467
|
0 |
0 |
unless $share_db
|
|
3473
|
0 |
0 |
defined $mgr_args->{'sort_by'} ? :
|
|
3475
|
0 |
0 |
if ($started_new_tx)
|
|
3477
|
0 |
0 |
unless $db->commit
|
|
3488
|
0 |
0 |
if ($error)
|
|
3490
|
0 |
0 |
ref $error ? :
|
|
3491
|
0 |
0 |
if $db and $started_new_tx
|
|
3496
|
0 |
0 |
unless defined $self->{$key}
|
|
3498
|
0 |
0 |
if (not $single) { }
|
|
3500
|
0 |
0 |
wantarray ? :
|
|
3509
|
0 |
0 |
if (defined $self->{$key})
|
|
3511
|
0 |
0 |
if (not $single) { }
|
|
3513
|
0 |
0 |
wantarray ? :
|
|
3533
|
0 |
0 |
unless (defined $key{$foreign_column})
|
|
3538
|
0 |
0 |
$single ? :
|
|
3551
|
0 |
0 |
if ($share_db) { }
|
|
3553
|
0 |
0 |
unless $objs = $ft_manager->$ft_method('query', [%key, @$query_args], %$mgr_args, 'db', $self->db)
|
|
3560
|
0 |
0 |
unless $objs = $ft_manager->$ft_method('query', [%key, @$query_args], 'db', $self->db, 'share_db', 0, %$mgr_args)
|
|
3571
|
0 |
0 |
if ($error or not $objs)
|
|
3575
|
0 |
0 |
ref $msg ? :
|
|
3578
|
0 |
0 |
wantarray ? :
|
|
3583
|
0 |
0 |
if (not $single) { }
|
|
3585
|
0 |
0 |
wantarray ? :
|
|
3589
|
0 |
0 |
if ($required and not @$objs)
|
|
3606
|
0 |
4 |
unless ($relationship)
|
|
3617
|
0 |
0 |
if (@_)
|
|
3620
|
0 |
0 |
if ($self->{'__xrdbopriv_loading'})
|
|
3622
|
0 |
0 |
if @_ == 1 and not defined $_[0]
|
|
3623
|
0 |
0 |
@_ == 1 && ref $_[0] eq 'ARRAY' ? :
|
|
3625
|
0 |
0 |
if (not $single) { }
|
|
3627
|
0 |
0 |
wantarray ? :
|
|
3636
|
0 |
0 |
if (@_ == 1 and not defined $_[0])
|
|
3643
|
0 |
0 |
$single ? :
|
|
3653
|
0 |
0 |
unless my $ft_meta = $ft_class->meta
|
|
3667
|
0 |
0 |
$share_db ? :
|
|
3680
|
0 |
0 |
unless my $ft_meta = $ft_class->meta
|
|
3692
|
0 |
0 |
unless (defined $key{$foreign_column})
|
|
3705
|
0 |
0 |
unless $self->{$key}
|
|
3722
|
0 |
0 |
unless defined $deleted
|
|
3726
|
0 |
0 |
unless $self->{$key}
|
|
3728
|
0 |
0 |
if $deleted
|
|
3735
|
0 |
0 |
if (__check_and_merge($object)) { }
|
|
3737
|
0 |
0 |
unless $object->save('changes_only', 1)
|
|
3741
|
0 |
0 |
unless $object->save
|
|
3745
|
0 |
0 |
unless $share_db
|
|
3749
|
0 |
0 |
if (defined $self->{$key})
|
|
3760
|
0 |
0 |
if defined $mgr_args->{'sort_by'} or defined $self->{$key} and not @{$self->{$key};}
|
|
3770
|
0 |
0 |
unless defined $self->{$key}
|
|
3772
|
0 |
0 |
if (not $single) { }
|
|
3774
|
0 |
0 |
wantarray ? :
|
|
3783
|
0 |
0 |
if (defined $self->{$key})
|
|
3785
|
0 |
0 |
if (not $single) { }
|
|
3787
|
0 |
0 |
wantarray ? :
|
|
3807
|
0 |
0 |
unless (defined $key{$foreign_column})
|
|
3812
|
0 |
0 |
$single ? :
|
|
3825
|
0 |
0 |
if ($share_db) { }
|
|
3827
|
0 |
0 |
unless $objs = $ft_manager->$ft_method('query', [%key, @$query_args], %$mgr_args, 'db', $self->db)
|
|
3834
|
0 |
0 |
unless $objs = $ft_manager->$ft_method('query', [%key, @$query_args], 'db', $self->db, 'share_db', 0, %$mgr_args)
|
|
3846
|
0 |
0 |
if ($error or not $objs)
|
|
3850
|
0 |
0 |
ref $msg ? :
|
|
3853
|
0 |
0 |
wantarray ? :
|
|
3858
|
0 |
0 |
if (not $single) { }
|
|
3860
|
0 |
0 |
wantarray ? :
|
|
3864
|
0 |
0 |
if ($required and not @$objs)
|
|
3881
|
0 |
0 |
unless ($relationship)
|
|
3895
|
0 |
0 |
unless my $ft_meta = $ft_class->meta
|
|
3907
|
0 |
0 |
unless (defined $key{$foreign_column})
|
|
3912
|
0 |
0 |
$single ? :
|
|
3928
|
0 |
0 |
unless (defined $ret)
|
|
3934
|
0 |
0 |
$ret == -1 ? :
|
|
3941
|
0 |
0 |
unless defined $deleted
|
|
3947
|
0 |
0 |
if ($started_new_tx)
|
|
3949
|
0 |
0 |
unless $db->commit
|
|
3956
|
0 |
0 |
if ($error)
|
|
3958
|
0 |
0 |
ref $error ? :
|
|
3959
|
0 |
0 |
if $db and $started_new_tx
|
|
3971
|
0 |
0 |
unless ($relationship)
|
|
4000
|
0 |
0 |
unless my $ft_meta = $ft_class->meta
|
|
4012
|
0 |
0 |
unless (defined $key{$foreign_column})
|
|
4028
|
0 |
0 |
unless defined $deleted
|
|
4045
|
0 |
0 |
unless ($relationship)
|
|
4056
|
0 |
0 |
unless (@_)
|
|
4059
|
0 |
0 |
wantarray ? :
|
|
4063
|
0 |
0 |
unless ($self->{'__xrdbopriv_in_db'})
|
|
4068
|
0 |
0 |
if ($self->{'__xrdbopriv_on_save'}{'post'}{'rel'}{$rel_name}{'set'})
|
|
4079
|
0 |
0 |
unless my $ft_meta = $ft_class->meta
|
|
4090
|
0 |
0 |
unless (defined $map{$foreign_method})
|
|
4113
|
0 |
0 |
unless (defined $ret)
|
|
4119
|
0 |
0 |
$ret == -1 ? :
|
|
4132
|
0 |
0 |
if (__check_and_merge($object)) { }
|
|
4134
|
0 |
0 |
unless $object->save('changes_only', 1)
|
|
4138
|
0 |
0 |
unless $object->save
|
|
4146
|
0 |
0 |
if ($started_new_tx)
|
|
4148
|
0 |
0 |
unless $db->commit
|
|
4155
|
0 |
0 |
if ($error)
|
|
4157
|
0 |
0 |
ref $error ? :
|
|
4158
|
0 |
0 |
if $db and $started_new_tx
|
|
4168
|
0 |
4 |
unless ($relationship)
|
|
4179
|
0 |
0 |
unless (@_)
|
|
4182
|
0 |
0 |
wantarray ? :
|
|
4189
|
0 |
0 |
if (defined $self->{$key})
|
|
4196
|
0 |
0 |
unless my $ft_meta = $ft_class->meta
|
|
4210
|
0 |
0 |
$share_db ? :
|
|
4224
|
0 |
0 |
unless my $ft_meta = $ft_class->meta
|
|
4235
|
0 |
0 |
unless (defined $map{$foreign_method})
|
|
4256
|
0 |
0 |
if (__check_and_merge($object)) { }
|
|
4258
|
0 |
0 |
unless $object->save(%$args, 'changes_only', 1)
|
|
4262
|
0 |
0 |
unless $object->save(%$args)
|
|
4270
|
0 |
0 |
if defined $mgr_args->{'sort_by'} or defined $self->{$key} and not @{$self->{$key};}
|
|
4304
|
0 |
49 |
unless my $target_class = $options->{'target_class'}
|
|
4306
|
0 |
49 |
unless my $relationship = $args->{'relationship'}
|
|
4308
|
0 |
49 |
unless my $map_class = $args->{'map_class'}
|
|
4317
|
49 |
0 |
unless $args->{'join_args'}
|
|
4321
|
0 |
49 |
if ($mgr_args->{'query'})
|
|
4336
|
49 |
0 |
unless ($map_manager)
|
|
4359
|
98 |
98 |
if ($item->isa('Rose::DB::Object::Metadata::ForeignKey')) { }
|
|
|
98 |
0 |
elsif ($item->isa('Rose::DB::Object::Metadata::Relationship')) { }
|
|
4366
|
98 |
0 |
if $seen_fk{$item->id}
|
|
4369
|
49 |
49 |
if ($item->can('class') and $item->class eq $target_class)
|
|
4373
|
49 |
0 |
unless ($map_from and $item->name ne $map_from)
|
|
4375
|
0 |
49 |
if (%map_column_to_self_method)
|
|
4385
|
49 |
0 |
$item->can('column_map') ? :
|
|
4391
|
0 |
49 |
unless my $foreign_method = $meta->column_accessor_method_name($foreign_column)
|
|
4402
|
49 |
0 |
if ($item->isa('Rose::DB::Object::Metadata::ForeignKey') or $item->type eq 'many to one')
|
|
4407
|
0 |
49 |
if $map_to and $item->name ne $map_to
|
|
4411
|
0 |
49 |
if ($require_objects)
|
|
4422
|
49 |
0 |
$item->can('column_map') ? :
|
|
4428
|
0 |
49 |
unless my $local_method = $map_meta->column_accessor_method_name($local_column)
|
|
4432
|
0 |
49 |
unless my $foreign_method = $map_to_meta->column_accessor_method_name($foreign_column)
|
|
4451
|
0 |
49 |
unless (%map_column_to_self_method)
|
|
4457
|
0 |
49 |
unless (%map_column_to_self_column)
|
|
4463
|
0 |
49 |
unless ($require_objects)
|
|
4471
|
0 |
0 |
if ($item->isa('Rose::DB::Object::Metadata::Relationship'))
|
|
4473
|
0 |
0 |
if $seen_fk{$item->id}
|
|
4476
|
0 |
0 |
if ($item->isa('Rose::DB::Object::Metadata::ForeignKey') || $item->type eq 'many to one' and $item->class eq $target_class and $item->name ne $local_rel)
|
|
4480
|
0 |
0 |
if ($require_objects)
|
|
4500
|
0 |
49 |
unless ($require_objects)
|
|
4522
|
0 |
49 |
if (my $sort_by = $mgr_args->{'sort_by'})
|
|
4526
|
0 |
0 |
ref $sort_by ? :
|
|
4536
|
36 |
13 |
unless ($map_record_method)
|
|
4538
|
0 |
36 |
if ($map_record_method = $mgr_args->{'with_map_records'})
|
|
4540
|
0 |
0 |
if ($map_record_method and $map_record_method eq '1')
|
|
4547
|
13 |
36 |
if ($map_record_method)
|
|
4549
|
12 |
1 |
if ($map_to_class->can($map_record_method) and my $info = $Made_Map_Record_Method{"${map_to_class}::$map_record_method"})
|
|
4552
|
1 |
11 |
unless ($info->{'rel_class'} eq $target_class and $info->{'rel_name'} eq $relationship->name)
|
|
4565
|
1 |
11 |
unless ($map_to_class->can($map_record_method))
|
|
4578
|
0 |
48 |
$args->{'column'} ? :
|
|
|
0 |
48 |
($args->{'column'} ? $args->{'column'}->nonpersistent : 0) ? :
|
|
4581
|
16 |
32 |
if ($interface eq 'find' or $interface eq 'iterator') { }
|
|
|
0 |
32 |
elsif ($interface eq 'count') { }
|
|
|
0 |
32 |
elsif ($interface eq 'get_set' or $interface eq 'get_set_load') { }
|
|
|
0 |
32 |
elsif ($interface eq 'get_set_now') { }
|
|
|
16 |
16 |
elsif ($interface eq 'get_set_on_save') { }
|
|
|
0 |
16 |
elsif ($interface eq 'add_now') { }
|
|
|
16 |
0 |
elsif ($interface eq 'add_on_save') { }
|
|
4585
|
0 |
16 |
$interface eq 'iterator' ? :
|
|
4587
|
0 |
16 |
if ($is_iterator and $map_method eq 'get_objects')
|
|
4598
|
0 |
0 |
if (my $ref = ref $_[0]) { }
|
|
4600
|
0 |
0 |
if ($ref eq 'HASH') { }
|
|
|
0 |
0 |
elsif (ref $_[0] eq 'ARRAY') { }
|
|
4611
|
0 |
0 |
if (delete $args{'from_cache'})
|
|
4613
|
0 |
0 |
if (keys %args)
|
|
4619
|
0 |
0 |
if (defined $self->{$cache_key})
|
|
4621
|
0 |
0 |
wantarray ? :
|
|
4632
|
0 |
0 |
unless (defined $join_map_to_self{$map_column})
|
|
4646
|
0 |
0 |
unless delete $args{'query'}
|
|
4651
|
0 |
0 |
if (exists $mgr_args->{$param})
|
|
4655
|
0 |
0 |
if ($ref eq 'ARRAY') { }
|
|
|
0 |
0 |
elsif ($ref eq 'HASH') { }
|
|
4658
|
0 |
0 |
ref $mgr_args->{$param} ? :
|
|
4664
|
0 |
0 |
unless exists $args{$param}{$k}
|
|
4672
|
0 |
0 |
unless exists $args{$k}
|
|
4683
|
0 |
0 |
if ($share_db) { }
|
|
4703
|
0 |
0 |
if ($error or not $objs)
|
|
4706
|
0 |
0 |
ref $msg ? :
|
|
4708
|
0 |
0 |
wantarray ? :
|
|
4711
|
0 |
0 |
if ($map_record_method) { }
|
|
|
0 |
0 |
elsif ($is_iterator) { }
|
|
4750
|
0 |
0 |
unless $object
|
|
4783
|
0 |
0 |
if $cache
|
|
4785
|
0 |
0 |
wantarray ? :
|
|
4798
|
0 |
0 |
if (my $ref = ref $_[0]) { }
|
|
4800
|
0 |
0 |
if ($ref eq 'HASH') { }
|
|
|
0 |
0 |
elsif (ref $_[0] eq 'ARRAY') { }
|
|
4811
|
0 |
0 |
if (delete $args{'from_cache'})
|
|
4813
|
0 |
0 |
if (keys %args)
|
|
4819
|
0 |
0 |
if (defined $self->{$cache_key})
|
|
4821
|
0 |
0 |
wantarray ? :
|
|
4832
|
0 |
0 |
unless (defined $join_map_to_self{$map_column})
|
|
4844
|
0 |
0 |
unless delete $args{'query'}
|
|
4849
|
0 |
0 |
if (exists $mgr_args->{$param})
|
|
4853
|
0 |
0 |
if ($ref eq 'ARRAY') { }
|
|
|
0 |
0 |
elsif ($ref eq 'HASH') { }
|
|
4856
|
0 |
0 |
ref $mgr_args->{$param} ? :
|
|
4862
|
0 |
0 |
unless exists $args{$param}{$k}
|
|
4870
|
0 |
0 |
unless exists $args{$k}
|
|
4883
|
0 |
0 |
if ($share_db) { }
|
|
4903
|
0 |
0 |
if ($error or not defined $count)
|
|
4906
|
0 |
0 |
ref $msg ? :
|
|
4911
|
0 |
0 |
if $cache
|
|
4922
|
0 |
0 |
if (@_)
|
|
4924
|
0 |
0 |
if @_ == 1 and not defined $_[0]
|
|
4926
|
0 |
0 |
wantarray ? :
|
|
4929
|
0 |
0 |
if (defined $self->{$key})
|
|
4931
|
0 |
0 |
wantarray ? :
|
|
4941
|
0 |
0 |
unless (defined $join_map_to_self{$map_column})
|
|
4952
|
0 |
0 |
if ($share_db) { }
|
|
4968
|
0 |
0 |
unless ($objs)
|
|
4971
|
0 |
0 |
ref $error ? :
|
|
4973
|
0 |
0 |
wantarray ? :
|
|
4976
|
0 |
0 |
if ($map_record_method) { }
|
|
5025
|
0 |
0 |
wantarray ? :
|
|
5028
|
0 |
0 |
if ($interface eq 'get_set_load')
|
|
5034
|
0 |
0 |
defined((shift())->$name(@_)) ? :
|
|
5044
|
0 |
0 |
if (@_)
|
|
5047
|
0 |
0 |
if ($self->{'__xrdbopriv_loading'})
|
|
5049
|
0 |
0 |
if @_ == 1 and not defined $_[0]
|
|
5050
|
0 |
0 |
@_ == 1 && ref $_[0] eq 'ARRAY' ? :
|
|
5054
|
0 |
0 |
unless ($self->{'__xrdbopriv_in_db'})
|
|
5060
|
0 |
0 |
if (@_ == 1 and not defined $_[0])
|
|
5082
|
0 |
0 |
unless (defined $join_map_to_self{$map_column})
|
|
5103
|
0 |
0 |
unless (defined $ret)
|
|
5109
|
0 |
0 |
$ret == -1 ? :
|
|
5116
|
0 |
0 |
unless defined $deleted
|
|
5128
|
0 |
0 |
if $deleted
|
|
5135
|
0 |
0 |
if (__check_and_merge($object)) { }
|
|
5137
|
0 |
0 |
unless $object->save
|
|
5141
|
0 |
0 |
unless $object->save
|
|
5145
|
0 |
0 |
unless $share_db
|
|
5150
|
0 |
0 |
if ($map_record_method) { }
|
|
5154
|
0 |
0 |
if ($map_record) { }
|
|
5156
|
0 |
0 |
if ($map_record->{'__xrdbopriv_in_db'})
|
|
5187
|
0 |
0 |
unless ($in_db)
|
|
5195
|
0 |
0 |
if (my $error = $@)
|
|
5198
|
0 |
0 |
unless (UNIVERSAL::isa($error, 'Rose::DB::Object::Exception') and $error->code == 5)
|
|
5207
|
0 |
0 |
unless ($in_db)
|
|
5209
|
0 |
0 |
unless $map_record->save
|
|
5216
|
0 |
0 |
defined $mgr_args->{'sort_by'} ? :
|
|
5218
|
0 |
0 |
if ($started_new_tx)
|
|
5220
|
0 |
0 |
unless $db->commit
|
|
5231
|
0 |
0 |
if ($error)
|
|
5233
|
0 |
0 |
ref $error ? :
|
|
5234
|
0 |
0 |
if $db and $started_new_tx
|
|
5239
|
0 |
0 |
unless defined $self->{$key}
|
|
5240
|
0 |
0 |
wantarray ? :
|
|
5244
|
0 |
0 |
if (defined $self->{$key})
|
|
5246
|
0 |
0 |
wantarray ? :
|
|
5256
|
0 |
0 |
unless (defined $join_map_to_self{$local_column})
|
|
5267
|
0 |
0 |
if ($share_db) { }
|
|
5283
|
0 |
0 |
unless ($objs)
|
|
5286
|
0 |
0 |
ref $error ? :
|
|
5288
|
0 |
0 |
wantarray ? :
|
|
5291
|
0 |
0 |
if ($map_record_method) { }
|
|
5340
|
0 |
0 |
wantarray ? :
|
|
5349
|
0 |
0 |
if (@_)
|
|
5352
|
0 |
0 |
if ($self->{'__xrdbopriv_loading'})
|
|
5354
|
0 |
0 |
if @_ == 1 and not defined $_[0]
|
|
5355
|
0 |
0 |
@_ == 1 && ref $_[0] eq 'ARRAY' ? :
|
|
5359
|
0 |
0 |
if (@_ == 1 and not defined $_[0])
|
|
5391
|
0 |
0 |
unless (defined $join_map_to_self{$map_column})
|
|
5407
|
0 |
0 |
unless defined $deleted
|
|
5411
|
0 |
0 |
unless $self->{$key}
|
|
5425
|
0 |
0 |
if (__check_and_merge($object)) { }
|
|
5427
|
0 |
0 |
unless $object->save(%$args, 'changes_only', 1)
|
|
5431
|
0 |
0 |
unless $object->save(%$args)
|
|
5435
|
0 |
0 |
unless $share_db
|
|
5440
|
0 |
0 |
if ($map_record_method) { }
|
|
5444
|
0 |
0 |
if ($map_record) { }
|
|
5446
|
0 |
0 |
if ($map_record->{'__xrdbopriv_in_db'})
|
|
5477
|
0 |
0 |
unless ($in_db)
|
|
5492
|
0 |
0 |
if ($error)
|
|
5495
|
0 |
0 |
unless (UNIVERSAL::isa($error, 'Rose::DB::Object::Exception') and $error->code == 5)
|
|
5504
|
0 |
0 |
unless ($in_db)
|
|
5506
|
0 |
0 |
unless $map_record->save(%$args)
|
|
5511
|
0 |
0 |
if (defined $self->{$key})
|
|
5522
|
0 |
0 |
if defined $mgr_args->{'sort_by'} or defined $self->{$key} and not @{$self->{$key};}
|
|
5529
|
0 |
0 |
unless defined $self->{$key}
|
|
5530
|
0 |
0 |
wantarray ? :
|
|
5534
|
0 |
0 |
if (defined $self->{$key})
|
|
5536
|
0 |
0 |
wantarray ? :
|
|
5546
|
0 |
0 |
unless (defined $join_map_to_self{$local_column})
|
|
5557
|
0 |
0 |
if ($share_db) { }
|
|
5573
|
0 |
0 |
unless ($objs)
|
|
5576
|
0 |
0 |
ref $error ? :
|
|
5578
|
0 |
0 |
wantarray ? :
|
|
5581
|
0 |
0 |
if ($map_record_method) { }
|
|
5630
|
0 |
0 |
wantarray ? :
|
|
5639
|
0 |
0 |
unless (@_)
|
|
5642
|
0 |
0 |
wantarray ? :
|
|
5646
|
0 |
0 |
unless ($self->{'__xrdbopriv_in_db'})
|
|
5651
|
0 |
0 |
if ($self->{'__xrdbopriv_on_save'}{'post'}{'rel'}{$rel_name}{'set'})
|
|
5671
|
0 |
0 |
unless (defined $join_map_to_self{$map_column})
|
|
5694
|
0 |
0 |
unless (defined $ret)
|
|
5700
|
0 |
0 |
$ret == -1 ? :
|
|
5715
|
0 |
0 |
if (__check_and_merge($object)) { }
|
|
5717
|
0 |
0 |
unless $object->save('changes_only', 1)
|
|
5721
|
0 |
0 |
unless $object->save
|
|
5725
|
0 |
0 |
unless $share_db
|
|
5739
|
0 |
0 |
unless ($in_db)
|
|
5747
|
0 |
0 |
if (my $error = $@)
|
|
5750
|
0 |
0 |
unless (UNIVERSAL::isa($error, 'Rose::DB::Object::Exception') and $error->code == 5)
|
|
5759
|
0 |
0 |
unless ($in_db)
|
|
5761
|
0 |
0 |
unless $map_record->save
|
|
5769
|
0 |
0 |
if ($started_new_tx)
|
|
5771
|
0 |
0 |
unless $db->commit
|
|
5782
|
0 |
0 |
if ($error)
|
|
5784
|
0 |
0 |
ref $error ? :
|
|
5785
|
0 |
0 |
if $db and $started_new_tx
|
|
5799
|
0 |
0 |
unless (@_)
|
|
5802
|
0 |
0 |
wantarray ? :
|
|
5809
|
0 |
0 |
if (defined $self->{$key})
|
|
5830
|
0 |
0 |
unless (defined $join_map_to_self{$map_column})
|
|
5854
|
0 |
0 |
if (__check_and_merge($object)) { }
|
|
5856
|
0 |
0 |
unless $object->save(%$args, 'changes_only', 1)
|
|
5860
|
0 |
0 |
unless $object->save(%$args)
|
|
5864
|
0 |
0 |
unless $share_db
|
|
5878
|
0 |
0 |
unless ($in_db)
|
|
5894
|
0 |
0 |
if ($map_record->load('speculative', 1))
|
|
5910
|
0 |
0 |
if ($error)
|
|
5913
|
0 |
0 |
unless (UNIVERSAL::isa($error, 'Rose::DB::Object::Exception') and $error->code == 5)
|
|
5922
|
0 |
0 |
unless $map_record->save('changes_only', 1)
|
|
5929
|
0 |
0 |
if defined $mgr_args->{'sort_by'} or defined $self->{$key} and not @{$self->{$key};}
|
|
5951
|
0 |
0 |
if (@$args == 1 and ref $args->[0] eq 'ARRAY')
|
|
5956
|
0 |
0 |
unless (defined $$pk_name)
|
|
5960
|
0 |
0 |
if (@cols == 1) { }
|
|
5975
|
0 |
0 |
if (UNIVERSAL::isa($arg, $object_class)) { }
|
|
5983
|
0 |
0 |
if ($ref eq 'HASH') { }
|
|
|
0 |
0 |
elsif (not $ref and $pk_name) { }
|
|
6005
|
0 |
0 |
unless (defined $$pk_name)
|
|
6009
|
0 |
0 |
if (@cols == 1) { }
|
|
6019
|
0 |
0 |
if (@$args == 1) { }
|
|
|
0 |
0 |
elsif (@$args % 2 == 0) { }
|
|
6024
|
0 |
0 |
if (UNIVERSAL::isa($arg, $object_class)) { }
|
|
|
0 |
0 |
elsif (ref $arg eq 'HASH') { }
|
|
|
0 |
0 |
elsif ($pk_name) { }
|
|
6058
|
0 |
0 |
unless ($object->{'__xrdbopriv_in_db'})
|
|
6087
|
0 |
0 |
if ($error)
|
|
6090
|
0 |
0 |
unless (UNIVERSAL::isa($error, 'Rose::DB::Object::Exception') and $error->code == 5)
|
|
6098
|
0 |
0 |
if ($ret)
|
|
6104
|
0 |
0 |
unless $object->{'__xrdbopriv_modified_columns'}
|
|
|
0 |
0 |
if (%{{} unless $object->{'__xrdbopriv_modified_columns'};})
|
|
6112
|
0 |
0 |
if ($object->{'__xrdbopriv_modified_columns'}{$name})
|
|
6122
|
0 |
0 |
unless ($pk_present)
|
|
6137
|
0 |
0 |
if $modified{$column->{'name'}}
|