view release on metacpan or  search on metacpan

lib/OpenTracing/DSL.pm  view on Meta::CPAN

  );
 } operation_name => 'your_code';

Returns whatever your code did.

If the block of code throws an exception, that'll cause the span to be
marked as an error.

=cut

sub trace(&;@) {
    my ($code, %args) = @_;
    $args{operation_name} //= 'unknown';
    my $span = $tracer->span(%args);
    try {
        return $code->($span);
    } catch {
        my $err = $@;
        eval {
            $span->tag(
                error => 1,