| line |
true |
false |
branch |
|
53
|
148 |
50 |
defined $_->[0] && defined $_->[1] ? : |
|
|
99 |
0 |
if defined $candidate and 2 == grep({defined $_->[0] && defined $_->[1] ? $_->[0] eq $_->[1] : 1;} [$reftype->[0], &Scalar::Util::reftype($candidate)], [$reftype->[1], &Scalar::Util::reftype($$candidate)]) |
|
71
|
0 |
77 |
if $@ |
|
87
|
0 |
4 |
if $@ |
|
99
|
0 |
61 |
unless &Scalar::Util::blessed($object) |
|
102
|
4 |
57 |
if (exists $REGISTRY{$hash_class}{'predicate_template'} and $key =~ /^has_(.*)/) |
|
109
|
7 |
50 |
unless $REGISTRY{$hash_class}{'validate'}->($object, $key) |
|
118
|
0 |
55 |
unless defined $class |
|
120
|
23 |
32 |
unless (exists $self->{$key}) |
|
122
|
12 |
11 |
if (exists $REGISTRY{$class}{'methods'}{$key}) |
|
144
|
4 |
52 |
unless @imports |
|
149
|
5 |
54 |
if (not ref $args) { } |
|
|
0 |
54 |
elsif ('HASH' ne ref $args) { } |
|
151
|
1 |
4 |
unless grep {/$args/;} @EXPORT |
|
161
|
0 |
0 |
unless grep {/$args/;} @EXPORT |
|
169
|
1 |
3 |
if not !$args->{'-base'} and exists $args->{'-class'} |
|
173
|
13 |
44 |
unless exists $args->{'-as'} |
|
176
|
56 |
1 |
if (defined $name) |
|
178
|
9 |
47 |
if (defined(my $reftype = &Scalar::Util::reftype($name))) { } |
|
|
10 |
37 |
elsif ($name eq '-return') { } |
|
180
|
1 |
0 |
if $reftype ne "SCALAR" and $reftype ne "VSTRING" and $reftype ne "REF" and $reftype ne "GLOB" and $reftype ne "LVALUE" and $reftype ne "REGEXP" |
|
199
|
3 |
53 |
if ($args->{'-base'}) { } |
|
201
|
0 |
3 |
if $args->{'-as_return'} |
|
203
|
3 |
0 |
if not $args->{'-new'} |
|
209
|
47 |
1 |
if (defined $name) |
|
211
|
10 |
35 |
if $args->{'-as_return'} |
|
222
|
1 |
48 |
if (keys %$args) |
|
238
|
14 |
42 |
if (exists $attr->{'-recurse'}) |
|
240
|
1 |
13 |
unless &Scalar::Util::looks_like_number($attr->{'-recurse'}) |
|
241
|
4 |
9 |
if $attr->{'-recurse'} == 0 |
|
244
|
42 |
13 |
if (not defined $attr->{'-class'}) { } |
|
|
2 |
11 |
elsif ($attr->{'-class'} eq '-caller') { } |
|
248
|
74 |
0 |
defined $attr->{$_} ? : |
|
256
|
1 |
1 |
if ref $name |
|
263
|
2 |
52 |
if defined $REGISTRY{$class} |
|
281
|
5 |
47 |
if ($attr->{'-lvalue'}) |
|
282
|
0 |
5 |
if ($] lt '5.016000') { } |
|
284
|
0 |
0 |
if $attr->{'-lvalue'} < 0 |
|
292
|
7 |
45 |
if ($attr->{'-undef'}) |
|
297
|
14 |
38 |
if ($attr->{'-exists'}) |
|
298
|
13 |
1 |
$attr->{'-exists'} =~ /\A([^\W\d]\w*+)\z/ ? : |
|
303
|
2 |
50 |
if ($attr->{'-defined'}) |
|
304
|
1 |
1 |
$attr->{'-defined'} =~ /\A([^\W\d]\w*+)\z/ ? : |
|
309
|
1 |
51 |
if ($attr->{'-immutable'}) |
|
318
|
8 |
44 |
if ($attr->{'-recurse'}) |
|
326
|
2 |
6 |
--$attr->{'-recurse'} < 0 ? : |
|
355
|
5 |
3 |
--$attr->{'-recurse'} < 0 ? : |
|
362
|
1 |
51 |
if ($attr->{'-predicate'}) |
|
441
|
0 |
52 |
unless _compile_from_tpl(\$class_template, \%dict, \%closures) |
|
444
|
5 |
47 |
unless (not $attr->{'-new'}) |
|
445
|
0 |
5 |
$attr->{'-new'} =~ /\A([^\W\d]\w*+)\z/ ? : |
|
449
|
16 |
36 |
if ($attr->{'-methods'}) |
|
452
|
1 |
15 |
unless "HASH" eq ref $methods |
|
456
|
1 |
15 |
unless $mth =~ /\A([^\W\d]\w*+)\z/ |
|
460
|
1 |
14 |
unless "CODE" eq ref $code |
|
473
|
1 |
48 |
if ($attr->{'-predicate'}) |
|
492
|
1 |
1 |
if exists $args->{'-copy'} and exists $args->{'-clone'} |
|
502
|
5 |
46 |
if ($args->{'-as_method'}) { } |
|
512
|
1 |
50 |
if ($args->{'-copy'}) { } |
|
|
3 |
47 |
elsif (exists $args->{'-clone'}) { } |
|
517
|
1 |
2 |
if ('CODE' eq ref $args->{'-clone'}) { } |
|
529
|
1 |
50 |
if ($args->{'-immutable'}) { } |
|
|
3 |
47 |
elsif (defined $args->{'-lockkeys'}) { } |
|
535
|
2 |
1 |
if ('ARRAY' eq ref $args->{'-lockkeys'}) { } |
|
|
1 |
0 |
elsif ($args->{'-lockkeys'}) { } |
|
553
|
17 |
33 |
if ($args->{'-as_scalar_ref'} or $args->{'-as_return'}) |
|
588
|
7 |
43 |
if $args->{'-as_scalar_ref'} |
|
610
|
58 |
125 |
if (defined $closures and %$closures) |
|
617
|
0 |
183 |
if ($DEBUG) |
|
624
|
0 |
32 |
unless &Scalar::Util::blessed($self) |
|
|
1 |
31 |
if @_ |
|
|
3 |
25 |
unless &Scalar::Util::blessed($self) |
|
|
1 |
25 |
if @_ |
|
|
1 |
25 |
if ("HASH" ne &Scalar::Util::reftype($hash)) |
|
|
1 |
18 |
if ("HASH" ne &Scalar::Util::reftype($hash)) |
|
|
1 |
5 |
if ("HASH" ne &Scalar::Util::reftype($hash)) |
|
|
0 |
5 |
if ("HASH" ne &Scalar::Util::reftype($hash)) |
|
|
1 |
6 |
if ("HASH" ne &Scalar::Util::reftype($hash)) |
|
|
1 |
11 |
if ("HASH" ne &Scalar::Util::reftype($hash)) |
|
|
0 |
5 |
if ("HASH" ne &Scalar::Util::reftype($hash)) |
|
|
1 |
15 |
if ("HASH" ne &Scalar::Util::reftype($hash)) |
|
|
2 |
19 |
if ("HASH" ne &Scalar::Util::reftype($hash)) |
|
|
0 |
12 |
unless &Scalar::Util::blessed($self) |
|
|
0 |
11 |
unless exists $self->{'answer'} |
|
|
1 |
7 |
if @_ |
|
|
1 |
5 |
unless &Scalar::Util::blessed($self) |
|
|
0 |
4 |
unless exists $self->{'answer'} |
|
|
0 |
3 |
if @_ |
|
|
0 |
2 |
unless &Scalar::Util::blessed($self) |
|
|
0 |
2 |
unless exists $self->{'a'} |
|
|
0 |
3 |
if @_ |
|
|
0 |
3 |
unless &Scalar::Util::blessed($self) |
|
|
0 |
3 |
unless exists $self->{'a'} |
|
|
0 |
3 |
if @_ |
|
|
0 |
1 |
unless &Scalar::Util::blessed($self) |
|
|
0 |
1 |
unless exists $self->{'a'} |
|
|
0 |
1 |
if @_ |
|
|
0 |
1 |
unless &Scalar::Util::blessed($self) |
|
|
0 |
1 |
unless exists $self->{'a'} |
|
|
0 |
1 |
if @_ |
|
|
0 |
1 |
unless &Scalar::Util::blessed($self) |
|
|
0 |
1 |
unless exists $self->{'a'} |
|
|
0 |
1 |
if @_ |
|
|
0 |
1 |
unless &Scalar::Util::blessed($self) |
|
|
0 |
1 |
unless exists $self->{'a'} |
|
|
0 |
1 |
if @_ |
|
|
0 |
1 |
unless &Scalar::Util::blessed($self) |
|
|
0 |
1 |
unless exists $self->{'b'} |
|
|
0 |
1 |
if @_ |
|
|
0 |
1 |
unless &Scalar::Util::blessed($self) |
|
|
0 |
1 |
unless exists $self->{'b'} |
|
|
0 |
1 |
if @_ |
|
629
|
183 |
1904 |
unless defined $work |
|
633
|
438 |
1942 |
if (defined $1) { } |
|
639
|
1892 |
52 |
if (defined $v) { } |
|
640
|
156 |
1756 |
if "ARRAY" eq ref $v |
|
644
|
1 |
1906 |
if $work->{'loop'}{$key}++ |