| line |
true |
false |
branch |
|
25
|
4531 |
748 |
if (exists $Class::MakeMethods::Template::TemplateCache{"${class}::$name"}) |
|
31
|
739 |
9 |
if (scalar @results == 1 and ref $results[0] eq 'HASH') |
|
39
|
9 |
0 |
wantarray ? : |
|
51
|
5059 |
0 |
$target =~ s/^(.*)\:{1,2}// ? : |
|
55
|
0 |
5059 |
unless ref $target eq 'HASH' or ref $target eq 'Class::MakeMethods::Template' |
|
68
|
0 |
739 |
if $$mm_def{'-parsed'} |
|
77
|
0 |
2281 |
ref $rules eq 'ARRAY' ? : |
|
|
1414 |
2281 |
ref $rules eq 'HASH' ? : |
|
78
|
3685 |
10 |
if $class->can('generic') |
|
83
|
11 |
276 |
ref $names ? : |
|
|
4772 |
287 |
$names eq '*' ? : |
|
87
|
15231 |
6730 |
if (not $current) { } |
|
|
168 |
6562 |
elsif (ref $current eq 'ARRAY') { } |
|
90
|
168 |
0 |
ref $import ? : |
|
92
|
2 |
1552 |
unless grep {$_ eq $imp;} @$current |
|
101
|
0 |
739 |
if $Class::MakeMethods::CONTEXT{'Debug'} |
|
114
|
0 |
0 |
if ($$mm_def{'interface'}) |
|
119
|
0 |
0 |
if ($$mm_def{'modifier'}) |
|
128
|
0 |
0 |
ref $value eq 'HASH' ? : |
|
|
0 |
0 |
ref $value eq 'ARRAY' ? : |
|
140
|
1 |
210 |
unless scalar @_ |
|
159
|
0 |
458 |
unless defined $m_name and length $m_name |
|
162
|
2 |
456 |
if (ref $m_name eq 'ARRAY') |
|
165
|
0 |
2 |
if (scalar @_ and ref $_[0] eq 'HASH' and not exists $_[0]{'name'}) |
|
174
|
131 |
325 |
if ($m_name =~ s/^-//) |
|
175
|
60 |
71 |
if (not $m_name =~ s/^-//) { } |
|
179
|
0 |
71 |
if ($m_name eq '') { } |
|
|
51 |
20 |
elsif (exists $$mm_def{'interface'}{$m_name}) { } |
|
|
9 |
11 |
elsif (exists $$mm_def{'modifier'}{$m_name}) { } |
|
|
11 |
0 |
elsif (exists $$mm_def{'behavior'}{$m_name}) { } |
|
189
|
4 |
5 |
$$defaults{'modifier'} ? : |
|
207
|
297 |
28 |
if (not ref $m_name) { } |
|
|
28 |
0 |
elsif (ref $m_name eq 'HASH') { } |
|
208
|
8 |
289 |
if (scalar @_ and ref $_[0] eq 'HASH' and not exists $_[0]{'name'}) { } |
|
215
|
0 |
28 |
unless (exists $$m_name{'name'} and length $$m_name{'name'}) |
|
223
|
742 |
0 |
defined $_ ? : |
|
233
|
12 |
313 |
$$interface{-'params'} ? : |
|
245
|
7 |
318 |
if ($$m_info{'modifier'} and $$mm_def{'modifier'}{-'folding'}) |
|
253
|
63 |
262 |
if (local $_ = $$mm_def{'behavior'}{'-init'}) |
|
254
|
18 |
45 |
ref $_ eq 'ARRAY' ? : |
|
264
|
6 |
1325 |
if ($$m_info{'modifier'}) |
|
265
|
0 |
6 |
if ($behavior =~ /^\-/ and $$mm_def{'modifier'}{-'folding'}) { } |
|
274
|
64 |
427 |
ref $$mm_def{'behavior'}{$behavior} eq 'CODE' ? : |
|
|
840 |
491 |
$$mm_def{'-behavior_cache'}{$behavior} ? : |
|
284
|
1331 |
0 |
if $method |
|
289
|
29 |
296 |
if (my $subs = $$mm_def{'behavior'}{'-subs'}) |
|
290
|
0 |
29 |
ref $subs eq 'ARRAY' ? : |
|
293
|
29 |
0 |
if (scalar @results == 1 and ref $results[0] eq 'HASH') |
|
298
|
44 |
11 |
unless my $names = $$m_info{$type} |
|
299
|
8 |
3 |
ref $names eq 'ARRAY' ? : |
|
310
|
13 |
312 |
if (local $_ = $$mm_def{'behavior'}{'-register'}) |
|
311
|
13 |
0 |
ref $_ eq 'ARRAY' ? : |
|
342
|
0 |
0 |
if (exists $$mm_def{'interface'}{$special}) { } |
|
|
0 |
0 |
elsif (exists $$mm_def{'modifier'}{$special}) { } |
|
|
0 |
0 |
elsif (exists $$mm_def{'behavior'}{$special}) { } |
|
348
|
0 |
0 |
$$m_info{'modifier'} ? : |
|
364
|
0 |
0 |
if $$interface{-'params'} |
|
366
|
0 |
0 |
defined $_ ? : |
|
379
|
49 |
167 |
if (ref $interface eq 'HASH') { } |
|
|
0 |
167 |
elsif (not defined $interface && length $interface) { } |
|
|
167 |
0 |
elsif (not ref $interface) { } |
|
|
0 |
0 |
elsif (ref $interface ne 'HASH') { } |
|
380
|
16 |
33 |
if exists $$interface{'-parsed'} |
|
387
|
163 |
4 |
if (exists $$mm_def{'interface'}{$interface}) { } |
|
|
4 |
0 |
elsif (exists $$mm_def{'behavior'}{$interface}) { } |
|
388
|
66 |
97 |
unless (ref $$mm_def{'interface'}{$interface}) |
|
399
|
45 |
122 |
if exists $$interface{'-parsed'} |
|
408
|
1 |
154 |
if ($$interface{'-base'}) |
|
418
|
0 |
707 |
unless (defined $$interface{$_} and length $$interface{$_}) |
|
458
|
427 |
0 |
if ($$mm_def{'behavior'}{$core_behavior}) { } |
|
466
|
0 |
427 |
unless $builder |
|
468
|
427 |
0 |
if (not ref $builder) { } |
|
|
0 |
0 |
elsif (scalar @modifiers) { } |
|
470
|
427 |
0 |
!$Class::MakeMethods::Utility::DiskCache::DiskCacheDir ? : |
|
475
|
427 |
0 |
unless $Class::MakeMethods::CONTEXT{'Debug'} |
|
476
|
171 |
307 |
if /[^\+\-\,\d\.e]/ |
|
|
115 |
154 |
if (defined $_) |
|
|
90 |
148 |
if (scalar @_) |
|
|
70 |
144 |
defined $$self[$$m_info{'array_index'}] ? : |
|
|
63 |
153 |
scalar @_ == 1 && ref $_[0] eq 'HASH' ? : |
|
477
|
0 |
427 |
if ($@) |
|
478
|
0 |
427 |
unless (ref $builder eq 'CODE') |
|
500
|
0 |
4 |
unless exists $$mm_def{'modifier'}{$_} |
|
505
|
4 |
423 |
scalar @modifiers ? : |
|
526
|
4 |
423 |
$modifier_string ? : |