test.pl

use strict; use warnings;
use Google::ProtocolBuffers::Dynamic;
use FindBin qw($Bin); use File::Find; use File::Spec;

my $pb = Google::ProtocolBuffers::Dynamic->new(my $path = "$Bin/proto");
find({ wanted => sub { $pb->load_file(File::Spec->abs2rel($_, $path)) if /\.proto$/ }, no_chdir => 1 }, $path);
$pb->map({qw'pb_prefix Diadoc.Api.Proto prefix Diadoc'});

# test
my $test = '{"OrgId": "test", "Inn": "123", "FullName":"Test", "Sociability":"AllOrganizations", "Address":{ "AddressCode":"RU" }}';
my $org = Diadoc::Organization->decode_json($test);
my $bytes = $org->encode;
my $org2 = Diadoc::Organization->decode($bytes);
print $org2->encode_json, "\n";