line |
true |
false |
branch |
30
|
0 |
0 |
if &__descr_attr($attr, 'do_not_clear_on_reload')
|
33
|
0 |
0 |
if ($attr->has_clearer) { }
|
47
|
0 |
0 |
if (ref $clearer) { }
|
83
|
0 |
0 |
if ($other and &blessed($other) and $other->isa(ref $self) and @pks) { }
|
|
0 |
0 |
elsif ($other and not ref $other and scalar @pks == 1) { }
|
92
|
0 |
0 |
unless ($self->$method_name eq $other->$method_name)
|
102
|
0 |
0 |
if ($self->$method_name eq $other)
|
115
|
0 |
0 |
if (my(@pk) = $self->__find_primary_keys) { }
|
157
|
0 |
0 |
if ($args{'_debug'})
|
167
|
0 |
0 |
if ($rec)
|
181
|
0 |
0 |
if ($attrname)
|
183
|
0 |
0 |
unless (exists $more{'db_field_type'})
|
186
|
0 |
0 |
if (my $t = &__descr_attr($attr, 'db_field_type'))
|
195
|
0 |
0 |
if ($attrname)
|
212
|
0 |
0 |
if ($rec)
|
214
|
0 |
0 |
if ($args{'_fieldset'} or $args{'_groupby'}) { }
|
218
|
0 |
0 |
if (my $fs = $args{'_fieldset'})
|
222
|
0 |
0 |
unless ('LittleORM::Model::Field'->this_is_field($f))
|
239
|
0 |
0 |
if (my $grpby = $args{'_groupby'})
|
253
|
0 |
0 |
if ('LittleORM::Model::Field'->this_is_field($f)) { }
|
266
|
0 |
0 |
$post_process ? :
|
307
|
0 |
0 |
unless ($r)
|
324
|
0 |
0 |
if ($args{'_debug'})
|
358
|
0 |
0 |
if ($args{'_debug'})
|
368
|
0 |
0 |
if ($args{'_groupby'}) { }
|
|
0 |
0 |
elsif ($rows == 1) { }
|
414
|
0 |
0 |
if ('LittleORM::Model::Field'->this_is_field($attrname)) { }
|
422
|
0 |
0 |
if (my $coerce_from = &__descr_attr($attr, 'coerce_from'))
|
441
|
0 |
0 |
if ('LittleORM::Model::Field'->this_is_field($attrname)) { }
|
449
|
0 |
0 |
if (my $coerce_from = &__descr_attr($attr, 'coerce_from'))
|
483
|
0 |
0 |
if ($func eq 'count')
|
486
|
0 |
0 |
if (my $d = $args{'_distinct'})
|
490
|
0 |
0 |
if (@distinct_on) { }
|
514
|
0 |
0 |
if (ref $d eq 'ARRAY') { }
|
519
|
0 |
0 |
if ('LittleORM::Model::Field'->this_is_field($aname))
|
558
|
0 |
0 |
if (my $t = $args{'_tables_to_select_from'})
|
565
|
0 |
0 |
if (my $attrname = $args{'_attr'})
|
567
|
0 |
0 |
if ('LittleORM::Model::Field'->this_is_field($attrname)) { }
|
597
|
0 |
0 |
if (my $t = $args{'_groupby'})
|
609
|
0 |
0 |
if ('LittleORM::Model::Field'->this_is_field($grp)) { }
|
613
|
0 |
0 |
if ($grp->model and $grp->model ne $self)
|
651
|
0 |
0 |
if ($args{'_debug'})
|
667
|
0 |
0 |
if ($rc == 1)
|
687
|
0 |
0 |
if ($allok)
|
712
|
0 |
0 |
if ($index_of_first_args_el_which_is_not_ref) { }
|
753
|
0 |
0 |
unless (defined $fields)
|
766
|
0 |
0 |
if ($extra_args_data->{'_debug'})
|
777
|
0 |
0 |
if ($rc == scalar @{$new_records_data;}) { }
|
806
|
0 |
0 |
if (exists $args{$aname})
|
812
|
0 |
0 |
unless (%rv)
|
829
|
0 |
0 |
if (&__get_db_field_name($attr) eq $db_field_name)
|
845
|
0 |
0 |
if (scalar @_ == 1) { }
|
864
|
0 |
0 |
if ($args{'_debug'}) { }
|
871
|
0 |
0 |
if (ref $self)
|
873
|
0 |
0 |
if ($rc != 1)
|
891
|
0 |
0 |
if (ref $self) { }
|
913
|
0 |
0 |
if ($self->__should_ignore_on_write($attr))
|
920
|
0 |
0 |
if (exists $args{$aname})
|
946
|
0 |
0 |
unless ($k =~ /^_/)
|
950
|
0 |
0 |
if ($self->__should_ignore_on_write($attr)) { }
|
958
|
0 |
0 |
if ('LittleORM::Model::Field'->this_is_field($value)) { }
|
960
|
0 |
0 |
if (my $t1 = &__descr_attr($attr, 'db_field_type') and my $t2 = $value->db_field_type)
|
964
|
0 |
0 |
unless ($t1 eq $t2)
|
995
|
0 |
0 |
if (my $w = $args{'_where'}) { }
|
998
|
0 |
0 |
if (ref $w eq 'ARRAY') { }
|
1040
|
0 |
0 |
if ($self->__should_ignore_on_write($attr))
|
1046
|
0 |
0 |
unless (exists $copied_args{$aname})
|
1064
|
0 |
0 |
if ($args{'_debug'})
|
1093
|
0 |
0 |
if ($v) { }
|
1120
|
0 |
0 |
if ($self->__should_ignore($attr) or &__descr_attr($attr, $orm_initialized_attr_desc_option) or &__descr_attr($attr, $orm_initialized_attr_desc_option_hf))
|
1142
|
0 |
0 |
$attr->has_handles ? :
|
1160
|
0 |
0 |
defined $predicate ? :
|
|
0 |
0 |
defined $trigger ? :
|
|
0 |
0 |
defined $clearer ? :
|
|
0 |
0 |
defined $handles ? :
|
1162
|
0 |
0 |
if ($orig_method and $orig_method->isa('Class::MOP::Method::Wrapped'))
|
1197
|
0 |
0 |
if (defined $coerce_from) { }
|
|
0 |
0 |
elsif (my $foreign_key = &__descr_attr($attr, 'foreign_key')) { }
|
1203
|
0 |
0 |
if ($foreign_key eq 'yes')
|
1214
|
0 |
0 |
unless ($foreign_key_attr_name)
|
1251
|
0 |
0 |
if (&__descr_attr($attr, 'ignore') or &__descr_attr($attr, 'ignore_write'))
|
1259
|
0 |
0 |
unless (exists $args{$aname})
|
1261
|
0 |
0 |
if (my $seqname = &__descr_attr($attr, 'sequence')) { }
|
1281
|
0 |
0 |
unless ($rv)
|
1306
|
0 |
0 |
if ($arg =~ /^_/)
|
1314
|
0 |
0 |
if (&__descr_attr($attr, 'ignore') or &__descr_attr($attr, 'ignore_write'))
|
1367
|
0 |
0 |
if ('LittleORM::Model::Value'->this_is_value($value))
|
1369
|
0 |
0 |
unless ($value->orm_coerce)
|
1376
|
0 |
0 |
if ($perform_coercion)
|
1380
|
0 |
0 |
if ($ftc and $ftc->has_coercion)
|
1388
|
0 |
0 |
unless ('LittleORM::Model::Field'->this_is_field($value))
|
1390
|
0 |
0 |
if ($perform_coercion and my $coerce_to = &__descr_attr($attr, 'coerce_to'))
|
1397
|
0 |
0 |
if (&blessed($value) and &__descr_attr($attr, 'foreign_key'))
|
1401
|
0 |
0 |
unless ($foreign_key_attr_name)
|
1420
|
0 |
0 |
if (ref $self)
|
1422
|
0 |
0 |
if (my(@pk) = $self->__find_primary_keys) { }
|
1453
|
0 |
0 |
unless ($rv)
|
1455
|
0 |
0 |
if (&__descr_attr($attr, 'primary_key') or &__descr_attr($attr, 'ignore_write'))
|
1471
|
0 |
0 |
unless ($rv)
|
1474
|
0 |
0 |
if ($aname =~ /^_/)
|
1480
|
0 |
0 |
unless ($rv)
|
1483
|
0 |
0 |
if (&__descr_attr($attr, 'ignore'))
|
1500
|
0 |
0 |
if (my $t = $args{'_groupby'})
|
1515
|
0 |
0 |
if ($self->__should_ignore($attr))
|
1526
|
0 |
0 |
if ($groupby) { }
|
1528
|
0 |
0 |
if (exists $groupby->{$aname})
|
1535
|
0 |
0 |
unless ($field_set)
|
1542
|
0 |
0 |
if ($field_set)
|
1546
|
0 |
0 |
unless ('LittleORM::Model::Field'->this_is_field($f))
|
1554
|
0 |
0 |
if ($f->model)
|
1583
|
0 |
0 |
if (my $t = $args{'_tables_to_select_from'})
|
1590
|
0 |
0 |
if (my $d = $args{'_distinct'})
|
1594
|
0 |
0 |
if (my(@distinct_on) = $self->__get_distinct_on_attrs($d)) { }
|
1632
|
0 |
0 |
if (my $t = $args{'_sortby'})
|
1634
|
0 |
0 |
if (ref $t eq 'HASH') { }
|
|
0 |
0 |
elsif (ref $t eq 'ARRAY') { }
|
1646
|
0 |
0 |
if (my $t = $self->meta->find_attribute_by_name($k))
|
1673
|
0 |
0 |
if (my $t = $self->meta->find_attribute_by_name($k)) { }
|
|
0 |
0 |
elsif ('LittleORM::Model::Field'->this_is_field($k)) { }
|
1702
|
0 |
0 |
if (my $t1 = $self->meta->find_attribute_by_name($t)) { }
|
|
0 |
0 |
elsif ('LittleORM::Model::Field'->this_is_field($t)) { }
|
1720
|
0 |
0 |
if (my $t = int($args{'_limit'} || 0))
|
1725
|
0 |
0 |
if (my $t = int($args{'_offset'} || 0))
|
1738
|
0 |
0 |
if (my $t = $args{'_groupby'})
|
1753
|
0 |
0 |
if ('LittleORM::Model::Field'->this_is_field($grp)) { }
|
1759
|
0 |
0 |
if ($grp->model and $grp->model ne $self)
|
1785
|
0 |
0 |
if (ref $val eq 'ARRAY') { }
|
1789
|
0 |
0 |
if (my $ta = $args->{'_table_alias'})
|
1801
|
0 |
0 |
if (my $ta = $args->{'_table_alias'})
|
1803
|
0 |
0 |
unless ($val->table_alias)
|
1805
|
0 |
0 |
if ((ref $self || $self) eq $val->model)
|
1836
|
0 |
0 |
if ($attr eq '_where') { }
|
|
0 |
0 |
elsif ($attr eq '_clause') { }
|
1847
|
0 |
0 |
if ($attr =~ /^_/)
|
1883
|
0 |
0 |
if ($op)
|
1887
|
0 |
0 |
unless (exists $args{'_include_table_alias_into_sql'} and $args{'_include_table_alias_into_sql'} == 0)
|
1894
|
0 |
0 |
if ('LittleORM::Model::Field'->this_is_field($attr))
|
1901
|
0 |
0 |
if ($val1_type and $val2_type and $val1_type ne $val2_type)
|
1914
|
0 |
0 |
unless (@where_args)
|
1932
|
0 |
0 |
unless ('LittleORM::Model::Field'->this_is_field($attr))
|
1937
|
0 |
0 |
if (&__descr_attr($class_attr, 'ignore')) { }
|
1947
|
0 |
0 |
if ($op and 'LittleORM::Model::Field'->this_is_field($attr))
|
1949
|
0 |
0 |
unless ($class_attr)
|
1951
|
0 |
0 |
if ($attr->base_attr)
|
1959
|
0 |
0 |
if (ref $val eq 'HASH') { }
|
|
0 |
0 |
elsif (ref $val eq 'ARRAY') { }
|
|
0 |
0 |
elsif ('LittleORM::Model::Field'->this_is_field($val)) { }
|
1961
|
0 |
0 |
if ($args->{'__we_do_insert_now'}) { }
|
1973
|
0 |
0 |
if (ref $rval eq 'ARRAY') { }
|
1992
|
0 |
0 |
if ($args->{'__we_do_insert_now'}) { }
|
2009
|
0 |
0 |
if (my(@values) = map({$self->__prep_value_for_db_w_field(&__prep_value_for_db($class_attr, $_), $ta, $args, $dbh);} @{$val;})) { }
|
2026
|
0 |
0 |
if ($val->model)
|
2028
|
0 |
0 |
unless ($val->model eq $self)
|
2037
|
0 |
0 |
if ('LittleORM::Model::Value'->this_is_value($val))
|
2057
|
0 |
0 |
if ('LittleORM::Model::Field'->this_is_field($v)) { }
|
|
0 |
0 |
elsif ($dbh) { }
|
2060
|
0 |
0 |
if ($v->model)
|
2062
|
0 |
0 |
unless ($v->model eq $self)
|
2099
|
0 |
0 |
if (my $pk = &__descr_attr($attr, 'primary_key'))
|
2113
|
0 |
0 |
if ($attr->can('description'))
|
2129
|
0 |
0 |
if (my $t = &__descr_attr($attr, 'db_field'))
|
2144
|
0 |
0 |
if (my $d = &__descr_or_undef($attr))
|
2146
|
0 |
0 |
if (my $t = $d->{$attr_attr_name})
|