1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
#!/usr/bin/perl
use v5.14;
use warnings;
use Test2::V0;
use Net::Prometheus;
use Net::Prometheus::Types qw( MetricSamples Sample );
my $client = Net::Prometheus->new(
disable_process_collector => 1,
disable_perl_collector => 1,
);
{
package CustomCollector;
sub new { my $class = shift; bless [ @_ ], $class; }
sub collect { shift->[0]->() }
}
$client->register( CustomCollector->new(
sub {
MetricSamples( "metric", gauge => "",
[ Sample( "metric", [ label => "a" ], 123 ) ] )
}
) );
$client->register( CustomCollector->new(
sub {
MetricSamples( "metric", gauge => "",
[ Sample( "metric", [ label => "b" ], 123 ) ] )
}
) );
my @samples = $client->collect;
is( scalar @samples, 1, '$client->collect returns 1 MetricSamples group' );
is( scalar @{ $samples[0]->samples }, 2, 'MetricSamples group contains both samples' );
done_testing;
|
