| line |
true |
false |
branch |
|
25
|
0 |
22 |
unless $EXPORT_TAGS{substr $_, 1} |
|
27
|
3 |
19 |
@_ ? : |
|
30
|
22 |
0 |
if delete $want{'strict'} |
|
31
|
3 |
19 |
if delete $want{'warnings'} |
|
34
|
22 |
0 |
if delete $want{'has'} |
|
35
|
22 |
0 |
if delete $want{'extends'} |
|
36
|
22 |
0 |
if delete $want{'with'} |
|
37
|
3 |
19 |
if delete $want{'confess'} |
|
41
|
57 |
9 |
unless delete $want{$modifier} |
|
49
|
0 |
22 |
if keys %want |
|
74
|
0 |
2 |
unless my(%rev) = reverse(%$exports) |
|
79
|
8 |
0 |
if ($$stash{$name} and defined &{$$stash{$name};}) |
|
81
|
8 |
0 |
if ($rev{$target->can($name)}) |
|
88
|
24 |
8 |
unless defined *{$old;}{$type} |
|
118
|
17 |
14 |
if exists $spec{'default'} |
|
120
|
0 |
31 |
if (defined $attr and ref $attr eq 'ARRAY') |
|
126
|
0 |
31 |
if (not defined $attr or ref $attr or not $attr =~ /^[^\W\d]\w*$/s) |
|
131
|
3 |
28 |
exists $spec{'init_arg'} ? : |
|
139
|
0 |
31 |
if ($is eq 'lazy') |
|
145
|
2 |
29 |
if (defined $lazy and not $lazy) { } |
|
|
0 |
29 |
elsif ($spec{'isa'} or $spec{'coerce'}) { } |
|
|
0 |
29 |
elsif (keys %spec) { } |
|
158
|
1 |
28 |
if ($required and 'Class::Tiny::Object'->can('new') == $caller->can('new')) |
|
163
|
25 |
3 |
if ($init_arg and ref $init_arg eq 'SCALAR' and not defined $$init_arg) { } |
|
|
2 |
1 |
elsif (not $init_arg or $init_arg ne $attr) { } |
|
173
|
6 |
20 |
if (defined $default and ref $default eq 'CODE') { } |
|
|
9 |
11 |
elsif (defined $default) { } |
|
184
|
13 |
13 |
if ($is eq 'rw') { } |
|
|
12 |
1 |
elsif ($is eq 'ro' or $is eq 'rwp') { } |
|
|
1 |
0 |
elsif ($is eq 'bare') { } |
|
191
|
6 |
6 |
if $is eq 'rwp' |
|
204
|
3 |
23 |
if ($clearer) |
|
206
|
1 |
1 |
$attr =~ /^_/ ? : |
|
|
2 |
1 |
if $clearer eq '1' |
|
210
|
4 |
22 |
if ($predicate) |
|
212
|
1 |
1 |
$attr =~ /^_/ ? : |
|
|
2 |
2 |
if $predicate eq '1' |
|
216
|
7 |
6 |
if @_ > 1 |
|
|
6 |
8 |
if @_ > 1 |
|
|
3 |
6 |
unless exists $_[0]{'aaa'} |
|
|
3 |
6 |
unless exists $_[0]{'aaa'} |
|
|
2 |
5 |
unless exists $_[0]{'aaa'} |
|
|
1 |
3 |
if @_ > 1 |
|
|
1 |
3 |
unless exists $_[0]{'bbb'} |
|
|
1 |
3 |
if @_ > 1 |
|
219
|
1 |
25 |
if $needs_clean |
|
254
|
0 |
0 |
defined $specs{$_} ? : |
|
258
|
0 |
0 |
unless $CLASS_ATTRIBUTES{$p} |