File Coverage

blib/lib/OpenTracing/Process.pm

Criterion	Covered	Total	%
statement	15	23	65.2
branch			n/a
condition	0	8	0.0
subroutine	5	10	50.0
pod	4	5	80.0
total	24	46	52.1

package OpenTracing::Process;

use strict;
use warnings;

our $VERSION = '1.005'; # VERSION
our $AUTHORITY = 'cpan:TEAM'; # AUTHORITY

use parent qw(OpenTracing::Common);

no indirect;
use utf8;

=encoding utf8

=head1 NAME

OpenTracing::Process - information about a single process

=head1 DESCRIPTION

Each batch of spans is linked to a process. This can either be a Unix-style process or a more abstract "service"
concept.

=cut

=head1 METHODS

=head2 pid

The process pid.

=cut

sub pid { shift->{pid} //= $$ }

=head2 name

The process name. Freeform text string.

=cut

sub name { shift->{name} //= "$0" }

=head2 tags

Arrayref of tags relating to the process.

=cut

sub tags { shift->{tags} }

=head2 tag_list

List of tags for this process.

=cut

sub tag_list {
    (shift->{tags} //= [])->@*
}

sub tag : method {
    my ($self, %args) = @_;
    @{$self->{tags}}{keys %args} = values %args;
    return $self;
}

1;

__END__