ForgeOps::Tracker
Perl error reporting client for a private, self-hosted ForgeOps tracker instance. Zero
non-core runtime dependencies: HTTP::Tiny, JSON::PP, threads, threads::shared,
Thread::Queue, POSIX, Cwd, Sys::Hostname, and Carp are all part of core Perl (5.14+).
Plack and Dancer2 are only needed for their own optional integrations below.
Installation
Not yet indexed on CPAN -- install directly from the mirror repo instead:
cpanm https://github.com/Luke-Popwell/forge-ops-tracker-perl.git
That's a mirror, kept in sync automatically from sdks/perl in the main forge_ops repo (which is
private, so isn't itself something cpanm could ever install from directly) -- develop against
that repo, not this one. To build and run this SDK's own tests directly instead:
cd sdks/perl
cpanm --installdeps .
perl Makefile.PL && make test
Configuration
Set a DSN (from a project's settings page in ForgeOps), either via the FORGE_OPS_DSN
environment variable or explicitly:
use ForgeOps::Tracker;
ForgeOps::Tracker::init(
dsn => 'https://<api_key>@your-forgeops-host/api/v1/events', # or leave unset to read FORGE_OPS_DSN
release => '...',
environment => 'production',
);
Call init() once at startup. Any Configuration field can be overridden by name.
PSGI / Plack
use Plack::Builder;
builder {
enable '+ForgeOps::Tracker::Integrations::PSGI';
$app;
};
The leading + matters: without it, Plack::Builder looks the name up under its own
Plack::Middleware::* namespace instead of taking it as an exact class name. Works under any
PSGI-speaking framework, not just plain PSGI apps -- Dancer2 itself ultimately runs on PSGI, so
this middleware would also catch what escapes a Dancer2 app, though the dedicated Dancer2 plugin
below is the better fit there (it reports from inside Dancer2's own exception hook, with access to
Dancer2's request object, rather than the raw PSGI $env).
Dancer2
use Dancer2;
use ForgeOps::Tracker::Integrations::Dancer2; # that's it -- no further wiring
Registers Dancer2's own on_route_exception hook, which fires for any exception a route throws
that reaches Dancer2's top-level handling, before Dancer2 renders its own error page. The hook only
observes; Dancer2's own error response still renders exactly as if this plugin weren't installed.
What gets reported automatically, and what doesn't
An exception that escapes a route needs no further wiring at all under either integration above. An exception your own code catches and handles is different -- report it explicitly at the catch site:
eval { charge_card($order) };
if ($@) {
ForgeOps::Tracker::report($@, { order_id => $order->id });
}
There's no process-wide "uncaught exception" fallback
There's deliberately no process-wide fallback hook here, and that's not an oversight. Perl's
$SIG{__DIE__} is the only language-level hook that fires on every die, but it fires for
every die, including one an enclosing eval {} goes on to catch and handle locally --
there's no way for a __DIE__ handler to know, at the moment it's called, whether the exception
unwinding toward it will actually escape uncaught or not. Installing one here would report
exceptions your own code already handles, breaking the invariant this client otherwise holds to
throughout: an exception your own code catches and doesn't explicitly report is invisible to this
client. For a plain script with no framework, wrap your own top-level code instead:
eval { main() };
if ($@) {
ForgeOps::Tracker::report($@);
die $@; # still exit non-zero / print the real error, same as without this client installed
}
Delivery: a real background thread
DeliveryQueue uses Perl's own threads + Thread::Queue: unlike a manual fork()-per-event
approach, Thread::Queue is purpose-built by the Perl core itself as a thread-safe hand-off
between a producer and a consumer thread. The worker thread starts lazily, on first push, not at
load time: a prefork Perl app server (Starman in prefork mode, or mod_perl2's prefork MPM) forks
worker processes after the application has already loaded, so a thread started eagerly at load
time simply wouldn't exist in a forked child.
Backtrace parsing
Perl doesn't hand you a structured stack trace by default. EventBuilder parses two real shapes
instead: a die message Perl itself appended " at FILE line N." to (every die gets this unless the message already
ends in "\n"), and, when the caught error came from Carp::confess, the full
"\tPACKAGE::sub(...) called at FILE line N" chain confess produces for every frame on the stack.
For the fullest backtrace, raise with Carp::confess, not a plain die:
use Carp qw(confess);
confess("something went wrong") if $bad_thing;
If your own exception classes expose a ->trace method returning a Devel::StackTrace-compatible
object (as Throwable::Error and similar frameworks do), that's used directly instead and is more
reliable than parsing any string.
PII scrubbing
The message, backtrace, and any context/tags you attach are scanned for likely personal data -- email addresses, formatted SSNs/credit cards, known API key/token formats, and anything under a suspiciously-named key -- and redacted before the payload ever leaves this process. ForgeOps itself scrubs again on arrival regardless, so this is a second, earlier layer, not the only one.
To disable it:
ForgeOps::Tracker::init(dsn => '...', scrub_pii => 0);
Running the tests
cd sdks/perl
cpanm --installdeps --with-recommends . # pulls in Plack/Dancer2 for the integration tests too
prove -l t/