MessagePack does not allow perl objects, but we appear
# to have Types::Serialiser in JSON structures
$scalar = encode_base64(nfreeze($data));
}
}
$self->redis
,
lazy => 1,
default => sub {
'https://api.hipchat.com/v1/rooms/message?format=json&auth_token=';
},
);
has 'hipchat_token' => (
is => 'rw',
isa => 'Str',
TRACT: Daemonise RabbitMQ plugin
use Net::AMQP::RabbitMQ 2.300000;
use Carp;
use JSON;
use Try::Tiny;
our $js = JSON->new;
$js->utf8;
$js->allow_blessed;
$js->convert_blessed;
$js->allow_nonref;
ot consumer tag: " . $tag) if $self->debug;
}
my $props = { content_type => 'application/json' };
$props->{reply_to} = $reply_to if defined $reply_to;
# If the queue we're sending to
if $self->debug;
my $json = $js->encode($hash);
utf8::encode($json);
try {
$self->mq->publish($self->rabbit_channel,
$queue, $json, $options, $props);
}
MessagePack does not allow perl objects, but we appear
# to have Types::Serialiser in JSON structures
$scalar = encode_base64(nfreeze($data));
}
}
$expire //=