view release on metacpan or  search on metacpan

lib/Net/AMQP/PP.pm  view on Meta::CPAN

package Net::AMQP::PP;
use strict;
use warnings;
use JSON ();

our $VERSION = '0.01';

my $data = JSON::from_json(
q[{"domain":{"delivery tag":{"type":"longlong"},"exchange name":{"type":"shortstr"},"reply code":{"type":"short"},"consumer tag":{"type":"shortstr"},"path":{"type":"shortstr"},"class id":{"type":"short"},"access ticket":{"type":"short"},"queue name":...

sub import {
    local $INC{"XML/LibXML.pm"} = 1;
    require Net::AMQP;
    require Net::AMQP::Protocol;
    no warnings 'redefine';
    *Net::AMQP::Protocol::load_xml_spec = sub {
        %Net::AMQP::Protocol::spec = %$data;
        foreach my $key (keys %{$data->{class}}) {
            Net::AMQP::Protocol::_build_class($data->{class}{$key});