File Coverage

blib/lib/Sentry/Integration/DBI.pm

Criterion	Covered	Total	%
statement	31	62	50.0
branch	0	14	0.0
condition	1	15	6.6
subroutine	6	9	66.6
pod	0	2	0.0
total	38	102	37.2

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

use Mojo::Util qw(dumper monkey_patch);

has breadcrumbs => 1;
has tracing     => 1;

# DBI is special. Classes are generated on-the-fly.
sub around ($package, $method, $cb) {
  ## no critic (TestingAndDebugging::ProhibitNoStrict, TestingAndDebugging::ProhibitNoWarnings, TestingAndDebugging::ProhibitProlongedStrictureOverride)
  no strict 'refs';
  no warnings 'redefine';

  my $symbol = join('::', $package, $method);

  my $orig = \&{$symbol};
  *{$symbol} = sub { $cb->($orig, @_) };

  return;
}

sub setup_once ($self, $add_global_event_processor, $get_current_hub) {

  around(
    'DBI::db',
    do => sub ($orig, $dbh, $statement, @args) {
      my $hub = $get_current_hub->();

      my $span;

      if ($self->tracing && (my $parent_span = $hub->get_scope()->get_span)) {
        $span = $parent_span->start_child({
          op => 'sql.query', description => $statement, });
      }

      my $value = $orig->($dbh, $statement, @args);

      $hub->add_breadcrumb({
        type => 'query', category => 'do', data => { sql => $statement }, })
        if $self->breadcrumbs;

      if (defined $span && $self->tracing) {
        $span->finish();
      }

      return $value;
    }
  );

  return if (!$self->breadcrumbs && !$self->tracing);

  around(
    'DBI::st',
    execute => sub ($orig, $sth, @args) {
      my $statement = $sth->{Statement};

      my $hub = $get_current_hub->();

      my $span;

      if ($self->tracing && (my $parent_span = $hub->get_scope()->get_span)) {
        $span = $parent_span->start_child({
          op          => 'sql.query',
          description => $statement,
          data        => { args => [@args], },
        });
      }

      my $value = $orig->($sth, @args);

      $hub->add_breadcrumb({
        type     => 'query',
        category => 'execute',
        data     => { sql => $statement, args => [@args], },
      })
        if $self->breadcrumbs;

      if (defined $span && $self->tracing) {
        $span->finish();
      }

      return $value;
    }
  );
}

1;