line |
true |
false |
branch |
62
|
2 |
31 |
unless UNIVERSAL::isa($caller, 'Class::Meta') or UNIVERSAL::isa($caller, 'Class::Meta::Method') |
68
|
1 |
30 |
if @_ % 2 |
75
|
2 |
28 |
unless $p{'name'} |
77
|
1 |
27 |
if $p{'name'} =~ /\W/ |
83
|
2 |
25 |
if exists $$class{'meths'}{$p{'name'}} or exists $$class{'ctors'}{$p{'name'}} |
89
|
11 |
14 |
if (exists $p{'view'}) { } |
91
|
2 |
3 |
unless $p{'view'} == 4 or $p{'view'} == 2 or $p{'view'} == 3 or $p{'view'} == 1 |
102
|
4 |
19 |
if (exists $p{'context'}) { } |
104
|
2 |
2 |
unless $p{'context'} == 2 or $p{'context'} == 1 |
114
|
4 |
17 |
if ($p{'caller'}) { } |
116
|
4 |
0 |
unless $ref and $ref eq 'CODE' |
120
|
15 |
2 |
if $p{'view'} > 1 |
124
|
5 |
12 |
if ($p{'code'}) |
126
|
0 |
5 |
unless $ref and $ref eq 'CODE' |
137
|
15 |
2 |
if ($p{'view'} > 1) |
138
|
14 |
1 |
unless $p{'view'} == 3 |
140
|
14 |
1 |
if ($p{'view'} > 2) |
142
|
13 |
1 |
if $p{'view'} == 4 |
261
|
1 |
11 |
unless my $code = $$self{'caller'} |
290
|
0 |
14 |
unless UNIVERSAL::isa($caller, 'Class::Meta') or UNIVERSAL::isa($caller, 'Class::Meta::Method') |
296
|
5 |
9 |
if (my $code = delete $$self{'code'}) |
299
|
3 |
2 |
if ($$self{'view'} < 4) |
302
|
1 |
2 |
if ($$self{'view'} == 2) { } |
|
1 |
1 |
elsif ($$self{'view'} == 1) { } |
|
1 |
0 |
elsif ($$self{'view'} == 3) { } |
304
|
2 |
2 |
unless UNIVERSAL::isa(scalar caller, $pack) |
311
|
3 |
1 |
unless caller eq $pack |
320
|
1 |
3 |
if $caller eq $pack |
322
|
1 |
2 |
if UNIVERSAL::isa($caller, $pkg) |