line |
true |
false |
branch |
26
|
0 |
13 |
if ($req->method ne 'POST') |
31
|
6 |
7 |
if ($self->secret) |
34
|
4 |
2 |
unless (&String::Compare::ConstantTime::equals($expected, $actual)) |
41
|
2 |
7 |
if (lc $req->header('content-type') eq 'application/json') { } |
|
6 |
1 |
elsif (lc $req->header('content-type') eq 'application/x-www-form-urlencoded') { } |
46
|
1 |
8 |
unless my $payload = eval {
do {
decode_json($payload_json)
}
} |
55
|
8 |
0 |
if (my $code = $self->events->{''}) |
58
|
5 |
3 |
if (my $code = $self->events->{$event_name}) |
69
|
4 |
4 |
if (ref $event eq 'CODE') |
78
|
0 |
0 |
@_ == 1 ? : |
82
|
0 |
0 |
if $server |