| line |
true |
false |
branch |
|
35
|
0 |
10 |
unless $spec{'handles'}
|
|
38
|
0 |
10 |
ref $names ? :
|
|
43
|
10 |
0 |
if $shv
|
|
46
|
0 |
10 |
if ($ENV{'MITE_COMPILE'} or defined $Mite::COMPILING and $Mite::COMPILING eq $mite_shim)
|
|
51
|
1 |
9 |
if ($uses_mite eq 'Mite::Role') { }
|
|
55
|
1 |
1 |
if "Role::Hooks"->is_role($to)
|
|
104
|
0 |
10 |
if ($spec->{'is'} eq "lazy")
|
|
105
|
0 |
0 |
unless exists $spec->{'builder'}
|
|
108
|
1 |
9 |
if ($spec->{'is'} eq "ro")
|
|
109
|
1 |
0 |
unless exists $spec->{'reader'}
|
|
111
|
0 |
10 |
if ($spec->{'is'} eq "rw")
|
|
112
|
0 |
0 |
unless exists $spec->{'accessor'}
|
|
114
|
8 |
2 |
if ($spec->{'is'} eq "rwp")
|
|
115
|
8 |
0 |
unless exists $spec->{'reader'}
|
|
116
|
8 |
0 |
unless exists $spec->{'writer'}
|
|
120
|
33 |
17 |
unless defined(my $methodname = $spec->{$property})
|
|
121
|
0 |
17 |
if ($methodname eq 1)
|
|
131
|
9 |
1 |
if (my $reader = $spec->{'reader'} || $spec->{'accessor'} || $spec->{'lvalue'}) { }
|
|
140
|
8 |
2 |
if (my $writer = $spec->{'writer'} || $spec->{'accessor'}) { }
|
|
|
0 |
2 |
elsif ($writer = $spec->{'lvalue'}) { }
|
|
164
|
0 |
10 |
if (ref $spec->{'builder'}) { }
|
|
|
0 |
10 |
elsif ($spec->{'builder'}) { }
|
|
|
9 |
1 |
elsif (ref $spec->{'default'}) { }
|
|
|
0 |
1 |
elsif (exists $spec->{'default'}) { }
|
|
195
|
0 |
6 |
unless my($gen, $handler) = @_
|
|
196
|
0 |
6 |
if (not $default and $handler) { }
|
|
|
5 |
1 |
elsif (is_CodeRef($default)) { }
|
|
|
0 |
1 |
elsif (is_Str($default)) { }
|
|
|
1 |
0 |
elsif (is_ScalarRef($default)) { }
|
|
|
0 |
0 |
elsif (is_HashRef($default)) { }
|
|
|
0 |
0 |
elsif (is_ArrayRef($default)) { }
|
|
224
|
10 |
0 |
$slot ? :
|