| line |
true |
false |
branch |
|
34
|
1 |
6 |
unless rand $callback_options |
|
39
|
1 |
11 |
if defined $value |
|
41
|
1 |
5 |
unless $target->can($callback) |
|
70
|
2 |
12 |
$$cb_options{-'only_anon'} ? : |
|
74
|
10 |
4 |
if (defined $name) |
|
79
|
14 |
0 |
if defined $attrs |
|
86
|
10 |
4 |
unless $$cb_options{-'before'} |
|
88
|
2 |
2 |
$$cb_options{-'stmt'} ? : |
|
|
10 |
4 |
defined $name ? : |
|
|
14 |
0 |
unless $$cb_options{-'middle'} |
|
100
|
12 |
2 |
$end_stmt ? : |
|
112
|
14 |
62 |
if ($into_block) |
|
113
|
0 |
14 |
unless $reststr =~ / \A { /x |
|
130
|
12 |
2 |
length $invocant_option ? : |
|
133
|
12 |
2 |
unless $$cb_options{-'default'} |
|
135
|
6 |
8 |
unless defined $signature and length $signature |
|
140
|
0 |
0 |
@parts == 0 ? : |
|
|
2 |
0 |
@parts == 2 ? : |
|
|
6 |
2 |
@parts == 1 ? : |
|
149
|
9 |
3 |
if (my $name = $ctx->strip_name) |
|
152
|
1 |
2 |
if (substr($linestr, $ctx->offset) =~ / \A " /x and Devel::Declare::toke_scan_str($ctx->offset)) { } |
|
164
|
2 |
0 |
if $$options{-'allow_anon'} |
|
172
|
0 |
6 |
unless defined $options |
|
174
|
0 |
6 |
unless rand $options |
|
177
|
3 |
3 |
unless defined $$options{-'invocant'} |
|
179
|
1 |
5 |
unless rand $$options{-'invocant'} |
|
181
|
1 |
4 |
unless rand $$options{-'callbacks'} |