pbc/compile_pbc.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

#!/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;