Hack knihovny pro Sentry a napojeni

lib/CF.pm

@@ -20,6 +20,11 @@ sub startup {
         }
     }
 
+    $self->plugin('SentrySDK',  {
+        dsn     => $cfg->{sentry_dsn},
+        traces_sample_rate => 1,
+    }) if $cfg->{sentry_dsn};
+
     # migrace schematu
     my $pg = Mojo::Pg->new
         ->dsn($cfg->{db_dsn})

lib/Mojolicious/Plugin/SentrySDK.pm

+package Mojolicious::Plugin::SentrySDK;
+use Mojo::Base 'Mojolicious::Plugin', -signatures;
+
+use Sentry::SDK;
+use Try::Tiny;
+
+sub register ($self, $app, $conf) {
+  $app->hook(
+    before_server_start => sub ($server, $app) {
+      Sentry::SDK->init($conf);
+    }
+  );
+
+  $app->hook(
+    around_action => sub ($next, $c, $action, $last) {
+      return $next->() unless $last;
+
+      my $req = $c->req;
+
+      Sentry::Hub->get_current_hub()->with_scope(sub ($scope) {
+        my %cookies = map { ($_->name, $_->value) } ($req->cookies // [])->@*;
+        my $transaction = Sentry::SDK->start_transaction(
+          {
+            name    => $c->match->endpoint->pattern->unparsed || '/',
+            op      => 'http.server',
+            request => {
+              url          => $req->url->to_abs->to_string,
+              cookies      => \%cookies,
+              method       => $req->method,
+              query_string => $req->url->query->to_hash,
+              headers      => $req->headers->to_hash,
+              env          => \%ENV,
+            },
+          },
+        );
+
+        Sentry::SDK->configure_scope(sub ($scope) {
+          $scope->set_span($transaction);
+        });
+
+        try {
+          $next->();
+        } catch {
+          Sentry::SDK->capture_exception($_);
+          $c->reply->exception($_)
+        } finally {
+          my $status = $c->res->code;
+          $transaction->set_http_status($status) if $status;
+          $transaction->finish();
+        }
+
+      });
+    }
+  );
+}
+
+1;
+
+=encoding utf8
+
+=head1 NAME
+
+Mojolicious::Plugin::SentrySDK - Sentry plugin for Mojolicious
+
+=head1 SYNOPSIS
+
+=head1 DESCRIPTION
+
+=head1 OPTIONS
+
+=head2 register
+
+  my $config = $plugin->register(Mojolicious->new);
+  my $config = $plugin->register(Mojolicious->new, \%options);
+
+Register Sentry in L<Mojolicious> application.
+
+=head1 SEE ALSO
+
+L<Sentry::SDK>.
+
+=cut

openapi.yaml

 openapi: 3.0.3
 
 info:
-  version: "2.7.2"
+  version: "2.8.0"
   title: CF Online
   description: CF Online
   license: