| line |
true |
false |
branch |
|
64
|
1 |
0 |
if (ref \$proto[0] eq 'SCALAR' and &Scalar::Util::looks_like_number($proto[0]))
|
|
71
|
0 |
0 |
if (@proto and (ref $proto[-1] || '') eq 'HASH' || &Scalar::Util::blessed($proto[-1]))
|
|
82
|
0 |
1 |
if (@proto)
|
|
87
|
0 |
1 |
if @headers
|
|
88
|
1 |
0 |
unless $_->status != 200
|
|
89
|
1 |
0 |
unless $_->content_type
|
|
92
|
0 |
1 |
if $self->can('amend_headers')
|
|
95
|
1 |
0 |
unless ($_->has_body)
|
|
97
|
0 |
1 |
if (my $param = $self->$class_info->callback_param)
|
|
99
|
0 |
0 |
unless $cb =~ /^[a-zA-Z0-9\.\_\[\]]+$/
|
|
109
|
0 |
1 |
$possible_override_data ? :
|
|
122
|
0 |
0 |
if &Scalar::Util::blessed($action_proto)
|
|
126
|
0 |
0 |
$action_proto =~ m[^/] ? :
|