#!/usr/bin/env perl

use Net::Prometheus;

my $client = Net::Prometheus->new;

$client->new_gauge(name => "Test3", help => "Test3 help", labels => [qw/color/])->set_function('red', sub { return 123 });

print $client->render;