Yet Another CPAN Grep

Net-Stomp-Producer ( D/DA/DAKKAR/Net-Stomp-Producer-2.005.tar.gz, DAKKAR, 2019; MetaCPAN )

Net-Stomp-Producer/lib/Net/Stomp/Producer.pm ( view source; MetaCPAN )

ject to send messages via Net::Stomp

=head1 VERSION

version 2.005

=head1 SYNOPSIS

  my $ser = JSON::XS->new->utf8;

  my $p = Net::Stomp::Producer->new({
    connect_headers => { login => 'some-lo

    ],
    serializer => sub { $ser->encode($_[0]) },
    default_headers => { 'content-type' => 'json' },
  });

  $p->send('/queue/somewhere',
           { type => 'my_message' },
           { a =>

w({
    servers => [ { hostname => 'localhost', port => 61613 } ],
    serializer => sub { encode_json($_[0]) },
  });

  $p->send($destination,\%headers,$body_hashref);

The body will be passed throu