| line |
true |
false |
branch |
|
64
|
1 |
0 |
if (ref \$proto[0] eq 'SCALAR' and &Scalar::Util::looks_like_number($proto[0]))
|
|
71
|
0 |
1 |
if ((ref $proto[-1] || '') eq 'HASH' or &Scalar::Util::blessed($proto[-1]))
|
|
79
|
0 |
1 |
if (@proto)
|
|
84
|
0 |
1 |
if @headers
|
|
85
|
1 |
0 |
unless $_->status != 200
|
|
86
|
1 |
0 |
unless $_->content_type
|
|
89
|
0 |
1 |
if $self->can('amend_headers')
|
|
92
|
1 |
0 |
unless ($_->has_body)
|
|
94
|
0 |
1 |
if (my $param = $self->$class_info->callback_param)
|
|
96
|
0 |
0 |
unless $cb =~ /^[a-zA-Z0-9\.\_\[\]]+$/
|
|
106
|
0 |
1 |
$possible_override_data ? :
|
|
119
|
0 |
0 |
if &Scalar::Util::blessed($action_proto)
|
|
123
|
0 |
0 |
$action_proto =~ m[^/] ? :
|