File::ShareDir;
use JSON;
use FindBin qw/$Bin/;
Net::AMQP::Protocol->load_xml_spec(File::ShareDir::dist_dir("AnyEvent-RabbitMQ") . '/fixed_amqp0-8.xml');
my $data = JSON::to_json(\%Net::AMQP::Protoc
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"},"