path: root/pbc/compile_pbc.pl

#!/bin/env perl
use 5.01;
use strict;
use warnings;
use Google::ProtocolBuffers;

my $pbc_definition = "pbc/riakclient.proto";
my $output_file = "lib/Net/Riak/Transport/Message.pm";

say "Compiling Protocol Buffers definition..";

Google::ProtocolBuffers->parsefile(
    $pbc_definition, {
        generate_code => $output_file,
        create_accessors => 1
    }
);

say "done.";

exit;