| line |
true |
false |
branch |
|
14
|
0 |
3 |
$ENV{'MITE_COMPILE'} ? : |
|
22
|
90 |
0 |
unless ref $names |
|
28
|
87 |
3 |
if (ref $default eq "CODE") |
|
34
|
0 |
90 |
if (ref $builder eq "CODE") |
|
40
|
0 |
90 |
if (ref $trigger eq "CODE") |
|
59
|
0 |
3 |
$kind =~ /role/i ? : |
|
61
|
0 |
3 |
if (_is_compiling()) { } |
|
72
|
0 |
3 |
if $ENV{'TEST_COMPILE'} |
|
76
|
0 |
3 |
unless (-e $mite_file) |
|
109
|
0 |
0 |
unless eval " package $caller;\n no warnings 'redefine';\n sub $name {\n \$coderef->( \@_ );\n \$orig->( \@_ );\n }\n 1;\n" |
|
128
|
0 |
0 |
unless eval " package $caller;\n no warnings 'redefine';\n sub $name {\n my \@r;\n if ( wantarray ) {\n \@r = \$orig->( \@_ );\n }\n elsif ( defined wantarray ) {\n \@r = scalar \$orig->( \@_ );\n }\n else {\n \$orig->( \@_ );\n 1;\n }\n \$coderef->( \@_ );\n wantarray ? \@r : \$r[0];\n }\n 1;\n" |
|
158
|
0 |
3 |
unless eval " package $caller;\n no warnings 'redefine';\n sub $name {\n \$coderef->( \$orig, \@_ );\n }\n 1;\n" |
|
180
|
0 |
0 |
ref $_[0] ? : |
|
201
|
0 |
0 |
ref $_[0] ? : |