| line |
true |
false |
branch |
|
187
|
23 |
0 |
if (ref $args eq 'HASH' and exists $$args{'type'} and $$args{'type'}) { } |
|
195
|
0 |
23 |
defined $$core{$oid} ? : |
|
|
0 |
0 |
defined $$core{$oid} ? : |
|
|
23 |
0 |
exists {array => {default => [()], null => 0, orm => 0, ptype => 'ARRAY', type => 'array'}, binary => {default => '', null => 0, orm => 0, type => 'string'}, blob => {default => undef, null => 1, orm => 0, type => 'blob'}, boolean => {default => 0, max => 1, min => 0, null => 0, orm => 0, size => 1, type => 'integer'}, char => {default => '', null => 0, orm => 0, size => 1, type => 'string'}, code => {null => 1, orm => 0, ptype => 'CODE', type => 'code'}, double => {default => '', null => 0, orm => 0, type => 'string'}, enum => {default => undef, null => 1, options => [()], orm => 0, type => 'string'}, float => {default => '0.0', null => 0, orm => 0, regex => \undef, type => 'string'}, hash => {default => {}, null => 0, orm => 0, ptype => 'HASH', type => 'hash'}, integer => {default => 0, null => 0, orm => 0, regex => \undef, type => 'integer'}, long => {default => '', null => 0, orm => 0, type => 'string'}, numeric => {default => 0, null => 0, orm => 0, regex => \undef, type => 'string'}, string => {default => '', null => 0, orm => 0, type => 'string'}}->{$$args{'type'}} ? : |
|
205
|
0 |
0 |
@_ == 2 ? : |
|
206
|
25 |
53 |
@_ == 2 ? : |
|
207
|
0 |
0 |
@_ == 2 ? : |
|
208
|
0 |
0 |
@_ == 2 ? : |
|
209
|
0 |
0 |
@_ == 2 ? : |
|
210
|
0 |
0 |
@_ == 2 ? : |
|
211
|
0 |
0 |
@_ == 2 ? : |
|
212
|
0 |
0 |
@_ == 2 ? : |
|
213
|
2 |
0 |
@_ == 2 ? : |
|
214
|
0 |
0 |
@_ == 2 ? : |
|
215
|
0 |
0 |
@_ == 2 ? : |
|
216
|
0 |
0 |
@_ == 2 ? : |
|
217
|
0 |
0 |
@_ == 2 ? : |
|
218
|
0 |
0 |
@_ == 2 ? : |
|
219
|
0 |
0 |
@_ == 2 ? : |
|
220
|
0 |
0 |
@_ == 2 ? : |
|
221
|
0 |
37 |
@_ == 2 ? : |
|
222
|
0 |
75 |
@_ == 2 ? : |
|
235
|
192 |
0 |
$method =~ /::([^:]+)$/o ? : |
|
240
|
170 |
22 |
if (defined $wantarray) { } |
|
242
|
5 |
165 |
if @_ |
|
261
|
23 |
4 |
if ($obj->_valid($property, $dat)) |
|
264
|
0 |
23 |
if exists $$errors{$oid}{$property} |
|
281
|
0 |
41 |
defined $$core{$oid}{'format'} ? : |
|
|
0 |
129 |
defined $$core{$oid}{'format'} ? : |
|
|
41 |
129 |
defined $$core{$oid}{$property} ? : |
|
296
|
27 |
0 |
$property eq 'value' || $property eq 'default' ? : |
|
304
|
27 |
0 |
if (exists $$definition{'null'} and defined $$definition{'null'}) |
|
306
|
3 |
24 |
unless (defined $dat) |
|
309
|
3 |
0 |
if $$definition{'null'} == 1 |
|
312
|
0 |
0 |
defined $dat ? : |
|
323
|
0 |
24 |
if (exists $$definition{'type'} and not exists {array => {default => [()], null => 0, orm => 0, ptype => 'ARRAY', type => 'array'}, binary => {default => '', null => 0, orm => 0, type => 'string'}, blob => {default => undef, null => 1, orm => 0, type => 'blob'}, boolean => {default => 0, max => 1, min => 0, null => 0, orm => 0, size => 1, type => 'integer'}, char => {default => '', null => 0, orm => 0, size => 1, type => 'string'}, code => {null => 1, orm => 0, ptype => 'CODE', type => 'code'}, double => {default => '', null => 0, orm => 0, type => 'string'}, enum => {default => undef, null => 1, options => [()], orm => 0, type => 'string'}, float => {default => '0.0', null => 0, orm => 0, regex => \undef, type => 'string'}, hash => {default => {}, null => 0, orm => 0, ptype => 'HASH', type => 'hash'}, integer => {default => 0, null => 0, orm => 0, regex => \undef, type => 'integer'}, long => {default => '', null => 0, orm => 0, type => 'string'}, numeric => {default => 0, null => 0, orm => 0, regex => \undef, type => 'string'}, string => {default => '', null => 0, orm => 0, type => 'string'}}->{$$definition{'type'}} and defined $dat and not $obj->_Relationship(ref $dat, $$definition{'type'}) =~ /^(?:self|child)$/ or exists $$definition{'ptype'} and ref $dat ne $$definition{'ptype'}) |
|
338
|
0 |
0 |
defined $dat ? : |
|
348
|
3 |
21 |
if (defined $dat and $$definition{'type'} eq 'enum') |
|
350
|
2 |
1 |
if (grep {$_ eq $dat;} @{$$definition{'options'};}) { } |
|
356
|
1 |
0 |
defined $dat ? : |
|
367
|
12 |
9 |
if (exists $$definition{'regex'} and defined $$definition{'regex'}) |
|
369
|
2 |
10 |
unless ($dat =~ /$$definition{'regex'}/) |
|
371
|
2 |
0 |
defined $dat ? : |
|
382
|
2 |
17 |
if (exists $$definition{'size'} and defined $$definition{'size'}) |
|
384
|
0 |
2 |
unless (length $dat <= ($$definition{'size'} || 0)) |
|
386
|
0 |
0 |
defined $dat ? : |
|
396
|
0 |
19 |
if (exists $$definition{'minsize'} and defined $$definition{'minsize'}) |
|
398
|
0 |
0 |
unless (length $dat >= ($$definition{'minsize'} || 0)) |
|
400
|
0 |
0 |
defined $dat ? : |
|
411
|
0 |
19 |
if (exists $$definition{'maxsize'} and defined $$definition{'maxsize'}) |
|
413
|
0 |
0 |
unless (length $dat <= ($$definition{'maxsize'} || 0)) |
|
415
|
0 |
0 |
defined $dat ? : |
|
426
|
3 |
16 |
if (exists $$definition{'min'} and defined $$definition{'min'}) |
|
428
|
0 |
3 |
unless ($dat >= ($$definition{'min'} || 0)) |
|
430
|
0 |
0 |
defined $dat ? : |
|
441
|
2 |
17 |
if (exists $$definition{'max'} and defined $$definition{'max'}) |
|
443
|
1 |
1 |
unless ($dat <= ($$definition{'max'} || 0)) |
|
445
|
1 |
0 |
defined $dat ? : |
|
460
|
1 |
416 |
unless (caller 0)[0] eq ref $_[0] and (caller 1)[0] eq ref $_[0] |
|
479
|
0 |
0 |
ref $_ ? : |
|
|
0 |
0 |
$_ ? : |
|
481
|
0 |
0 |
if $class1 eq $class2 |
|
487
|
0 |
0 |
exists $family2{$class1} ? : |
|
|
0 |
0 |
exists $family1{$class2} ? : |