| line |
true |
false |
branch |
|
28
|
1 |
26 |
unless ref $object |
|
35
|
1 |
21 |
unless ref $object |
|
44
|
0 |
32 |
if (Data::Util::is_glob_ref($object)) |
|
48
|
1 |
31 |
unless my $class = &Scalar::Util::blessed($object) |
|
75
|
4 |
27 |
if ($class->can('clone')) |
|
122
|
10 |
3 |
if ($validator) |
|
123
|
2 |
8 |
if (Data::Util::is_regex_ref($validator)) { } |
|
|
5 |
3 |
elsif (Data::Util::is_array_ref($validator)) { } |
|
138
|
1 |
8 |
if (@_ > 1) |
|
144
|
1 |
16 |
if (@_ > 2) |
|
147
|
13 |
3 |
if (defined $validate_sub) { } |
|
149
|
3 |
10 |
unless &$validate_sub($value) |
|
193
|
3 |
0 |
if exists $$meta{'methods'} |
|
196
|
3 |
0 |
if (exists $$meta{'fields'}) |
|
207
|
2 |
1 |
if @{$$meta{'isa'};} > 2 |
|
229
|
1 |
1 |
if $cloning |
|
240
|
0 |
2 |
unless my $clone = $$meta{'class'}->can('clone') |