line |
true |
false |
branch |
115
|
10 |
235 |
unless $keys |
119
|
1 |
234 |
if $@ |
125
|
1 |
233 |
unless $source |
129
|
12 |
221 |
if (@closures) |
145
|
5 |
228 |
unless $sorter |
157
|
1 |
227 |
if (my $name = $$options{'name'}) |
177
|
243 |
479 |
if ($sort_makers{$opt}) |
181
|
1 |
242 |
if $options{'style'} |
184
|
0 |
242 |
if @_ and $_[0] eq '1' |
191
|
194 |
285 |
if ($is_boolean_arg{$opt}) |
194
|
0 |
194 |
if @_ and $_[0] eq '1' |
199
|
11 |
274 |
if ($is_value_arg{$opt}) |
201
|
1 |
10 |
unless @_ |
208
|
273 |
1 |
if ($is_key_arg{$opt}) |
214
|
137 |
136 |
if (not defined $key_desc or $is_arg{$key_desc}) |
226
|
2 |
134 |
if (ref $key_desc eq 'HASH') |
236
|
3 |
131 |
if (ref $key_desc eq 'ARRAY') |
239
|
3 |
0 |
unless $key_desc |
262
|
1 |
238 |
unless (@keys) |
267
|
1 |
237 |
unless ($options{'style'}) |
272
|
2 |
235 |
unless _process_defaults(\%options, \@keys) |
281
|
0 |
237 |
if _has_mutex_attrs($opts, 'defaults have') |
287
|
2 |
267 |
if _has_mutex_attrs($key, 'key has') |
302
|
267 |
0 |
unless (grep $$key{$_}, @grt_num_attrs) |
307
|
267 |
0 |
unless (grep $$key{$_}, @grt_string_attrs) |
330
|
136 |
131 |
unless ($extract_code) |
340
|
90 |
41 |
unless $extractor_type |
344
|
8 |
33 |
if ($extractor_type eq 'Regexp') |
352
|
1 |
32 |
unless ($extractor_type eq 'CODE') |
361
|
16 |
16 |
if ($$opts{'closure'} or $$key{'closure'}) |
378
|
0 |
16 |
unless (require B::Deparse) |
390
|
0 |
16 |
unless ($source) |
418
|
2017 |
2 |
if @bad_attrs <= 1 |
439
|
4 |
2 |
if ($is_boolean_attr{$attr}) |
441
|
0 |
4 |
if $attrs[0] eq '1' |
446
|
1 |
1 |
if ($is_value_attr{$attr}) |
448
|
1 |
0 |
unless @attrs |
475
|
8 |
46 |
if $$key{'descending'} |
476
|
31 |
23 |
if $$key{'type'} eq 'number' |
477
|
54 |
0 |
unless $$key{'type'} eq 'string' and $$key{'no_case'} |
490
|
4 |
45 |
$$options{'ref_in'} ? : |
491
|
4 |
45 |
$$options{'ref_out'} ? : |
519
|
8 |
44 |
$$key{'descending'} ? : |
535
|
30 |
22 |
if $$key{'type'} eq 'number' |
536
|
52 |
0 |
unless $$key{'type'} eq 'string' and $$key{'no_case'} |
550
|
4 |
43 |
$$options{'ref_in'} ? : |
551
|
4 |
43 |
$$options{'ref_out'} ? : |
586
|
8 |
52 |
if $$key{'descending'} |
587
|
34 |
26 |
if $$key{'type'} eq 'number' |
597
|
60 |
0 |
unless $$key{'type'} eq 'string' and $$key{'no_case'} |
615
|
4 |
47 |
$$options{'ref_in'} ? : |
616
|
4 |
47 |
$$options{'ref_out'} ? : |
645
|
6 |
81 |
$$options{'ref_in'} ? : |
655
|
46 |
54 |
$$key{'type'} eq 'number' ? : |
662
|
1 |
99 |
unless $key_pack_format |
666
|
16 |
83 |
if ($key_init_code) |
683
|
80 |
6 |
unless $$options{'string_data'} |
690
|
4 |
82 |
$$options{'ref_out'} ? : |
699
|
6 |
80 |
$$options{'string_data'} ? : |
748
|
12 |
34 |
if ($$key{'descending'}) { } |
756
|
3 |
9 |
if delete $$key{'unsigned'} |
757
|
3 |
9 |
if delete $$key{'unsigned_float'} |
764
|
3 |
43 |
if ($$key{'unsigned'}) { } |
|
9 |
34 |
elsif ($$key{'signed'}) { } |
|
3 |
31 |
elsif ($$key{'unsigned_float'}) { } |
826
|
5 |
49 |
if (my $fix_len = $$key{'fixed'}) { } |
|
13 |
36 |
elsif ($$key{'varying'}) { } |
829
|
3 |
2 |
if $$key{'descending'} |
849
|
9 |
4 |
if $$key{'descending'} |
861
|
1 |
35 |
if $$key{'descending'} |
869
|
12 |
41 |
$$key{'descending'} ? : |
875
|
44 |
9 |
unless $$key{'no_case'} |