| line |
true |
false |
branch |
|
31
|
0 |
3 |
unless $class
|
|
35
|
1 |
2 |
if eval {
do {
$class->isa($tiny)
}
}
|
|
36
|
0 |
2 |
if eval {
do {
$class->isa($doc)
}
}
|
|
53
|
0 |
3 |
if (not ref $proto and $stat->{'ours'} = util_class_is_ours($proto)) { }
|
|
|
1 |
2 |
elsif (&blessed($proto) and $stat->{'ours'} = util_class_is_ours(ref $proto)) { }
|
|
67
|
0 |
3 |
unless $attr
|
|
71
|
2 |
1 |
if ($stat->{'caller'})
|
|
72
|
2 |
0 |
if $proto
|
|
83
|
2 |
1 |
if (@arg)
|
|
84
|
1 |
1 |
if (scalar @arg > 1) { }
|
|
101
|
0 |
0 |
unless my $c_name = shift()
|
|
102
|
0 |
0 |
unless my $base_class = shift()
|
|
108
|
0 |
0 |
if ($@ and not DEBUG())
|
|
121
|
0 |
0 |
if (exists $document->{$_})
|
|
122
|
0 |
0 |
if (ref $document->{$_} eq 'MongoDB::OID') { }
|
|
|
0 |
0 |
elsif ($document->{$_} =~ /\A[a-fA-F\d]{24}\z/) { }
|