File Coverage

blib/lib/Sentry/Tracing/Status.pm

Criterion	Covered	Total	%
statement	32	57	56.1
branch	5	6	83.3
condition	2	3	66.6
subroutine	8	21	38.1
pod	0	18	0.0
total	47	105	44.7

use Mojo::Base -base, -signatures;

use experimental qw(switch);
use HTTP::Status qw(:constants);

# The operation completed successfully.

# Deadline expired before operation could complete.

# 401 Unauthorized (actually does mean unauthenticated according to RFC 7235)

# 403 Forbidden

# 404 Not Found. Some requested entity (file or directory) was not found.

# 429 Too Many Requests

# Client specified an invalid argument. 4xx.

# 501 Not Implemented

# 503 Service Unavailable

# Other/generic 5xx.

# Unknown. Any non-standard HTTP status code.

# The operation was cancelled (typically by the user).

# Already exists (409)

# Operation was rejected because the system is not in a state required for the operation's

# The operation was aborted, typically due to a concurrency issue.

# Operation was attempted past the valid range.

# Unrecoverable data loss or corruption

  return Sentry::Tracing::Status->Ok if $code < HTTP_BAD_REQUEST;

  if ($code >= HTTP_BAD_REQUEST && $code < HTTP_INTERNAL_SERVER_ERROR) {
    given ($code) {
      when (HTTP_UNAUTHORIZED)        { return Unauthenticated() }
      when (HTTP_FORBIDDEN)           { return PermissionDenied() }
      when (HTTP_NOT_FOUND)           { return NotFound() }
      when (HTTP_CONFLICT)            { return AlreadyExists() }
      when (HTTP_PRECONDITION_FAILED) { return FailedPrecondition() }
      when (HTTP_TOO_MANY_REQUESTS)   { return ResourceExhausted() }
      default                         { return InvalidArgument() }
    }
  }

  if ($code >= HTTP_INTERNAL_SERVER_ERROR) {
    given ($code) {
      when (HTTP_NOT_IMPLEMENTED)     { return Unimplemented() }
      when (HTTP_SERVICE_UNAVAILABLE) { return Unavailable() }
      when (HTTP_GATEWAY_TIMEOUT)     { return DeadlineExceeded() }
      default                         { return InternalError() }
    }
  }
}

1;