The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

MBARBON / Google-ProtocolBuffers-Dynamic-0.43 / lib / Google / ProtocolBuffers / Dynamic / ProtocPlugin.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
—
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92

              
package Google::ProtocolBuffers::Dynamic::ProtocPlugin;
use strict;
use warnings;
use Google::ProtocolBuffers::Dynamic::ProtocInterface;
sub import {
    my ($class, %args) = @_;
    if (@ARGV && grep /^(?:--help|-h)$/, @ARGV) {
        my $message = 'This is a protoc plugin and should not be used directly. Use --man for documentation';
        if ('podusage' eq ($args{help} // '')) {
            require Pod::Usage;
            Pod::Usage::pod2usage(
                -message => $message . "\n",
                -exitval => 1,
            );
        } else {
            print STDERR $message, "\n\n";
            exit 1;
        }
    } elsif (@ARGV && grep /^--man$/, @ARGV) {
        require Pod::Usage;
        Pod::Usage::pod2usage(
            -exitval => 0,
            -verbose => 2,
        );
    }
    my $generator = $args{run};
    eval "require $generator; 1"
        or die "Error loding plugin '$generator': $@";
    binmode STDIN;
    binmode STDOUT;
    my $input = do {
        local $/;
        readline STDIN;
    };
    my $codegen_request = Google::ProtocolBuffers::Dynamic::ProtocInterface::CodeGeneratorRequest->decode($input);
    my $codegen_response;
    eval {
        my $code = $generator->generate_codegen_request($codegen_request);
        $codegen_response = Google::ProtocolBuffers::Dynamic::ProtocInterface::CodeGeneratorResponse->encode($code);
        1;
    } or do {
        my $error = $@ || "Zombie error";
        $codegen_response = Google::ProtocolBuffers::Dynamic::ProtocInterface::CodeGeneratorResponse->encode({
            error => $error,
        });
    };
    print STDOUT $codegen_response;
}
1;
__END__
=pod
=encoding UTF-8
=head1 NAME
Google::ProtocolBuffers::Dynamic::ProtocPlugin
=head1 VERSION
version 0.43
=head1 AUTHOR
Mattia Barbon <mattia@barbon.org>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2015-2016 by Mattia Barbon.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut