File Coverage

blib/lib/Sentry/Integration/LwpUserAgent.pm

Criterion	Covered	Total	%
statement	36	36	100.0
branch	7	12	58.3
condition	3	6	50.0
subroutine	5	5	100.0
pod	0	1	0.0
total	51	60	85.0

package Sentry::Integration::LwpUserAgent;
use Mojo::Base 'Sentry::Integration::Base', -signatures;

use Mojo::Util qw(dumper);
use Sentry::Util 'around';

has _package_name => 'LWP::UserAgent';
has breadcrumbs   => 1;
has tracing       => 1;

sub setup_once ($self, $add_global_event_processor, $get_current_hub) {
  return if (!$self->breadcrumbs && !$self->tracing);

  around(
    $self->_package_name,
    request => sub ($orig, $lwp, $request, @args) {

      my $url = $request->uri;

      # Exclude Requests to the Sentry server
      return $orig->($lwp, $request, @args)
        if $request->header('x-sentry-auth');

      my $hub = $get_current_hub->();
      my $span;

      if ($self->tracing && (my $parent_span = $hub->get_scope()->get_span)) {
        $span = $parent_span->start_child({
          op          => 'http',
          description => $request->method . ' ' . $request->uri,
          data        => {
            url     => $request->uri,
            method  => $request->method,
            headers => $request->headers,
          },
        });

        $request->header('sentry-trace' => $span->to_trace_parent);
      }

      my $result = $orig->($lwp, $request, @args);

      $hub->add_breadcrumb({
        type     => 'http',
        category => 'LWP::UserAgent',
        data     => {
          url         => $request->uri,
          method      => $request->method,
          status_code => $result->code,
        }
      })
        if $self->breadcrumbs;

      if ($span) {
        if ($result->code) {
          $span->set_http_status($result->code);
        }
        $span->finish();
      }

      return $result;
    }
  );
}

1;