Yep, but it doesn't work from box.
I've tried to change
$protocol = Thrift::BinaryProtocol->new($transport);
to
$protocol = Thrift::XS::BinaryProtocol->new($transport);
Got error:
Can't call method "write" on an undefined value at /home/dev01/lib/Hbase/Hbase.pm line 9858
9855 sub send_getTableNames{
9856 my $self = shift;
9857
9858 $self->{output}->writeMessageBegin('getTableNames', TMessageType::CALL, $self->{seqid});
9859 my $args = new Hbase::Hbase_getTableNames_args();
9860 $args->write($self->{output});
9861 $self->{output}->writeMessageEnd();
9862 $self->{output}->getTransport()->flush();
9863 }
Looks like it requires additional changes, like custom transport and socket :( | 