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
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
|
--- gen-perl/scribe.pm.orig 2010-07-14 18:52:03.000000000 +0800
+++ gen-perl/scribe.pm 2010-07-14 18:49:30.000000000 +0800
@@ -8,14 +8,14 @@
use warnings;
use Thrift;
-use Types;
+use Scribe::Thrift::Types;
use Facebook::FB303::FacebookService;
# HELPER FUNCTIONS AND STRUCTURES
-package scribe_Log_args;
+package Scribe::Thrift::scribe_Log_args;
use base qw(Class::Accessor);
-scribe_Log_args->mk_accessors( qw( messages ) );
+Scribe::Thrift::scribe_Log_args->mk_accessors( qw( messages ) );
sub new {
my $classname = shift;
@@ -99,9 +99,9 @@
return $xfer;
}
-package scribe_Log_result;
+package Scribe::Thrift::scribe_Log_result;
use base qw(Class::Accessor);
-scribe_Log_result->mk_accessors( qw( success ) );
+Scribe::Thrift::scribe_Log_result->mk_accessors( qw( success ) );
sub new {
my $classname = shift;
@@ -163,7 +163,7 @@
return $xfer;
}
-package scribeIf;
+package Scribe::Thrift::scribeIf;
use strict;
use base qw(Facebook::FB303::FacebookServiceIf);
@@ -175,7 +175,7 @@
die 'implement interface';
}
-package scribeRest;
+package Scribe::Thrift::scribeRest;
use strict;
use base qw(Facebook::FB303::FacebookServiceRest);
@@ -187,10 +187,10 @@
return $self->{impl}->Log($messages);
}
-package scribeClient;
+package Scribe::Thrift::scribeClient;
use base qw(Facebook::FB303::FacebookServiceClient);
-use base qw(scribeIf);
+use base qw(Scribe::Thrift::scribeIf);
sub new {
my ($classname, $input, $output) = @_;
my $self = {};
@@ -211,7 +211,7 @@
my $messages = shift;
$self->{output}->writeMessageBegin('Log', TMessageType::CALL, $self->{seqid});
- my $args = new scribe_Log_args();
+ my $args = new Scribe::Thrift::scribe_Log_args();
$args->{messages} = $messages;
$args->write($self->{output});
$self->{output}->writeMessageEnd();
@@ -232,7 +232,7 @@
$self->{input}->readMessageEnd();
die $x;
}
- my $result = new scribe_Log_result();
+ my $result = new Scribe::Thrift::scribe_Log_result();
$result->read($self->{input});
$self->{input}->readMessageEnd();
@@ -241,7 +241,7 @@
}
die "Log failed: unknown result";
}
-package scribeProcessor;
+package Scribe::Thrift::scribeProcessor;
use strict;
use base qw(Facebook::FB303::FacebookServiceProcessor);
--- gen-perl/Constants.pm.orig 2010-07-14 18:52:03.000000000 +0800
+++ gen-perl/Constants.pm 2010-07-14 18:49:30.000000000 +0800
@@ -3,7 +3,7 @@
#
# DO NOT EDIT UNLESS YOU ARE SURE THAT YOU KNOW WHAT YOU ARE DOING
#
-package Constants;
+package Scribe::Thrift::Constants;
require 5.6.0;
use strict;
use warnings;
--- gen-perl/Types.pm.orig 2010-07-14 18:52:03.000000000 +0800
+++ gen-perl/Types.pm 2010-07-14 18:49:30.000000000 +0800
@@ -8,12 +8,12 @@
use warnings;
use Thrift;
-package ResultCode;
+package Scribe::Thrift::ResultCode;
use constant OK => 0;
use constant TRY_LATER => 1;
-package LogEntry;
+package Scribe::Thrift::LogEntry;
use base qw(Class::Accessor);
-LogEntry->mk_accessors( qw( category message ) );
+Scribe::Thrift::LogEntry->mk_accessors( qw( category message ) );
sub new {
my $classname = shift;
|
