Mercurial > hg > Applications > casawiki
view Cassandra/lib/Cassandra/Cassandra.pm @ 0:a2f0a2c135cf
hg init
author | Shoshi TAMAKI <shoshi@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Sun, 06 Jun 2010 22:00:38 +0900 |
parents | |
children |
line wrap: on
line source
# # Autogenerated by Thrift # # DO NOT EDIT UNLESS YOU ARE SURE THAT YOU KNOW WHAT YOU ARE DOING # require 5.6.0; use strict; use warnings; use Thrift; use Cassandra::Types; # HELPER FUNCTIONS AND STRUCTURES package Cassandra::Cassandra_login_args; use base qw(Class::Accessor); Cassandra::Cassandra_login_args->mk_accessors( qw( keyspace auth_request ) ); sub new { my $classname = shift; my $self = {}; my $vals = shift || {}; $self->{keyspace} = undef; $self->{auth_request} = undef; if (UNIVERSAL::isa($vals,'HASH')) { if (defined $vals->{keyspace}) { $self->{keyspace} = $vals->{keyspace}; } if (defined $vals->{auth_request}) { $self->{auth_request} = $vals->{auth_request}; } } return bless ($self, $classname); } sub getName { return 'Cassandra_login_args'; } sub read { my ($self, $input) = @_; my $xfer = 0; my $fname; my $ftype = 0; my $fid = 0; $xfer += $input->readStructBegin(\$fname); while (1) { $xfer += $input->readFieldBegin(\$fname, \$ftype, \$fid); if ($ftype == TType::STOP) { last; } SWITCH: for($fid) { /^1$/ && do{ if ($ftype == TType::STRING) { $xfer += $input->readString(\$self->{keyspace}); } else { $xfer += $input->skip($ftype); } last; }; /^2$/ && do{ if ($ftype == TType::STRUCT) { $self->{auth_request} = new Cassandra::AuthenticationRequest(); $xfer += $self->{auth_request}->read($input); } else { $xfer += $input->skip($ftype); } last; }; $xfer += $input->skip($ftype); } $xfer += $input->readFieldEnd(); } $xfer += $input->readStructEnd(); return $xfer; } sub write { my ($self, $output) = @_; my $xfer = 0; $xfer += $output->writeStructBegin('Cassandra_login_args'); if (defined $self->{keyspace}) { $xfer += $output->writeFieldBegin('keyspace', TType::STRING, 1); $xfer += $output->writeString($self->{keyspace}); $xfer += $output->writeFieldEnd(); } if (defined $self->{auth_request}) { $xfer += $output->writeFieldBegin('auth_request', TType::STRUCT, 2); $xfer += $self->{auth_request}->write($output); $xfer += $output->writeFieldEnd(); } $xfer += $output->writeFieldStop(); $xfer += $output->writeStructEnd(); return $xfer; } package Cassandra::Cassandra_login_result; use base qw(Class::Accessor); Cassandra::Cassandra_login_result->mk_accessors( qw( ) ); sub new { my $classname = shift; my $self = {}; my $vals = shift || {}; $self->{authnx} = undef; $self->{authzx} = undef; if (UNIVERSAL::isa($vals,'HASH')) { if (defined $vals->{authnx}) { $self->{authnx} = $vals->{authnx}; } if (defined $vals->{authzx}) { $self->{authzx} = $vals->{authzx}; } } return bless ($self, $classname); } sub getName { return 'Cassandra_login_result'; } sub read { my ($self, $input) = @_; my $xfer = 0; my $fname; my $ftype = 0; my $fid = 0; $xfer += $input->readStructBegin(\$fname); while (1) { $xfer += $input->readFieldBegin(\$fname, \$ftype, \$fid); if ($ftype == TType::STOP) { last; } SWITCH: for($fid) { /^1$/ && do{ if ($ftype == TType::STRUCT) { $self->{authnx} = new Cassandra::AuthenticationException(); $xfer += $self->{authnx}->read($input); } else { $xfer += $input->skip($ftype); } last; }; /^2$/ && do{ if ($ftype == TType::STRUCT) { $self->{authzx} = new Cassandra::AuthorizationException(); $xfer += $self->{authzx}->read($input); } else { $xfer += $input->skip($ftype); } last; }; $xfer += $input->skip($ftype); } $xfer += $input->readFieldEnd(); } $xfer += $input->readStructEnd(); return $xfer; } sub write { my ($self, $output) = @_; my $xfer = 0; $xfer += $output->writeStructBegin('Cassandra_login_result'); if (defined $self->{authnx}) { $xfer += $output->writeFieldBegin('authnx', TType::STRUCT, 1); $xfer += $self->{authnx}->write($output); $xfer += $output->writeFieldEnd(); } if (defined $self->{authzx}) { $xfer += $output->writeFieldBegin('authzx', TType::STRUCT, 2); $xfer += $self->{authzx}->write($output); $xfer += $output->writeFieldEnd(); } $xfer += $output->writeFieldStop(); $xfer += $output->writeStructEnd(); return $xfer; } package Cassandra::Cassandra_get_args; use base qw(Class::Accessor); Cassandra::Cassandra_get_args->mk_accessors( qw( keyspace key column_path consistency_level ) ); sub new { my $classname = shift; my $self = {}; my $vals = shift || {}; $self->{keyspace} = undef; $self->{key} = undef; $self->{column_path} = undef; $self->{consistency_level} = 1; if (UNIVERSAL::isa($vals,'HASH')) { if (defined $vals->{keyspace}) { $self->{keyspace} = $vals->{keyspace}; } if (defined $vals->{key}) { $self->{key} = $vals->{key}; } if (defined $vals->{column_path}) { $self->{column_path} = $vals->{column_path}; } if (defined $vals->{consistency_level}) { $self->{consistency_level} = $vals->{consistency_level}; } } return bless ($self, $classname); } sub getName { return 'Cassandra_get_args'; } sub read { my ($self, $input) = @_; my $xfer = 0; my $fname; my $ftype = 0; my $fid = 0; $xfer += $input->readStructBegin(\$fname); while (1) { $xfer += $input->readFieldBegin(\$fname, \$ftype, \$fid); if ($ftype == TType::STOP) { last; } SWITCH: for($fid) { /^1$/ && do{ if ($ftype == TType::STRING) { $xfer += $input->readString(\$self->{keyspace}); } else { $xfer += $input->skip($ftype); } last; }; /^2$/ && do{ if ($ftype == TType::STRING) { $xfer += $input->readString(\$self->{key}); } else { $xfer += $input->skip($ftype); } last; }; /^3$/ && do{ if ($ftype == TType::STRUCT) { $self->{column_path} = new Cassandra::ColumnPath(); $xfer += $self->{column_path}->read($input); } else { $xfer += $input->skip($ftype); } last; }; /^4$/ && do{ if ($ftype == TType::I32) { $xfer += $input->readI32(\$self->{consistency_level}); } else { $xfer += $input->skip($ftype); } last; }; $xfer += $input->skip($ftype); } $xfer += $input->readFieldEnd(); } $xfer += $input->readStructEnd(); return $xfer; } sub write { my ($self, $output) = @_; my $xfer = 0; $xfer += $output->writeStructBegin('Cassandra_get_args'); if (defined $self->{keyspace}) { $xfer += $output->writeFieldBegin('keyspace', TType::STRING, 1); $xfer += $output->writeString($self->{keyspace}); $xfer += $output->writeFieldEnd(); } if (defined $self->{key}) { $xfer += $output->writeFieldBegin('key', TType::STRING, 2); $xfer += $output->writeString($self->{key}); $xfer += $output->writeFieldEnd(); } if (defined $self->{column_path}) { $xfer += $output->writeFieldBegin('column_path', TType::STRUCT, 3); $xfer += $self->{column_path}->write($output); $xfer += $output->writeFieldEnd(); } if (defined $self->{consistency_level}) { $xfer += $output->writeFieldBegin('consistency_level', TType::I32, 4); $xfer += $output->writeI32($self->{consistency_level}); $xfer += $output->writeFieldEnd(); } $xfer += $output->writeFieldStop(); $xfer += $output->writeStructEnd(); return $xfer; } package Cassandra::Cassandra_get_result; use base qw(Class::Accessor); Cassandra::Cassandra_get_result->mk_accessors( qw( success ) ); sub new { my $classname = shift; my $self = {}; my $vals = shift || {}; $self->{success} = undef; $self->{ire} = undef; $self->{nfe} = undef; $self->{ue} = undef; $self->{te} = undef; if (UNIVERSAL::isa($vals,'HASH')) { if (defined $vals->{success}) { $self->{success} = $vals->{success}; } if (defined $vals->{ire}) { $self->{ire} = $vals->{ire}; } if (defined $vals->{nfe}) { $self->{nfe} = $vals->{nfe}; } if (defined $vals->{ue}) { $self->{ue} = $vals->{ue}; } if (defined $vals->{te}) { $self->{te} = $vals->{te}; } } return bless ($self, $classname); } sub getName { return 'Cassandra_get_result'; } sub read { my ($self, $input) = @_; my $xfer = 0; my $fname; my $ftype = 0; my $fid = 0; $xfer += $input->readStructBegin(\$fname); while (1) { $xfer += $input->readFieldBegin(\$fname, \$ftype, \$fid); if ($ftype == TType::STOP) { last; } SWITCH: for($fid) { /^0$/ && do{ if ($ftype == TType::STRUCT) { $self->{success} = new Cassandra::ColumnOrSuperColumn(); $xfer += $self->{success}->read($input); } else { $xfer += $input->skip($ftype); } last; }; /^1$/ && do{ if ($ftype == TType::STRUCT) { $self->{ire} = new Cassandra::InvalidRequestException(); $xfer += $self->{ire}->read($input); } else { $xfer += $input->skip($ftype); } last; }; /^2$/ && do{ if ($ftype == TType::STRUCT) { $self->{nfe} = new Cassandra::NotFoundException(); $xfer += $self->{nfe}->read($input); } else { $xfer += $input->skip($ftype); } last; }; /^3$/ && do{ if ($ftype == TType::STRUCT) { $self->{ue} = new Cassandra::UnavailableException(); $xfer += $self->{ue}->read($input); } else { $xfer += $input->skip($ftype); } last; }; /^4$/ && do{ if ($ftype == TType::STRUCT) { $self->{te} = new Cassandra::TimedOutException(); $xfer += $self->{te}->read($input); } else { $xfer += $input->skip($ftype); } last; }; $xfer += $input->skip($ftype); } $xfer += $input->readFieldEnd(); } $xfer += $input->readStructEnd(); return $xfer; } sub write { my ($self, $output) = @_; my $xfer = 0; $xfer += $output->writeStructBegin('Cassandra_get_result'); if (defined $self->{success}) { $xfer += $output->writeFieldBegin('success', TType::STRUCT, 0); $xfer += $self->{success}->write($output); $xfer += $output->writeFieldEnd(); } if (defined $self->{ire}) { $xfer += $output->writeFieldBegin('ire', TType::STRUCT, 1); $xfer += $self->{ire}->write($output); $xfer += $output->writeFieldEnd(); } if (defined $self->{nfe}) { $xfer += $output->writeFieldBegin('nfe', TType::STRUCT, 2); $xfer += $self->{nfe}->write($output); $xfer += $output->writeFieldEnd(); } if (defined $self->{ue}) { $xfer += $output->writeFieldBegin('ue', TType::STRUCT, 3); $xfer += $self->{ue}->write($output); $xfer += $output->writeFieldEnd(); } if (defined $self->{te}) { $xfer += $output->writeFieldBegin('te', TType::STRUCT, 4); $xfer += $self->{te}->write($output); $xfer += $output->writeFieldEnd(); } $xfer += $output->writeFieldStop(); $xfer += $output->writeStructEnd(); return $xfer; } package Cassandra::Cassandra_get_slice_args; use base qw(Class::Accessor); Cassandra::Cassandra_get_slice_args->mk_accessors( qw( keyspace key column_parent predicate consistency_level ) ); sub new { my $classname = shift; my $self = {}; my $vals = shift || {}; $self->{keyspace} = undef; $self->{key} = undef; $self->{column_parent} = undef; $self->{predicate} = undef; $self->{consistency_level} = 1; if (UNIVERSAL::isa($vals,'HASH')) { if (defined $vals->{keyspace}) { $self->{keyspace} = $vals->{keyspace}; } if (defined $vals->{key}) { $self->{key} = $vals->{key}; } if (defined $vals->{column_parent}) { $self->{column_parent} = $vals->{column_parent}; } if (defined $vals->{predicate}) { $self->{predicate} = $vals->{predicate}; } if (defined $vals->{consistency_level}) { $self->{consistency_level} = $vals->{consistency_level}; } } return bless ($self, $classname); } sub getName { return 'Cassandra_get_slice_args'; } sub read { my ($self, $input) = @_; my $xfer = 0; my $fname; my $ftype = 0; my $fid = 0; $xfer += $input->readStructBegin(\$fname); while (1) { $xfer += $input->readFieldBegin(\$fname, \$ftype, \$fid); if ($ftype == TType::STOP) { last; } SWITCH: for($fid) { /^1$/ && do{ if ($ftype == TType::STRING) { $xfer += $input->readString(\$self->{keyspace}); } else { $xfer += $input->skip($ftype); } last; }; /^2$/ && do{ if ($ftype == TType::STRING) { $xfer += $input->readString(\$self->{key}); } else { $xfer += $input->skip($ftype); } last; }; /^3$/ && do{ if ($ftype == TType::STRUCT) { $self->{column_parent} = new Cassandra::ColumnParent(); $xfer += $self->{column_parent}->read($input); } else { $xfer += $input->skip($ftype); } last; }; /^4$/ && do{ if ($ftype == TType::STRUCT) { $self->{predicate} = new Cassandra::SlicePredicate(); $xfer += $self->{predicate}->read($input); } else { $xfer += $input->skip($ftype); } last; }; /^5$/ && do{ if ($ftype == TType::I32) { $xfer += $input->readI32(\$self->{consistency_level}); } else { $xfer += $input->skip($ftype); } last; }; $xfer += $input->skip($ftype); } $xfer += $input->readFieldEnd(); } $xfer += $input->readStructEnd(); return $xfer; } sub write { my ($self, $output) = @_; my $xfer = 0; $xfer += $output->writeStructBegin('Cassandra_get_slice_args'); if (defined $self->{keyspace}) { $xfer += $output->writeFieldBegin('keyspace', TType::STRING, 1); $xfer += $output->writeString($self->{keyspace}); $xfer += $output->writeFieldEnd(); } if (defined $self->{key}) { $xfer += $output->writeFieldBegin('key', TType::STRING, 2); $xfer += $output->writeString($self->{key}); $xfer += $output->writeFieldEnd(); } if (defined $self->{column_parent}) { $xfer += $output->writeFieldBegin('column_parent', TType::STRUCT, 3); $xfer += $self->{column_parent}->write($output); $xfer += $output->writeFieldEnd(); } if (defined $self->{predicate}) { $xfer += $output->writeFieldBegin('predicate', TType::STRUCT, 4); $xfer += $self->{predicate}->write($output); $xfer += $output->writeFieldEnd(); } if (defined $self->{consistency_level}) { $xfer += $output->writeFieldBegin('consistency_level', TType::I32, 5); $xfer += $output->writeI32($self->{consistency_level}); $xfer += $output->writeFieldEnd(); } $xfer += $output->writeFieldStop(); $xfer += $output->writeStructEnd(); return $xfer; } package Cassandra::Cassandra_get_slice_result; use base qw(Class::Accessor); Cassandra::Cassandra_get_slice_result->mk_accessors( qw( success ) ); sub new { my $classname = shift; my $self = {}; my $vals = shift || {}; $self->{success} = undef; $self->{ire} = undef; $self->{ue} = undef; $self->{te} = undef; if (UNIVERSAL::isa($vals,'HASH')) { if (defined $vals->{success}) { $self->{success} = $vals->{success}; } if (defined $vals->{ire}) { $self->{ire} = $vals->{ire}; } if (defined $vals->{ue}) { $self->{ue} = $vals->{ue}; } if (defined $vals->{te}) { $self->{te} = $vals->{te}; } } return bless ($self, $classname); } sub getName { return 'Cassandra_get_slice_result'; } sub read { my ($self, $input) = @_; my $xfer = 0; my $fname; my $ftype = 0; my $fid = 0; $xfer += $input->readStructBegin(\$fname); while (1) { $xfer += $input->readFieldBegin(\$fname, \$ftype, \$fid); if ($ftype == TType::STOP) { last; } SWITCH: for($fid) { /^0$/ && do{ if ($ftype == TType::LIST) { { my $_size37 = 0; $self->{success} = []; my $_etype40 = 0; $xfer += $input->readListBegin(\$_etype40, \$_size37); for (my $_i41 = 0; $_i41 < $_size37; ++$_i41) { my $elem42 = undef; $elem42 = new Cassandra::ColumnOrSuperColumn(); $xfer += $elem42->read($input); push(@{$self->{success}},$elem42); } $xfer += $input->readListEnd(); } } else { $xfer += $input->skip($ftype); } last; }; /^1$/ && do{ if ($ftype == TType::STRUCT) { $self->{ire} = new Cassandra::InvalidRequestException(); $xfer += $self->{ire}->read($input); } else { $xfer += $input->skip($ftype); } last; }; /^2$/ && do{ if ($ftype == TType::STRUCT) { $self->{ue} = new Cassandra::UnavailableException(); $xfer += $self->{ue}->read($input); } else { $xfer += $input->skip($ftype); } last; }; /^3$/ && do{ if ($ftype == TType::STRUCT) { $self->{te} = new Cassandra::TimedOutException(); $xfer += $self->{te}->read($input); } else { $xfer += $input->skip($ftype); } last; }; $xfer += $input->skip($ftype); } $xfer += $input->readFieldEnd(); } $xfer += $input->readStructEnd(); return $xfer; } sub write { my ($self, $output) = @_; my $xfer = 0; $xfer += $output->writeStructBegin('Cassandra_get_slice_result'); if (defined $self->{success}) { $xfer += $output->writeFieldBegin('success', TType::LIST, 0); { $output->writeListBegin(TType::STRUCT, scalar(@{$self->{success}})); { foreach my $iter43 (@{$self->{success}}) { $xfer += ${iter43}->write($output); } } $output->writeListEnd(); } $xfer += $output->writeFieldEnd(); } if (defined $self->{ire}) { $xfer += $output->writeFieldBegin('ire', TType::STRUCT, 1); $xfer += $self->{ire}->write($output); $xfer += $output->writeFieldEnd(); } if (defined $self->{ue}) { $xfer += $output->writeFieldBegin('ue', TType::STRUCT, 2); $xfer += $self->{ue}->write($output); $xfer += $output->writeFieldEnd(); } if (defined $self->{te}) { $xfer += $output->writeFieldBegin('te', TType::STRUCT, 3); $xfer += $self->{te}->write($output); $xfer += $output->writeFieldEnd(); } $xfer += $output->writeFieldStop(); $xfer += $output->writeStructEnd(); return $xfer; } package Cassandra::Cassandra_multiget_args; use base qw(Class::Accessor); Cassandra::Cassandra_multiget_args->mk_accessors( qw( keyspace keys column_path consistency_level ) ); sub new { my $classname = shift; my $self = {}; my $vals = shift || {}; $self->{keyspace} = undef; $self->{keys} = undef; $self->{column_path} = undef; $self->{consistency_level} = 1; if (UNIVERSAL::isa($vals,'HASH')) { if (defined $vals->{keyspace}) { $self->{keyspace} = $vals->{keyspace}; } if (defined $vals->{keys}) { $self->{keys} = $vals->{keys}; } if (defined $vals->{column_path}) { $self->{column_path} = $vals->{column_path}; } if (defined $vals->{consistency_level}) { $self->{consistency_level} = $vals->{consistency_level}; } } return bless ($self, $classname); } sub getName { return 'Cassandra_multiget_args'; } sub read { my ($self, $input) = @_; my $xfer = 0; my $fname; my $ftype = 0; my $fid = 0; $xfer += $input->readStructBegin(\$fname); while (1) { $xfer += $input->readFieldBegin(\$fname, \$ftype, \$fid); if ($ftype == TType::STOP) { last; } SWITCH: for($fid) { /^1$/ && do{ if ($ftype == TType::STRING) { $xfer += $input->readString(\$self->{keyspace}); } else { $xfer += $input->skip($ftype); } last; }; /^2$/ && do{ if ($ftype == TType::LIST) { { my $_size44 = 0; $self->{keys} = []; my $_etype47 = 0; $xfer += $input->readListBegin(\$_etype47, \$_size44); for (my $_i48 = 0; $_i48 < $_size44; ++$_i48) { my $elem49 = undef; $xfer += $input->readString(\$elem49); push(@{$self->{keys}},$elem49); } $xfer += $input->readListEnd(); } } else { $xfer += $input->skip($ftype); } last; }; /^3$/ && do{ if ($ftype == TType::STRUCT) { $self->{column_path} = new Cassandra::ColumnPath(); $xfer += $self->{column_path}->read($input); } else { $xfer += $input->skip($ftype); } last; }; /^4$/ && do{ if ($ftype == TType::I32) { $xfer += $input->readI32(\$self->{consistency_level}); } else { $xfer += $input->skip($ftype); } last; }; $xfer += $input->skip($ftype); } $xfer += $input->readFieldEnd(); } $xfer += $input->readStructEnd(); return $xfer; } sub write { my ($self, $output) = @_; my $xfer = 0; $xfer += $output->writeStructBegin('Cassandra_multiget_args'); if (defined $self->{keyspace}) { $xfer += $output->writeFieldBegin('keyspace', TType::STRING, 1); $xfer += $output->writeString($self->{keyspace}); $xfer += $output->writeFieldEnd(); } if (defined $self->{keys}) { $xfer += $output->writeFieldBegin('keys', TType::LIST, 2); { $output->writeListBegin(TType::STRING, scalar(@{$self->{keys}})); { foreach my $iter50 (@{$self->{keys}}) { $xfer += $output->writeString($iter50); } } $output->writeListEnd(); } $xfer += $output->writeFieldEnd(); } if (defined $self->{column_path}) { $xfer += $output->writeFieldBegin('column_path', TType::STRUCT, 3); $xfer += $self->{column_path}->write($output); $xfer += $output->writeFieldEnd(); } if (defined $self->{consistency_level}) { $xfer += $output->writeFieldBegin('consistency_level', TType::I32, 4); $xfer += $output->writeI32($self->{consistency_level}); $xfer += $output->writeFieldEnd(); } $xfer += $output->writeFieldStop(); $xfer += $output->writeStructEnd(); return $xfer; } package Cassandra::Cassandra_multiget_result; use base qw(Class::Accessor); Cassandra::Cassandra_multiget_result->mk_accessors( qw( success ) ); sub new { my $classname = shift; my $self = {}; my $vals = shift || {}; $self->{success} = undef; $self->{ire} = undef; $self->{ue} = undef; $self->{te} = undef; if (UNIVERSAL::isa($vals,'HASH')) { if (defined $vals->{success}) { $self->{success} = $vals->{success}; } if (defined $vals->{ire}) { $self->{ire} = $vals->{ire}; } if (defined $vals->{ue}) { $self->{ue} = $vals->{ue}; } if (defined $vals->{te}) { $self->{te} = $vals->{te}; } } return bless ($self, $classname); } sub getName { return 'Cassandra_multiget_result'; } sub read { my ($self, $input) = @_; my $xfer = 0; my $fname; my $ftype = 0; my $fid = 0; $xfer += $input->readStructBegin(\$fname); while (1) { $xfer += $input->readFieldBegin(\$fname, \$ftype, \$fid); if ($ftype == TType::STOP) { last; } SWITCH: for($fid) { /^0$/ && do{ if ($ftype == TType::MAP) { { my $_size51 = 0; $self->{success} = {}; my $_ktype52 = 0; my $_vtype53 = 0; $xfer += $input->readMapBegin(\$_ktype52, \$_vtype53, \$_size51); for (my $_i55 = 0; $_i55 < $_size51; ++$_i55) { my $key56 = ''; my $val57 = new Cassandra::ColumnOrSuperColumn(); $xfer += $input->readString(\$key56); $val57 = new Cassandra::ColumnOrSuperColumn(); $xfer += $val57->read($input); $self->{success}->{$key56} = $val57; } $xfer += $input->readMapEnd(); } } else { $xfer += $input->skip($ftype); } last; }; /^1$/ && do{ if ($ftype == TType::STRUCT) { $self->{ire} = new Cassandra::InvalidRequestException(); $xfer += $self->{ire}->read($input); } else { $xfer += $input->skip($ftype); } last; }; /^2$/ && do{ if ($ftype == TType::STRUCT) { $self->{ue} = new Cassandra::UnavailableException(); $xfer += $self->{ue}->read($input); } else { $xfer += $input->skip($ftype); } last; }; /^3$/ && do{ if ($ftype == TType::STRUCT) { $self->{te} = new Cassandra::TimedOutException(); $xfer += $self->{te}->read($input); } else { $xfer += $input->skip($ftype); } last; }; $xfer += $input->skip($ftype); } $xfer += $input->readFieldEnd(); } $xfer += $input->readStructEnd(); return $xfer; } sub write { my ($self, $output) = @_; my $xfer = 0; $xfer += $output->writeStructBegin('Cassandra_multiget_result'); if (defined $self->{success}) { $xfer += $output->writeFieldBegin('success', TType::MAP, 0); { $output->writeMapBegin(TType::STRING, TType::STRUCT, scalar(keys %{$self->{success}})); { while( my ($kiter58,$viter59) = each %{$self->{success}}) { $xfer += $output->writeString($kiter58); $xfer += ${viter59}->write($output); } } $output->writeMapEnd(); } $xfer += $output->writeFieldEnd(); } if (defined $self->{ire}) { $xfer += $output->writeFieldBegin('ire', TType::STRUCT, 1); $xfer += $self->{ire}->write($output); $xfer += $output->writeFieldEnd(); } if (defined $self->{ue}) { $xfer += $output->writeFieldBegin('ue', TType::STRUCT, 2); $xfer += $self->{ue}->write($output); $xfer += $output->writeFieldEnd(); } if (defined $self->{te}) { $xfer += $output->writeFieldBegin('te', TType::STRUCT, 3); $xfer += $self->{te}->write($output); $xfer += $output->writeFieldEnd(); } $xfer += $output->writeFieldStop(); $xfer += $output->writeStructEnd(); return $xfer; } package Cassandra::Cassandra_multiget_slice_args; use base qw(Class::Accessor); Cassandra::Cassandra_multiget_slice_args->mk_accessors( qw( keyspace keys column_parent predicate consistency_level ) ); sub new { my $classname = shift; my $self = {}; my $vals = shift || {}; $self->{keyspace} = undef; $self->{keys} = undef; $self->{column_parent} = undef; $self->{predicate} = undef; $self->{consistency_level} = 1; if (UNIVERSAL::isa($vals,'HASH')) { if (defined $vals->{keyspace}) { $self->{keyspace} = $vals->{keyspace}; } if (defined $vals->{keys}) { $self->{keys} = $vals->{keys}; } if (defined $vals->{column_parent}) { $self->{column_parent} = $vals->{column_parent}; } if (defined $vals->{predicate}) { $self->{predicate} = $vals->{predicate}; } if (defined $vals->{consistency_level}) { $self->{consistency_level} = $vals->{consistency_level}; } } return bless ($self, $classname); } sub getName { return 'Cassandra_multiget_slice_args'; } sub read { my ($self, $input) = @_; my $xfer = 0; my $fname; my $ftype = 0; my $fid = 0; $xfer += $input->readStructBegin(\$fname); while (1) { $xfer += $input->readFieldBegin(\$fname, \$ftype, \$fid); if ($ftype == TType::STOP) { last; } SWITCH: for($fid) { /^1$/ && do{ if ($ftype == TType::STRING) { $xfer += $input->readString(\$self->{keyspace}); } else { $xfer += $input->skip($ftype); } last; }; /^2$/ && do{ if ($ftype == TType::LIST) { { my $_size60 = 0; $self->{keys} = []; my $_etype63 = 0; $xfer += $input->readListBegin(\$_etype63, \$_size60); for (my $_i64 = 0; $_i64 < $_size60; ++$_i64) { my $elem65 = undef; $xfer += $input->readString(\$elem65); push(@{$self->{keys}},$elem65); } $xfer += $input->readListEnd(); } } else { $xfer += $input->skip($ftype); } last; }; /^3$/ && do{ if ($ftype == TType::STRUCT) { $self->{column_parent} = new Cassandra::ColumnParent(); $xfer += $self->{column_parent}->read($input); } else { $xfer += $input->skip($ftype); } last; }; /^4$/ && do{ if ($ftype == TType::STRUCT) { $self->{predicate} = new Cassandra::SlicePredicate(); $xfer += $self->{predicate}->read($input); } else { $xfer += $input->skip($ftype); } last; }; /^5$/ && do{ if ($ftype == TType::I32) { $xfer += $input->readI32(\$self->{consistency_level}); } else { $xfer += $input->skip($ftype); } last; }; $xfer += $input->skip($ftype); } $xfer += $input->readFieldEnd(); } $xfer += $input->readStructEnd(); return $xfer; } sub write { my ($self, $output) = @_; my $xfer = 0; $xfer += $output->writeStructBegin('Cassandra_multiget_slice_args'); if (defined $self->{keyspace}) { $xfer += $output->writeFieldBegin('keyspace', TType::STRING, 1); $xfer += $output->writeString($self->{keyspace}); $xfer += $output->writeFieldEnd(); } if (defined $self->{keys}) { $xfer += $output->writeFieldBegin('keys', TType::LIST, 2); { $output->writeListBegin(TType::STRING, scalar(@{$self->{keys}})); { foreach my $iter66 (@{$self->{keys}}) { $xfer += $output->writeString($iter66); } } $output->writeListEnd(); } $xfer += $output->writeFieldEnd(); } if (defined $self->{column_parent}) { $xfer += $output->writeFieldBegin('column_parent', TType::STRUCT, 3); $xfer += $self->{column_parent}->write($output); $xfer += $output->writeFieldEnd(); } if (defined $self->{predicate}) { $xfer += $output->writeFieldBegin('predicate', TType::STRUCT, 4); $xfer += $self->{predicate}->write($output); $xfer += $output->writeFieldEnd(); } if (defined $self->{consistency_level}) { $xfer += $output->writeFieldBegin('consistency_level', TType::I32, 5); $xfer += $output->writeI32($self->{consistency_level}); $xfer += $output->writeFieldEnd(); } $xfer += $output->writeFieldStop(); $xfer += $output->writeStructEnd(); return $xfer; } package Cassandra::Cassandra_multiget_slice_result; use base qw(Class::Accessor); Cassandra::Cassandra_multiget_slice_result->mk_accessors( qw( success ) ); sub new { my $classname = shift; my $self = {}; my $vals = shift || {}; $self->{success} = undef; $self->{ire} = undef; $self->{ue} = undef; $self->{te} = undef; if (UNIVERSAL::isa($vals,'HASH')) { if (defined $vals->{success}) { $self->{success} = $vals->{success}; } if (defined $vals->{ire}) { $self->{ire} = $vals->{ire}; } if (defined $vals->{ue}) { $self->{ue} = $vals->{ue}; } if (defined $vals->{te}) { $self->{te} = $vals->{te}; } } return bless ($self, $classname); } sub getName { return 'Cassandra_multiget_slice_result'; } sub read { my ($self, $input) = @_; my $xfer = 0; my $fname; my $ftype = 0; my $fid = 0; $xfer += $input->readStructBegin(\$fname); while (1) { $xfer += $input->readFieldBegin(\$fname, \$ftype, \$fid); if ($ftype == TType::STOP) { last; } SWITCH: for($fid) { /^0$/ && do{ if ($ftype == TType::MAP) { { my $_size67 = 0; $self->{success} = {}; my $_ktype68 = 0; my $_vtype69 = 0; $xfer += $input->readMapBegin(\$_ktype68, \$_vtype69, \$_size67); for (my $_i71 = 0; $_i71 < $_size67; ++$_i71) { my $key72 = ''; my $val73 = []; $xfer += $input->readString(\$key72); { my $_size74 = 0; $val73 = []; my $_etype77 = 0; $xfer += $input->readListBegin(\$_etype77, \$_size74); for (my $_i78 = 0; $_i78 < $_size74; ++$_i78) { my $elem79 = undef; $elem79 = new Cassandra::ColumnOrSuperColumn(); $xfer += $elem79->read($input); push(@{$val73},$elem79); } $xfer += $input->readListEnd(); } $self->{success}->{$key72} = $val73; } $xfer += $input->readMapEnd(); } } else { $xfer += $input->skip($ftype); } last; }; /^1$/ && do{ if ($ftype == TType::STRUCT) { $self->{ire} = new Cassandra::InvalidRequestException(); $xfer += $self->{ire}->read($input); } else { $xfer += $input->skip($ftype); } last; }; /^2$/ && do{ if ($ftype == TType::STRUCT) { $self->{ue} = new Cassandra::UnavailableException(); $xfer += $self->{ue}->read($input); } else { $xfer += $input->skip($ftype); } last; }; /^3$/ && do{ if ($ftype == TType::STRUCT) { $self->{te} = new Cassandra::TimedOutException(); $xfer += $self->{te}->read($input); } else { $xfer += $input->skip($ftype); } last; }; $xfer += $input->skip($ftype); } $xfer += $input->readFieldEnd(); } $xfer += $input->readStructEnd(); return $xfer; } sub write { my ($self, $output) = @_; my $xfer = 0; $xfer += $output->writeStructBegin('Cassandra_multiget_slice_result'); if (defined $self->{success}) { $xfer += $output->writeFieldBegin('success', TType::MAP, 0); { $output->writeMapBegin(TType::STRING, TType::LIST, scalar(keys %{$self->{success}})); { while( my ($kiter80,$viter81) = each %{$self->{success}}) { $xfer += $output->writeString($kiter80); { $output->writeListBegin(TType::STRUCT, scalar(@{${viter81}})); { foreach my $iter82 (@{${viter81}}) { $xfer += ${iter82}->write($output); } } $output->writeListEnd(); } } } $output->writeMapEnd(); } $xfer += $output->writeFieldEnd(); } if (defined $self->{ire}) { $xfer += $output->writeFieldBegin('ire', TType::STRUCT, 1); $xfer += $self->{ire}->write($output); $xfer += $output->writeFieldEnd(); } if (defined $self->{ue}) { $xfer += $output->writeFieldBegin('ue', TType::STRUCT, 2); $xfer += $self->{ue}->write($output); $xfer += $output->writeFieldEnd(); } if (defined $self->{te}) { $xfer += $output->writeFieldBegin('te', TType::STRUCT, 3); $xfer += $self->{te}->write($output); $xfer += $output->writeFieldEnd(); } $xfer += $output->writeFieldStop(); $xfer += $output->writeStructEnd(); return $xfer; } package Cassandra::Cassandra_get_count_args; use base qw(Class::Accessor); Cassandra::Cassandra_get_count_args->mk_accessors( qw( keyspace key column_parent consistency_level ) ); sub new { my $classname = shift; my $self = {}; my $vals = shift || {}; $self->{keyspace} = undef; $self->{key} = undef; $self->{column_parent} = undef; $self->{consistency_level} = 1; if (UNIVERSAL::isa($vals,'HASH')) { if (defined $vals->{keyspace}) { $self->{keyspace} = $vals->{keyspace}; } if (defined $vals->{key}) { $self->{key} = $vals->{key}; } if (defined $vals->{column_parent}) { $self->{column_parent} = $vals->{column_parent}; } if (defined $vals->{consistency_level}) { $self->{consistency_level} = $vals->{consistency_level}; } } return bless ($self, $classname); } sub getName { return 'Cassandra_get_count_args'; } sub read { my ($self, $input) = @_; my $xfer = 0; my $fname; my $ftype = 0; my $fid = 0; $xfer += $input->readStructBegin(\$fname); while (1) { $xfer += $input->readFieldBegin(\$fname, \$ftype, \$fid); if ($ftype == TType::STOP) { last; } SWITCH: for($fid) { /^1$/ && do{ if ($ftype == TType::STRING) { $xfer += $input->readString(\$self->{keyspace}); } else { $xfer += $input->skip($ftype); } last; }; /^2$/ && do{ if ($ftype == TType::STRING) { $xfer += $input->readString(\$self->{key}); } else { $xfer += $input->skip($ftype); } last; }; /^3$/ && do{ if ($ftype == TType::STRUCT) { $self->{column_parent} = new Cassandra::ColumnParent(); $xfer += $self->{column_parent}->read($input); } else { $xfer += $input->skip($ftype); } last; }; /^4$/ && do{ if ($ftype == TType::I32) { $xfer += $input->readI32(\$self->{consistency_level}); } else { $xfer += $input->skip($ftype); } last; }; $xfer += $input->skip($ftype); } $xfer += $input->readFieldEnd(); } $xfer += $input->readStructEnd(); return $xfer; } sub write { my ($self, $output) = @_; my $xfer = 0; $xfer += $output->writeStructBegin('Cassandra_get_count_args'); if (defined $self->{keyspace}) { $xfer += $output->writeFieldBegin('keyspace', TType::STRING, 1); $xfer += $output->writeString($self->{keyspace}); $xfer += $output->writeFieldEnd(); } if (defined $self->{key}) { $xfer += $output->writeFieldBegin('key', TType::STRING, 2); $xfer += $output->writeString($self->{key}); $xfer += $output->writeFieldEnd(); } if (defined $self->{column_parent}) { $xfer += $output->writeFieldBegin('column_parent', TType::STRUCT, 3); $xfer += $self->{column_parent}->write($output); $xfer += $output->writeFieldEnd(); } if (defined $self->{consistency_level}) { $xfer += $output->writeFieldBegin('consistency_level', TType::I32, 4); $xfer += $output->writeI32($self->{consistency_level}); $xfer += $output->writeFieldEnd(); } $xfer += $output->writeFieldStop(); $xfer += $output->writeStructEnd(); return $xfer; } package Cassandra::Cassandra_get_count_result; use base qw(Class::Accessor); Cassandra::Cassandra_get_count_result->mk_accessors( qw( success ) ); sub new { my $classname = shift; my $self = {}; my $vals = shift || {}; $self->{success} = undef; $self->{ire} = undef; $self->{ue} = undef; $self->{te} = undef; if (UNIVERSAL::isa($vals,'HASH')) { if (defined $vals->{success}) { $self->{success} = $vals->{success}; } if (defined $vals->{ire}) { $self->{ire} = $vals->{ire}; } if (defined $vals->{ue}) { $self->{ue} = $vals->{ue}; } if (defined $vals->{te}) { $self->{te} = $vals->{te}; } } return bless ($self, $classname); } sub getName { return 'Cassandra_get_count_result'; } sub read { my ($self, $input) = @_; my $xfer = 0; my $fname; my $ftype = 0; my $fid = 0; $xfer += $input->readStructBegin(\$fname); while (1) { $xfer += $input->readFieldBegin(\$fname, \$ftype, \$fid); if ($ftype == TType::STOP) { last; } SWITCH: for($fid) { /^0$/ && do{ if ($ftype == TType::I32) { $xfer += $input->readI32(\$self->{success}); } else { $xfer += $input->skip($ftype); } last; }; /^1$/ && do{ if ($ftype == TType::STRUCT) { $self->{ire} = new Cassandra::InvalidRequestException(); $xfer += $self->{ire}->read($input); } else { $xfer += $input->skip($ftype); } last; }; /^2$/ && do{ if ($ftype == TType::STRUCT) { $self->{ue} = new Cassandra::UnavailableException(); $xfer += $self->{ue}->read($input); } else { $xfer += $input->skip($ftype); } last; }; /^3$/ && do{ if ($ftype == TType::STRUCT) { $self->{te} = new Cassandra::TimedOutException(); $xfer += $self->{te}->read($input); } else { $xfer += $input->skip($ftype); } last; }; $xfer += $input->skip($ftype); } $xfer += $input->readFieldEnd(); } $xfer += $input->readStructEnd(); return $xfer; } sub write { my ($self, $output) = @_; my $xfer = 0; $xfer += $output->writeStructBegin('Cassandra_get_count_result'); if (defined $self->{success}) { $xfer += $output->writeFieldBegin('success', TType::I32, 0); $xfer += $output->writeI32($self->{success}); $xfer += $output->writeFieldEnd(); } if (defined $self->{ire}) { $xfer += $output->writeFieldBegin('ire', TType::STRUCT, 1); $xfer += $self->{ire}->write($output); $xfer += $output->writeFieldEnd(); } if (defined $self->{ue}) { $xfer += $output->writeFieldBegin('ue', TType::STRUCT, 2); $xfer += $self->{ue}->write($output); $xfer += $output->writeFieldEnd(); } if (defined $self->{te}) { $xfer += $output->writeFieldBegin('te', TType::STRUCT, 3); $xfer += $self->{te}->write($output); $xfer += $output->writeFieldEnd(); } $xfer += $output->writeFieldStop(); $xfer += $output->writeStructEnd(); return $xfer; } package Cassandra::Cassandra_get_range_slice_args; use base qw(Class::Accessor); Cassandra::Cassandra_get_range_slice_args->mk_accessors( qw( keyspace column_parent predicate start_key finish_key row_count consistency_level ) ); sub new { my $classname = shift; my $self = {}; my $vals = shift || {}; $self->{keyspace} = undef; $self->{column_parent} = undef; $self->{predicate} = undef; $self->{start_key} = ""; $self->{finish_key} = ""; $self->{row_count} = 100; $self->{consistency_level} = 1; if (UNIVERSAL::isa($vals,'HASH')) { if (defined $vals->{keyspace}) { $self->{keyspace} = $vals->{keyspace}; } if (defined $vals->{column_parent}) { $self->{column_parent} = $vals->{column_parent}; } if (defined $vals->{predicate}) { $self->{predicate} = $vals->{predicate}; } if (defined $vals->{start_key}) { $self->{start_key} = $vals->{start_key}; } if (defined $vals->{finish_key}) { $self->{finish_key} = $vals->{finish_key}; } if (defined $vals->{row_count}) { $self->{row_count} = $vals->{row_count}; } if (defined $vals->{consistency_level}) { $self->{consistency_level} = $vals->{consistency_level}; } } return bless ($self, $classname); } sub getName { return 'Cassandra_get_range_slice_args'; } sub read { my ($self, $input) = @_; my $xfer = 0; my $fname; my $ftype = 0; my $fid = 0; $xfer += $input->readStructBegin(\$fname); while (1) { $xfer += $input->readFieldBegin(\$fname, \$ftype, \$fid); if ($ftype == TType::STOP) { last; } SWITCH: for($fid) { /^1$/ && do{ if ($ftype == TType::STRING) { $xfer += $input->readString(\$self->{keyspace}); } else { $xfer += $input->skip($ftype); } last; }; /^2$/ && do{ if ($ftype == TType::STRUCT) { $self->{column_parent} = new Cassandra::ColumnParent(); $xfer += $self->{column_parent}->read($input); } else { $xfer += $input->skip($ftype); } last; }; /^3$/ && do{ if ($ftype == TType::STRUCT) { $self->{predicate} = new Cassandra::SlicePredicate(); $xfer += $self->{predicate}->read($input); } else { $xfer += $input->skip($ftype); } last; }; /^4$/ && do{ if ($ftype == TType::STRING) { $xfer += $input->readString(\$self->{start_key}); } else { $xfer += $input->skip($ftype); } last; }; /^5$/ && do{ if ($ftype == TType::STRING) { $xfer += $input->readString(\$self->{finish_key}); } else { $xfer += $input->skip($ftype); } last; }; /^6$/ && do{ if ($ftype == TType::I32) { $xfer += $input->readI32(\$self->{row_count}); } else { $xfer += $input->skip($ftype); } last; }; /^7$/ && do{ if ($ftype == TType::I32) { $xfer += $input->readI32(\$self->{consistency_level}); } else { $xfer += $input->skip($ftype); } last; }; $xfer += $input->skip($ftype); } $xfer += $input->readFieldEnd(); } $xfer += $input->readStructEnd(); return $xfer; } sub write { my ($self, $output) = @_; my $xfer = 0; $xfer += $output->writeStructBegin('Cassandra_get_range_slice_args'); if (defined $self->{keyspace}) { $xfer += $output->writeFieldBegin('keyspace', TType::STRING, 1); $xfer += $output->writeString($self->{keyspace}); $xfer += $output->writeFieldEnd(); } if (defined $self->{column_parent}) { $xfer += $output->writeFieldBegin('column_parent', TType::STRUCT, 2); $xfer += $self->{column_parent}->write($output); $xfer += $output->writeFieldEnd(); } if (defined $self->{predicate}) { $xfer += $output->writeFieldBegin('predicate', TType::STRUCT, 3); $xfer += $self->{predicate}->write($output); $xfer += $output->writeFieldEnd(); } if (defined $self->{start_key}) { $xfer += $output->writeFieldBegin('start_key', TType::STRING, 4); $xfer += $output->writeString($self->{start_key}); $xfer += $output->writeFieldEnd(); } if (defined $self->{finish_key}) { $xfer += $output->writeFieldBegin('finish_key', TType::STRING, 5); $xfer += $output->writeString($self->{finish_key}); $xfer += $output->writeFieldEnd(); } if (defined $self->{row_count}) { $xfer += $output->writeFieldBegin('row_count', TType::I32, 6); $xfer += $output->writeI32($self->{row_count}); $xfer += $output->writeFieldEnd(); } if (defined $self->{consistency_level}) { $xfer += $output->writeFieldBegin('consistency_level', TType::I32, 7); $xfer += $output->writeI32($self->{consistency_level}); $xfer += $output->writeFieldEnd(); } $xfer += $output->writeFieldStop(); $xfer += $output->writeStructEnd(); return $xfer; } package Cassandra::Cassandra_get_range_slice_result; use base qw(Class::Accessor); Cassandra::Cassandra_get_range_slice_result->mk_accessors( qw( success ) ); sub new { my $classname = shift; my $self = {}; my $vals = shift || {}; $self->{success} = undef; $self->{ire} = undef; $self->{ue} = undef; $self->{te} = undef; if (UNIVERSAL::isa($vals,'HASH')) { if (defined $vals->{success}) { $self->{success} = $vals->{success}; } if (defined $vals->{ire}) { $self->{ire} = $vals->{ire}; } if (defined $vals->{ue}) { $self->{ue} = $vals->{ue}; } if (defined $vals->{te}) { $self->{te} = $vals->{te}; } } return bless ($self, $classname); } sub getName { return 'Cassandra_get_range_slice_result'; } sub read { my ($self, $input) = @_; my $xfer = 0; my $fname; my $ftype = 0; my $fid = 0; $xfer += $input->readStructBegin(\$fname); while (1) { $xfer += $input->readFieldBegin(\$fname, \$ftype, \$fid); if ($ftype == TType::STOP) { last; } SWITCH: for($fid) { /^0$/ && do{ if ($ftype == TType::LIST) { { my $_size83 = 0; $self->{success} = []; my $_etype86 = 0; $xfer += $input->readListBegin(\$_etype86, \$_size83); for (my $_i87 = 0; $_i87 < $_size83; ++$_i87) { my $elem88 = undef; $elem88 = new Cassandra::KeySlice(); $xfer += $elem88->read($input); push(@{$self->{success}},$elem88); } $xfer += $input->readListEnd(); } } else { $xfer += $input->skip($ftype); } last; }; /^1$/ && do{ if ($ftype == TType::STRUCT) { $self->{ire} = new Cassandra::InvalidRequestException(); $xfer += $self->{ire}->read($input); } else { $xfer += $input->skip($ftype); } last; }; /^2$/ && do{ if ($ftype == TType::STRUCT) { $self->{ue} = new Cassandra::UnavailableException(); $xfer += $self->{ue}->read($input); } else { $xfer += $input->skip($ftype); } last; }; /^3$/ && do{ if ($ftype == TType::STRUCT) { $self->{te} = new Cassandra::TimedOutException(); $xfer += $self->{te}->read($input); } else { $xfer += $input->skip($ftype); } last; }; $xfer += $input->skip($ftype); } $xfer += $input->readFieldEnd(); } $xfer += $input->readStructEnd(); return $xfer; } sub write { my ($self, $output) = @_; my $xfer = 0; $xfer += $output->writeStructBegin('Cassandra_get_range_slice_result'); if (defined $self->{success}) { $xfer += $output->writeFieldBegin('success', TType::LIST, 0); { $output->writeListBegin(TType::STRUCT, scalar(@{$self->{success}})); { foreach my $iter89 (@{$self->{success}}) { $xfer += ${iter89}->write($output); } } $output->writeListEnd(); } $xfer += $output->writeFieldEnd(); } if (defined $self->{ire}) { $xfer += $output->writeFieldBegin('ire', TType::STRUCT, 1); $xfer += $self->{ire}->write($output); $xfer += $output->writeFieldEnd(); } if (defined $self->{ue}) { $xfer += $output->writeFieldBegin('ue', TType::STRUCT, 2); $xfer += $self->{ue}->write($output); $xfer += $output->writeFieldEnd(); } if (defined $self->{te}) { $xfer += $output->writeFieldBegin('te', TType::STRUCT, 3); $xfer += $self->{te}->write($output); $xfer += $output->writeFieldEnd(); } $xfer += $output->writeFieldStop(); $xfer += $output->writeStructEnd(); return $xfer; } package Cassandra::Cassandra_get_range_slices_args; use base qw(Class::Accessor); Cassandra::Cassandra_get_range_slices_args->mk_accessors( qw( keyspace column_parent predicate range consistency_level ) ); sub new { my $classname = shift; my $self = {}; my $vals = shift || {}; $self->{keyspace} = undef; $self->{column_parent} = undef; $self->{predicate} = undef; $self->{range} = undef; $self->{consistency_level} = 1; if (UNIVERSAL::isa($vals,'HASH')) { if (defined $vals->{keyspace}) { $self->{keyspace} = $vals->{keyspace}; } if (defined $vals->{column_parent}) { $self->{column_parent} = $vals->{column_parent}; } if (defined $vals->{predicate}) { $self->{predicate} = $vals->{predicate}; } if (defined $vals->{range}) { $self->{range} = $vals->{range}; } if (defined $vals->{consistency_level}) { $self->{consistency_level} = $vals->{consistency_level}; } } return bless ($self, $classname); } sub getName { return 'Cassandra_get_range_slices_args'; } sub read { my ($self, $input) = @_; my $xfer = 0; my $fname; my $ftype = 0; my $fid = 0; $xfer += $input->readStructBegin(\$fname); while (1) { $xfer += $input->readFieldBegin(\$fname, \$ftype, \$fid); if ($ftype == TType::STOP) { last; } SWITCH: for($fid) { /^1$/ && do{ if ($ftype == TType::STRING) { $xfer += $input->readString(\$self->{keyspace}); } else { $xfer += $input->skip($ftype); } last; }; /^2$/ && do{ if ($ftype == TType::STRUCT) { $self->{column_parent} = new Cassandra::ColumnParent(); $xfer += $self->{column_parent}->read($input); } else { $xfer += $input->skip($ftype); } last; }; /^3$/ && do{ if ($ftype == TType::STRUCT) { $self->{predicate} = new Cassandra::SlicePredicate(); $xfer += $self->{predicate}->read($input); } else { $xfer += $input->skip($ftype); } last; }; /^4$/ && do{ if ($ftype == TType::STRUCT) { $self->{range} = new Cassandra::KeyRange(); $xfer += $self->{range}->read($input); } else { $xfer += $input->skip($ftype); } last; }; /^5$/ && do{ if ($ftype == TType::I32) { $xfer += $input->readI32(\$self->{consistency_level}); } else { $xfer += $input->skip($ftype); } last; }; $xfer += $input->skip($ftype); } $xfer += $input->readFieldEnd(); } $xfer += $input->readStructEnd(); return $xfer; } sub write { my ($self, $output) = @_; my $xfer = 0; $xfer += $output->writeStructBegin('Cassandra_get_range_slices_args'); if (defined $self->{keyspace}) { $xfer += $output->writeFieldBegin('keyspace', TType::STRING, 1); $xfer += $output->writeString($self->{keyspace}); $xfer += $output->writeFieldEnd(); } if (defined $self->{column_parent}) { $xfer += $output->writeFieldBegin('column_parent', TType::STRUCT, 2); $xfer += $self->{column_parent}->write($output); $xfer += $output->writeFieldEnd(); } if (defined $self->{predicate}) { $xfer += $output->writeFieldBegin('predicate', TType::STRUCT, 3); $xfer += $self->{predicate}->write($output); $xfer += $output->writeFieldEnd(); } if (defined $self->{range}) { $xfer += $output->writeFieldBegin('range', TType::STRUCT, 4); $xfer += $self->{range}->write($output); $xfer += $output->writeFieldEnd(); } if (defined $self->{consistency_level}) { $xfer += $output->writeFieldBegin('consistency_level', TType::I32, 5); $xfer += $output->writeI32($self->{consistency_level}); $xfer += $output->writeFieldEnd(); } $xfer += $output->writeFieldStop(); $xfer += $output->writeStructEnd(); return $xfer; } package Cassandra::Cassandra_get_range_slices_result; use base qw(Class::Accessor); Cassandra::Cassandra_get_range_slices_result->mk_accessors( qw( success ) ); sub new { my $classname = shift; my $self = {}; my $vals = shift || {}; $self->{success} = undef; $self->{ire} = undef; $self->{ue} = undef; $self->{te} = undef; if (UNIVERSAL::isa($vals,'HASH')) { if (defined $vals->{success}) { $self->{success} = $vals->{success}; } if (defined $vals->{ire}) { $self->{ire} = $vals->{ire}; } if (defined $vals->{ue}) { $self->{ue} = $vals->{ue}; } if (defined $vals->{te}) { $self->{te} = $vals->{te}; } } return bless ($self, $classname); } sub getName { return 'Cassandra_get_range_slices_result'; } sub read { my ($self, $input) = @_; my $xfer = 0; my $fname; my $ftype = 0; my $fid = 0; $xfer += $input->readStructBegin(\$fname); while (1) { $xfer += $input->readFieldBegin(\$fname, \$ftype, \$fid); if ($ftype == TType::STOP) { last; } SWITCH: for($fid) { /^0$/ && do{ if ($ftype == TType::LIST) { { my $_size90 = 0; $self->{success} = []; my $_etype93 = 0; $xfer += $input->readListBegin(\$_etype93, \$_size90); for (my $_i94 = 0; $_i94 < $_size90; ++$_i94) { my $elem95 = undef; $elem95 = new Cassandra::KeySlice(); $xfer += $elem95->read($input); push(@{$self->{success}},$elem95); } $xfer += $input->readListEnd(); } } else { $xfer += $input->skip($ftype); } last; }; /^1$/ && do{ if ($ftype == TType::STRUCT) { $self->{ire} = new Cassandra::InvalidRequestException(); $xfer += $self->{ire}->read($input); } else { $xfer += $input->skip($ftype); } last; }; /^2$/ && do{ if ($ftype == TType::STRUCT) { $self->{ue} = new Cassandra::UnavailableException(); $xfer += $self->{ue}->read($input); } else { $xfer += $input->skip($ftype); } last; }; /^3$/ && do{ if ($ftype == TType::STRUCT) { $self->{te} = new Cassandra::TimedOutException(); $xfer += $self->{te}->read($input); } else { $xfer += $input->skip($ftype); } last; }; $xfer += $input->skip($ftype); } $xfer += $input->readFieldEnd(); } $xfer += $input->readStructEnd(); return $xfer; } sub write { my ($self, $output) = @_; my $xfer = 0; $xfer += $output->writeStructBegin('Cassandra_get_range_slices_result'); if (defined $self->{success}) { $xfer += $output->writeFieldBegin('success', TType::LIST, 0); { $output->writeListBegin(TType::STRUCT, scalar(@{$self->{success}})); { foreach my $iter96 (@{$self->{success}}) { $xfer += ${iter96}->write($output); } } $output->writeListEnd(); } $xfer += $output->writeFieldEnd(); } if (defined $self->{ire}) { $xfer += $output->writeFieldBegin('ire', TType::STRUCT, 1); $xfer += $self->{ire}->write($output); $xfer += $output->writeFieldEnd(); } if (defined $self->{ue}) { $xfer += $output->writeFieldBegin('ue', TType::STRUCT, 2); $xfer += $self->{ue}->write($output); $xfer += $output->writeFieldEnd(); } if (defined $self->{te}) { $xfer += $output->writeFieldBegin('te', TType::STRUCT, 3); $xfer += $self->{te}->write($output); $xfer += $output->writeFieldEnd(); } $xfer += $output->writeFieldStop(); $xfer += $output->writeStructEnd(); return $xfer; } package Cassandra::Cassandra_insert_args; use base qw(Class::Accessor); Cassandra::Cassandra_insert_args->mk_accessors( qw( keyspace key column_path value timestamp consistency_level ) ); sub new { my $classname = shift; my $self = {}; my $vals = shift || {}; $self->{keyspace} = undef; $self->{key} = undef; $self->{column_path} = undef; $self->{value} = undef; $self->{timestamp} = undef; $self->{consistency_level} = 1; if (UNIVERSAL::isa($vals,'HASH')) { if (defined $vals->{keyspace}) { $self->{keyspace} = $vals->{keyspace}; } if (defined $vals->{key}) { $self->{key} = $vals->{key}; } if (defined $vals->{column_path}) { $self->{column_path} = $vals->{column_path}; } if (defined $vals->{value}) { $self->{value} = $vals->{value}; } if (defined $vals->{timestamp}) { $self->{timestamp} = $vals->{timestamp}; } if (defined $vals->{consistency_level}) { $self->{consistency_level} = $vals->{consistency_level}; } } return bless ($self, $classname); } sub getName { return 'Cassandra_insert_args'; } sub read { my ($self, $input) = @_; my $xfer = 0; my $fname; my $ftype = 0; my $fid = 0; $xfer += $input->readStructBegin(\$fname); while (1) { $xfer += $input->readFieldBegin(\$fname, \$ftype, \$fid); if ($ftype == TType::STOP) { last; } SWITCH: for($fid) { /^1$/ && do{ if ($ftype == TType::STRING) { $xfer += $input->readString(\$self->{keyspace}); } else { $xfer += $input->skip($ftype); } last; }; /^2$/ && do{ if ($ftype == TType::STRING) { $xfer += $input->readString(\$self->{key}); } else { $xfer += $input->skip($ftype); } last; }; /^3$/ && do{ if ($ftype == TType::STRUCT) { $self->{column_path} = new Cassandra::ColumnPath(); $xfer += $self->{column_path}->read($input); } else { $xfer += $input->skip($ftype); } last; }; /^4$/ && do{ if ($ftype == TType::STRING) { $xfer += $input->readString(\$self->{value}); } else { $xfer += $input->skip($ftype); } last; }; /^5$/ && do{ if ($ftype == TType::I64) { $xfer += $input->readI64(\$self->{timestamp}); } else { $xfer += $input->skip($ftype); } last; }; /^6$/ && do{ if ($ftype == TType::I32) { $xfer += $input->readI32(\$self->{consistency_level}); } else { $xfer += $input->skip($ftype); } last; }; $xfer += $input->skip($ftype); } $xfer += $input->readFieldEnd(); } $xfer += $input->readStructEnd(); return $xfer; } sub write { my ($self, $output) = @_; my $xfer = 0; $xfer += $output->writeStructBegin('Cassandra_insert_args'); if (defined $self->{keyspace}) { $xfer += $output->writeFieldBegin('keyspace', TType::STRING, 1); $xfer += $output->writeString($self->{keyspace}); $xfer += $output->writeFieldEnd(); } if (defined $self->{key}) { $xfer += $output->writeFieldBegin('key', TType::STRING, 2); $xfer += $output->writeString($self->{key}); $xfer += $output->writeFieldEnd(); } if (defined $self->{column_path}) { $xfer += $output->writeFieldBegin('column_path', TType::STRUCT, 3); $xfer += $self->{column_path}->write($output); $xfer += $output->writeFieldEnd(); } if (defined $self->{value}) { $xfer += $output->writeFieldBegin('value', TType::STRING, 4); $xfer += $output->writeString($self->{value}); $xfer += $output->writeFieldEnd(); } if (defined $self->{timestamp}) { $xfer += $output->writeFieldBegin('timestamp', TType::I64, 5); $xfer += $output->writeI64($self->{timestamp}); $xfer += $output->writeFieldEnd(); } if (defined $self->{consistency_level}) { $xfer += $output->writeFieldBegin('consistency_level', TType::I32, 6); $xfer += $output->writeI32($self->{consistency_level}); $xfer += $output->writeFieldEnd(); } $xfer += $output->writeFieldStop(); $xfer += $output->writeStructEnd(); return $xfer; } package Cassandra::Cassandra_insert_result; use base qw(Class::Accessor); Cassandra::Cassandra_insert_result->mk_accessors( qw( ) ); sub new { my $classname = shift; my $self = {}; my $vals = shift || {}; $self->{ire} = undef; $self->{ue} = undef; $self->{te} = undef; if (UNIVERSAL::isa($vals,'HASH')) { if (defined $vals->{ire}) { $self->{ire} = $vals->{ire}; } if (defined $vals->{ue}) { $self->{ue} = $vals->{ue}; } if (defined $vals->{te}) { $self->{te} = $vals->{te}; } } return bless ($self, $classname); } sub getName { return 'Cassandra_insert_result'; } sub read { my ($self, $input) = @_; my $xfer = 0; my $fname; my $ftype = 0; my $fid = 0; $xfer += $input->readStructBegin(\$fname); while (1) { $xfer += $input->readFieldBegin(\$fname, \$ftype, \$fid); if ($ftype == TType::STOP) { last; } SWITCH: for($fid) { /^1$/ && do{ if ($ftype == TType::STRUCT) { $self->{ire} = new Cassandra::InvalidRequestException(); $xfer += $self->{ire}->read($input); } else { $xfer += $input->skip($ftype); } last; }; /^2$/ && do{ if ($ftype == TType::STRUCT) { $self->{ue} = new Cassandra::UnavailableException(); $xfer += $self->{ue}->read($input); } else { $xfer += $input->skip($ftype); } last; }; /^3$/ && do{ if ($ftype == TType::STRUCT) { $self->{te} = new Cassandra::TimedOutException(); $xfer += $self->{te}->read($input); } else { $xfer += $input->skip($ftype); } last; }; $xfer += $input->skip($ftype); } $xfer += $input->readFieldEnd(); } $xfer += $input->readStructEnd(); return $xfer; } sub write { my ($self, $output) = @_; my $xfer = 0; $xfer += $output->writeStructBegin('Cassandra_insert_result'); if (defined $self->{ire}) { $xfer += $output->writeFieldBegin('ire', TType::STRUCT, 1); $xfer += $self->{ire}->write($output); $xfer += $output->writeFieldEnd(); } if (defined $self->{ue}) { $xfer += $output->writeFieldBegin('ue', TType::STRUCT, 2); $xfer += $self->{ue}->write($output); $xfer += $output->writeFieldEnd(); } if (defined $self->{te}) { $xfer += $output->writeFieldBegin('te', TType::STRUCT, 3); $xfer += $self->{te}->write($output); $xfer += $output->writeFieldEnd(); } $xfer += $output->writeFieldStop(); $xfer += $output->writeStructEnd(); return $xfer; } package Cassandra::Cassandra_batch_insert_args; use base qw(Class::Accessor); Cassandra::Cassandra_batch_insert_args->mk_accessors( qw( keyspace key cfmap consistency_level ) ); sub new { my $classname = shift; my $self = {}; my $vals = shift || {}; $self->{keyspace} = undef; $self->{key} = undef; $self->{cfmap} = undef; $self->{consistency_level} = 1; if (UNIVERSAL::isa($vals,'HASH')) { if (defined $vals->{keyspace}) { $self->{keyspace} = $vals->{keyspace}; } if (defined $vals->{key}) { $self->{key} = $vals->{key}; } if (defined $vals->{cfmap}) { $self->{cfmap} = $vals->{cfmap}; } if (defined $vals->{consistency_level}) { $self->{consistency_level} = $vals->{consistency_level}; } } return bless ($self, $classname); } sub getName { return 'Cassandra_batch_insert_args'; } sub read { my ($self, $input) = @_; my $xfer = 0; my $fname; my $ftype = 0; my $fid = 0; $xfer += $input->readStructBegin(\$fname); while (1) { $xfer += $input->readFieldBegin(\$fname, \$ftype, \$fid); if ($ftype == TType::STOP) { last; } SWITCH: for($fid) { /^1$/ && do{ if ($ftype == TType::STRING) { $xfer += $input->readString(\$self->{keyspace}); } else { $xfer += $input->skip($ftype); } last; }; /^2$/ && do{ if ($ftype == TType::STRING) { $xfer += $input->readString(\$self->{key}); } else { $xfer += $input->skip($ftype); } last; }; /^3$/ && do{ if ($ftype == TType::MAP) { { my $_size97 = 0; $self->{cfmap} = {}; my $_ktype98 = 0; my $_vtype99 = 0; $xfer += $input->readMapBegin(\$_ktype98, \$_vtype99, \$_size97); for (my $_i101 = 0; $_i101 < $_size97; ++$_i101) { my $key102 = ''; my $val103 = []; $xfer += $input->readString(\$key102); { my $_size104 = 0; $val103 = []; my $_etype107 = 0; $xfer += $input->readListBegin(\$_etype107, \$_size104); for (my $_i108 = 0; $_i108 < $_size104; ++$_i108) { my $elem109 = undef; $elem109 = new Cassandra::ColumnOrSuperColumn(); $xfer += $elem109->read($input); push(@{$val103},$elem109); } $xfer += $input->readListEnd(); } $self->{cfmap}->{$key102} = $val103; } $xfer += $input->readMapEnd(); } } else { $xfer += $input->skip($ftype); } last; }; /^4$/ && do{ if ($ftype == TType::I32) { $xfer += $input->readI32(\$self->{consistency_level}); } else { $xfer += $input->skip($ftype); } last; }; $xfer += $input->skip($ftype); } $xfer += $input->readFieldEnd(); } $xfer += $input->readStructEnd(); return $xfer; } sub write { my ($self, $output) = @_; my $xfer = 0; $xfer += $output->writeStructBegin('Cassandra_batch_insert_args'); if (defined $self->{keyspace}) { $xfer += $output->writeFieldBegin('keyspace', TType::STRING, 1); $xfer += $output->writeString($self->{keyspace}); $xfer += $output->writeFieldEnd(); } if (defined $self->{key}) { $xfer += $output->writeFieldBegin('key', TType::STRING, 2); $xfer += $output->writeString($self->{key}); $xfer += $output->writeFieldEnd(); } if (defined $self->{cfmap}) { $xfer += $output->writeFieldBegin('cfmap', TType::MAP, 3); { $output->writeMapBegin(TType::STRING, TType::LIST, scalar(keys %{$self->{cfmap}})); { while( my ($kiter110,$viter111) = each %{$self->{cfmap}}) { $xfer += $output->writeString($kiter110); { $output->writeListBegin(TType::STRUCT, scalar(@{${viter111}})); { foreach my $iter112 (@{${viter111}}) { $xfer += ${iter112}->write($output); } } $output->writeListEnd(); } } } $output->writeMapEnd(); } $xfer += $output->writeFieldEnd(); } if (defined $self->{consistency_level}) { $xfer += $output->writeFieldBegin('consistency_level', TType::I32, 4); $xfer += $output->writeI32($self->{consistency_level}); $xfer += $output->writeFieldEnd(); } $xfer += $output->writeFieldStop(); $xfer += $output->writeStructEnd(); return $xfer; } package Cassandra::Cassandra_batch_insert_result; use base qw(Class::Accessor); Cassandra::Cassandra_batch_insert_result->mk_accessors( qw( ) ); sub new { my $classname = shift; my $self = {}; my $vals = shift || {}; $self->{ire} = undef; $self->{ue} = undef; $self->{te} = undef; if (UNIVERSAL::isa($vals,'HASH')) { if (defined $vals->{ire}) { $self->{ire} = $vals->{ire}; } if (defined $vals->{ue}) { $self->{ue} = $vals->{ue}; } if (defined $vals->{te}) { $self->{te} = $vals->{te}; } } return bless ($self, $classname); } sub getName { return 'Cassandra_batch_insert_result'; } sub read { my ($self, $input) = @_; my $xfer = 0; my $fname; my $ftype = 0; my $fid = 0; $xfer += $input->readStructBegin(\$fname); while (1) { $xfer += $input->readFieldBegin(\$fname, \$ftype, \$fid); if ($ftype == TType::STOP) { last; } SWITCH: for($fid) { /^1$/ && do{ if ($ftype == TType::STRUCT) { $self->{ire} = new Cassandra::InvalidRequestException(); $xfer += $self->{ire}->read($input); } else { $xfer += $input->skip($ftype); } last; }; /^2$/ && do{ if ($ftype == TType::STRUCT) { $self->{ue} = new Cassandra::UnavailableException(); $xfer += $self->{ue}->read($input); } else { $xfer += $input->skip($ftype); } last; }; /^3$/ && do{ if ($ftype == TType::STRUCT) { $self->{te} = new Cassandra::TimedOutException(); $xfer += $self->{te}->read($input); } else { $xfer += $input->skip($ftype); } last; }; $xfer += $input->skip($ftype); } $xfer += $input->readFieldEnd(); } $xfer += $input->readStructEnd(); return $xfer; } sub write { my ($self, $output) = @_; my $xfer = 0; $xfer += $output->writeStructBegin('Cassandra_batch_insert_result'); if (defined $self->{ire}) { $xfer += $output->writeFieldBegin('ire', TType::STRUCT, 1); $xfer += $self->{ire}->write($output); $xfer += $output->writeFieldEnd(); } if (defined $self->{ue}) { $xfer += $output->writeFieldBegin('ue', TType::STRUCT, 2); $xfer += $self->{ue}->write($output); $xfer += $output->writeFieldEnd(); } if (defined $self->{te}) { $xfer += $output->writeFieldBegin('te', TType::STRUCT, 3); $xfer += $self->{te}->write($output); $xfer += $output->writeFieldEnd(); } $xfer += $output->writeFieldStop(); $xfer += $output->writeStructEnd(); return $xfer; } package Cassandra::Cassandra_remove_args; use base qw(Class::Accessor); Cassandra::Cassandra_remove_args->mk_accessors( qw( keyspace key column_path timestamp consistency_level ) ); sub new { my $classname = shift; my $self = {}; my $vals = shift || {}; $self->{keyspace} = undef; $self->{key} = undef; $self->{column_path} = undef; $self->{timestamp} = undef; $self->{consistency_level} = 1; if (UNIVERSAL::isa($vals,'HASH')) { if (defined $vals->{keyspace}) { $self->{keyspace} = $vals->{keyspace}; } if (defined $vals->{key}) { $self->{key} = $vals->{key}; } if (defined $vals->{column_path}) { $self->{column_path} = $vals->{column_path}; } if (defined $vals->{timestamp}) { $self->{timestamp} = $vals->{timestamp}; } if (defined $vals->{consistency_level}) { $self->{consistency_level} = $vals->{consistency_level}; } } return bless ($self, $classname); } sub getName { return 'Cassandra_remove_args'; } sub read { my ($self, $input) = @_; my $xfer = 0; my $fname; my $ftype = 0; my $fid = 0; $xfer += $input->readStructBegin(\$fname); while (1) { $xfer += $input->readFieldBegin(\$fname, \$ftype, \$fid); if ($ftype == TType::STOP) { last; } SWITCH: for($fid) { /^1$/ && do{ if ($ftype == TType::STRING) { $xfer += $input->readString(\$self->{keyspace}); } else { $xfer += $input->skip($ftype); } last; }; /^2$/ && do{ if ($ftype == TType::STRING) { $xfer += $input->readString(\$self->{key}); } else { $xfer += $input->skip($ftype); } last; }; /^3$/ && do{ if ($ftype == TType::STRUCT) { $self->{column_path} = new Cassandra::ColumnPath(); $xfer += $self->{column_path}->read($input); } else { $xfer += $input->skip($ftype); } last; }; /^4$/ && do{ if ($ftype == TType::I64) { $xfer += $input->readI64(\$self->{timestamp}); } else { $xfer += $input->skip($ftype); } last; }; /^5$/ && do{ if ($ftype == TType::I32) { $xfer += $input->readI32(\$self->{consistency_level}); } else { $xfer += $input->skip($ftype); } last; }; $xfer += $input->skip($ftype); } $xfer += $input->readFieldEnd(); } $xfer += $input->readStructEnd(); return $xfer; } sub write { my ($self, $output) = @_; my $xfer = 0; $xfer += $output->writeStructBegin('Cassandra_remove_args'); if (defined $self->{keyspace}) { $xfer += $output->writeFieldBegin('keyspace', TType::STRING, 1); $xfer += $output->writeString($self->{keyspace}); $xfer += $output->writeFieldEnd(); } if (defined $self->{key}) { $xfer += $output->writeFieldBegin('key', TType::STRING, 2); $xfer += $output->writeString($self->{key}); $xfer += $output->writeFieldEnd(); } if (defined $self->{column_path}) { $xfer += $output->writeFieldBegin('column_path', TType::STRUCT, 3); $xfer += $self->{column_path}->write($output); $xfer += $output->writeFieldEnd(); } if (defined $self->{timestamp}) { $xfer += $output->writeFieldBegin('timestamp', TType::I64, 4); $xfer += $output->writeI64($self->{timestamp}); $xfer += $output->writeFieldEnd(); } if (defined $self->{consistency_level}) { $xfer += $output->writeFieldBegin('consistency_level', TType::I32, 5); $xfer += $output->writeI32($self->{consistency_level}); $xfer += $output->writeFieldEnd(); } $xfer += $output->writeFieldStop(); $xfer += $output->writeStructEnd(); return $xfer; } package Cassandra::Cassandra_remove_result; use base qw(Class::Accessor); Cassandra::Cassandra_remove_result->mk_accessors( qw( ) ); sub new { my $classname = shift; my $self = {}; my $vals = shift || {}; $self->{ire} = undef; $self->{ue} = undef; $self->{te} = undef; if (UNIVERSAL::isa($vals,'HASH')) { if (defined $vals->{ire}) { $self->{ire} = $vals->{ire}; } if (defined $vals->{ue}) { $self->{ue} = $vals->{ue}; } if (defined $vals->{te}) { $self->{te} = $vals->{te}; } } return bless ($self, $classname); } sub getName { return 'Cassandra_remove_result'; } sub read { my ($self, $input) = @_; my $xfer = 0; my $fname; my $ftype = 0; my $fid = 0; $xfer += $input->readStructBegin(\$fname); while (1) { $xfer += $input->readFieldBegin(\$fname, \$ftype, \$fid); if ($ftype == TType::STOP) { last; } SWITCH: for($fid) { /^1$/ && do{ if ($ftype == TType::STRUCT) { $self->{ire} = new Cassandra::InvalidRequestException(); $xfer += $self->{ire}->read($input); } else { $xfer += $input->skip($ftype); } last; }; /^2$/ && do{ if ($ftype == TType::STRUCT) { $self->{ue} = new Cassandra::UnavailableException(); $xfer += $self->{ue}->read($input); } else { $xfer += $input->skip($ftype); } last; }; /^3$/ && do{ if ($ftype == TType::STRUCT) { $self->{te} = new Cassandra::TimedOutException(); $xfer += $self->{te}->read($input); } else { $xfer += $input->skip($ftype); } last; }; $xfer += $input->skip($ftype); } $xfer += $input->readFieldEnd(); } $xfer += $input->readStructEnd(); return $xfer; } sub write { my ($self, $output) = @_; my $xfer = 0; $xfer += $output->writeStructBegin('Cassandra_remove_result'); if (defined $self->{ire}) { $xfer += $output->writeFieldBegin('ire', TType::STRUCT, 1); $xfer += $self->{ire}->write($output); $xfer += $output->writeFieldEnd(); } if (defined $self->{ue}) { $xfer += $output->writeFieldBegin('ue', TType::STRUCT, 2); $xfer += $self->{ue}->write($output); $xfer += $output->writeFieldEnd(); } if (defined $self->{te}) { $xfer += $output->writeFieldBegin('te', TType::STRUCT, 3); $xfer += $self->{te}->write($output); $xfer += $output->writeFieldEnd(); } $xfer += $output->writeFieldStop(); $xfer += $output->writeStructEnd(); return $xfer; } package Cassandra::Cassandra_batch_mutate_args; use base qw(Class::Accessor); Cassandra::Cassandra_batch_mutate_args->mk_accessors( qw( keyspace mutation_map consistency_level ) ); sub new { my $classname = shift; my $self = {}; my $vals = shift || {}; $self->{keyspace} = undef; $self->{mutation_map} = undef; $self->{consistency_level} = 1; if (UNIVERSAL::isa($vals,'HASH')) { if (defined $vals->{keyspace}) { $self->{keyspace} = $vals->{keyspace}; } if (defined $vals->{mutation_map}) { $self->{mutation_map} = $vals->{mutation_map}; } if (defined $vals->{consistency_level}) { $self->{consistency_level} = $vals->{consistency_level}; } } return bless ($self, $classname); } sub getName { return 'Cassandra_batch_mutate_args'; } sub read { my ($self, $input) = @_; my $xfer = 0; my $fname; my $ftype = 0; my $fid = 0; $xfer += $input->readStructBegin(\$fname); while (1) { $xfer += $input->readFieldBegin(\$fname, \$ftype, \$fid); if ($ftype == TType::STOP) { last; } SWITCH: for($fid) { /^1$/ && do{ if ($ftype == TType::STRING) { $xfer += $input->readString(\$self->{keyspace}); } else { $xfer += $input->skip($ftype); } last; }; /^2$/ && do{ if ($ftype == TType::MAP) { { my $_size113 = 0; $self->{mutation_map} = {}; my $_ktype114 = 0; my $_vtype115 = 0; $xfer += $input->readMapBegin(\$_ktype114, \$_vtype115, \$_size113); for (my $_i117 = 0; $_i117 < $_size113; ++$_i117) { my $key118 = ''; my $val119 = []; $xfer += $input->readString(\$key118); { my $_size120 = 0; $val119 = {}; my $_ktype121 = 0; my $_vtype122 = 0; $xfer += $input->readMapBegin(\$_ktype121, \$_vtype122, \$_size120); for (my $_i124 = 0; $_i124 < $_size120; ++$_i124) { my $key125 = ''; my $val126 = []; $xfer += $input->readString(\$key125); { my $_size127 = 0; $val126 = []; my $_etype130 = 0; $xfer += $input->readListBegin(\$_etype130, \$_size127); for (my $_i131 = 0; $_i131 < $_size127; ++$_i131) { my $elem132 = undef; $elem132 = new Cassandra::Mutation(); $xfer += $elem132->read($input); push(@{$val126},$elem132); } $xfer += $input->readListEnd(); } $val119->{$key125} = $val126; } $xfer += $input->readMapEnd(); } $self->{mutation_map}->{$key118} = $val119; } $xfer += $input->readMapEnd(); } } else { $xfer += $input->skip($ftype); } last; }; /^3$/ && do{ if ($ftype == TType::I32) { $xfer += $input->readI32(\$self->{consistency_level}); } else { $xfer += $input->skip($ftype); } last; }; $xfer += $input->skip($ftype); } $xfer += $input->readFieldEnd(); } $xfer += $input->readStructEnd(); return $xfer; } sub write { my ($self, $output) = @_; my $xfer = 0; $xfer += $output->writeStructBegin('Cassandra_batch_mutate_args'); if (defined $self->{keyspace}) { $xfer += $output->writeFieldBegin('keyspace', TType::STRING, 1); $xfer += $output->writeString($self->{keyspace}); $xfer += $output->writeFieldEnd(); } if (defined $self->{mutation_map}) { $xfer += $output->writeFieldBegin('mutation_map', TType::MAP, 2); { $output->writeMapBegin(TType::STRING, TType::MAP, scalar(keys %{$self->{mutation_map}})); { while( my ($kiter133,$viter134) = each %{$self->{mutation_map}}) { $xfer += $output->writeString($kiter133); { $output->writeMapBegin(TType::STRING, TType::LIST, scalar(keys %{${viter134}})); { while( my ($kiter135,$viter136) = each %{${viter134}}) { $xfer += $output->writeString($kiter135); { $output->writeListBegin(TType::STRUCT, scalar(@{${viter136}})); { foreach my $iter137 (@{${viter136}}) { $xfer += ${iter137}->write($output); } } $output->writeListEnd(); } } } $output->writeMapEnd(); } } } $output->writeMapEnd(); } $xfer += $output->writeFieldEnd(); } if (defined $self->{consistency_level}) { $xfer += $output->writeFieldBegin('consistency_level', TType::I32, 3); $xfer += $output->writeI32($self->{consistency_level}); $xfer += $output->writeFieldEnd(); } $xfer += $output->writeFieldStop(); $xfer += $output->writeStructEnd(); return $xfer; } package Cassandra::Cassandra_batch_mutate_result; use base qw(Class::Accessor); Cassandra::Cassandra_batch_mutate_result->mk_accessors( qw( ) ); sub new { my $classname = shift; my $self = {}; my $vals = shift || {}; $self->{ire} = undef; $self->{ue} = undef; $self->{te} = undef; if (UNIVERSAL::isa($vals,'HASH')) { if (defined $vals->{ire}) { $self->{ire} = $vals->{ire}; } if (defined $vals->{ue}) { $self->{ue} = $vals->{ue}; } if (defined $vals->{te}) { $self->{te} = $vals->{te}; } } return bless ($self, $classname); } sub getName { return 'Cassandra_batch_mutate_result'; } sub read { my ($self, $input) = @_; my $xfer = 0; my $fname; my $ftype = 0; my $fid = 0; $xfer += $input->readStructBegin(\$fname); while (1) { $xfer += $input->readFieldBegin(\$fname, \$ftype, \$fid); if ($ftype == TType::STOP) { last; } SWITCH: for($fid) { /^1$/ && do{ if ($ftype == TType::STRUCT) { $self->{ire} = new Cassandra::InvalidRequestException(); $xfer += $self->{ire}->read($input); } else { $xfer += $input->skip($ftype); } last; }; /^2$/ && do{ if ($ftype == TType::STRUCT) { $self->{ue} = new Cassandra::UnavailableException(); $xfer += $self->{ue}->read($input); } else { $xfer += $input->skip($ftype); } last; }; /^3$/ && do{ if ($ftype == TType::STRUCT) { $self->{te} = new Cassandra::TimedOutException(); $xfer += $self->{te}->read($input); } else { $xfer += $input->skip($ftype); } last; }; $xfer += $input->skip($ftype); } $xfer += $input->readFieldEnd(); } $xfer += $input->readStructEnd(); return $xfer; } sub write { my ($self, $output) = @_; my $xfer = 0; $xfer += $output->writeStructBegin('Cassandra_batch_mutate_result'); if (defined $self->{ire}) { $xfer += $output->writeFieldBegin('ire', TType::STRUCT, 1); $xfer += $self->{ire}->write($output); $xfer += $output->writeFieldEnd(); } if (defined $self->{ue}) { $xfer += $output->writeFieldBegin('ue', TType::STRUCT, 2); $xfer += $self->{ue}->write($output); $xfer += $output->writeFieldEnd(); } if (defined $self->{te}) { $xfer += $output->writeFieldBegin('te', TType::STRUCT, 3); $xfer += $self->{te}->write($output); $xfer += $output->writeFieldEnd(); } $xfer += $output->writeFieldStop(); $xfer += $output->writeStructEnd(); return $xfer; } package Cassandra::Cassandra_get_string_property_args; use base qw(Class::Accessor); Cassandra::Cassandra_get_string_property_args->mk_accessors( qw( property ) ); sub new { my $classname = shift; my $self = {}; my $vals = shift || {}; $self->{property} = undef; if (UNIVERSAL::isa($vals,'HASH')) { if (defined $vals->{property}) { $self->{property} = $vals->{property}; } } return bless ($self, $classname); } sub getName { return 'Cassandra_get_string_property_args'; } sub read { my ($self, $input) = @_; my $xfer = 0; my $fname; my $ftype = 0; my $fid = 0; $xfer += $input->readStructBegin(\$fname); while (1) { $xfer += $input->readFieldBegin(\$fname, \$ftype, \$fid); if ($ftype == TType::STOP) { last; } SWITCH: for($fid) { /^1$/ && do{ if ($ftype == TType::STRING) { $xfer += $input->readString(\$self->{property}); } else { $xfer += $input->skip($ftype); } last; }; $xfer += $input->skip($ftype); } $xfer += $input->readFieldEnd(); } $xfer += $input->readStructEnd(); return $xfer; } sub write { my ($self, $output) = @_; my $xfer = 0; $xfer += $output->writeStructBegin('Cassandra_get_string_property_args'); if (defined $self->{property}) { $xfer += $output->writeFieldBegin('property', TType::STRING, 1); $xfer += $output->writeString($self->{property}); $xfer += $output->writeFieldEnd(); } $xfer += $output->writeFieldStop(); $xfer += $output->writeStructEnd(); return $xfer; } package Cassandra::Cassandra_get_string_property_result; use base qw(Class::Accessor); Cassandra::Cassandra_get_string_property_result->mk_accessors( qw( success ) ); sub new { my $classname = shift; my $self = {}; my $vals = shift || {}; $self->{success} = undef; if (UNIVERSAL::isa($vals,'HASH')) { if (defined $vals->{success}) { $self->{success} = $vals->{success}; } } return bless ($self, $classname); } sub getName { return 'Cassandra_get_string_property_result'; } sub read { my ($self, $input) = @_; my $xfer = 0; my $fname; my $ftype = 0; my $fid = 0; $xfer += $input->readStructBegin(\$fname); while (1) { $xfer += $input->readFieldBegin(\$fname, \$ftype, \$fid); if ($ftype == TType::STOP) { last; } SWITCH: for($fid) { /^0$/ && do{ if ($ftype == TType::STRING) { $xfer += $input->readString(\$self->{success}); } else { $xfer += $input->skip($ftype); } last; }; $xfer += $input->skip($ftype); } $xfer += $input->readFieldEnd(); } $xfer += $input->readStructEnd(); return $xfer; } sub write { my ($self, $output) = @_; my $xfer = 0; $xfer += $output->writeStructBegin('Cassandra_get_string_property_result'); if (defined $self->{success}) { $xfer += $output->writeFieldBegin('success', TType::STRING, 0); $xfer += $output->writeString($self->{success}); $xfer += $output->writeFieldEnd(); } $xfer += $output->writeFieldStop(); $xfer += $output->writeStructEnd(); return $xfer; } package Cassandra::Cassandra_get_string_list_property_args; use base qw(Class::Accessor); Cassandra::Cassandra_get_string_list_property_args->mk_accessors( qw( property ) ); sub new { my $classname = shift; my $self = {}; my $vals = shift || {}; $self->{property} = undef; if (UNIVERSAL::isa($vals,'HASH')) { if (defined $vals->{property}) { $self->{property} = $vals->{property}; } } return bless ($self, $classname); } sub getName { return 'Cassandra_get_string_list_property_args'; } sub read { my ($self, $input) = @_; my $xfer = 0; my $fname; my $ftype = 0; my $fid = 0; $xfer += $input->readStructBegin(\$fname); while (1) { $xfer += $input->readFieldBegin(\$fname, \$ftype, \$fid); if ($ftype == TType::STOP) { last; } SWITCH: for($fid) { /^1$/ && do{ if ($ftype == TType::STRING) { $xfer += $input->readString(\$self->{property}); } else { $xfer += $input->skip($ftype); } last; }; $xfer += $input->skip($ftype); } $xfer += $input->readFieldEnd(); } $xfer += $input->readStructEnd(); return $xfer; } sub write { my ($self, $output) = @_; my $xfer = 0; $xfer += $output->writeStructBegin('Cassandra_get_string_list_property_args'); if (defined $self->{property}) { $xfer += $output->writeFieldBegin('property', TType::STRING, 1); $xfer += $output->writeString($self->{property}); $xfer += $output->writeFieldEnd(); } $xfer += $output->writeFieldStop(); $xfer += $output->writeStructEnd(); return $xfer; } package Cassandra::Cassandra_get_string_list_property_result; use base qw(Class::Accessor); Cassandra::Cassandra_get_string_list_property_result->mk_accessors( qw( success ) ); sub new { my $classname = shift; my $self = {}; my $vals = shift || {}; $self->{success} = undef; if (UNIVERSAL::isa($vals,'HASH')) { if (defined $vals->{success}) { $self->{success} = $vals->{success}; } } return bless ($self, $classname); } sub getName { return 'Cassandra_get_string_list_property_result'; } sub read { my ($self, $input) = @_; my $xfer = 0; my $fname; my $ftype = 0; my $fid = 0; $xfer += $input->readStructBegin(\$fname); while (1) { $xfer += $input->readFieldBegin(\$fname, \$ftype, \$fid); if ($ftype == TType::STOP) { last; } SWITCH: for($fid) { /^0$/ && do{ if ($ftype == TType::LIST) { { my $_size138 = 0; $self->{success} = []; my $_etype141 = 0; $xfer += $input->readListBegin(\$_etype141, \$_size138); for (my $_i142 = 0; $_i142 < $_size138; ++$_i142) { my $elem143 = undef; $xfer += $input->readString(\$elem143); push(@{$self->{success}},$elem143); } $xfer += $input->readListEnd(); } } else { $xfer += $input->skip($ftype); } last; }; $xfer += $input->skip($ftype); } $xfer += $input->readFieldEnd(); } $xfer += $input->readStructEnd(); return $xfer; } sub write { my ($self, $output) = @_; my $xfer = 0; $xfer += $output->writeStructBegin('Cassandra_get_string_list_property_result'); if (defined $self->{success}) { $xfer += $output->writeFieldBegin('success', TType::LIST, 0); { $output->writeListBegin(TType::STRING, scalar(@{$self->{success}})); { foreach my $iter144 (@{$self->{success}}) { $xfer += $output->writeString($iter144); } } $output->writeListEnd(); } $xfer += $output->writeFieldEnd(); } $xfer += $output->writeFieldStop(); $xfer += $output->writeStructEnd(); return $xfer; } package Cassandra::Cassandra_describe_keyspaces_args; use base qw(Class::Accessor); sub new { my $classname = shift; my $self = {}; my $vals = shift || {}; return bless ($self, $classname); } sub getName { return 'Cassandra_describe_keyspaces_args'; } sub read { my ($self, $input) = @_; my $xfer = 0; my $fname; my $ftype = 0; my $fid = 0; $xfer += $input->readStructBegin(\$fname); while (1) { $xfer += $input->readFieldBegin(\$fname, \$ftype, \$fid); if ($ftype == TType::STOP) { last; } SWITCH: for($fid) { $xfer += $input->skip($ftype); } $xfer += $input->readFieldEnd(); } $xfer += $input->readStructEnd(); return $xfer; } sub write { my ($self, $output) = @_; my $xfer = 0; $xfer += $output->writeStructBegin('Cassandra_describe_keyspaces_args'); $xfer += $output->writeFieldStop(); $xfer += $output->writeStructEnd(); return $xfer; } package Cassandra::Cassandra_describe_keyspaces_result; use base qw(Class::Accessor); Cassandra::Cassandra_describe_keyspaces_result->mk_accessors( qw( success ) ); sub new { my $classname = shift; my $self = {}; my $vals = shift || {}; $self->{success} = undef; if (UNIVERSAL::isa($vals,'HASH')) { if (defined $vals->{success}) { $self->{success} = $vals->{success}; } } return bless ($self, $classname); } sub getName { return 'Cassandra_describe_keyspaces_result'; } sub read { my ($self, $input) = @_; my $xfer = 0; my $fname; my $ftype = 0; my $fid = 0; $xfer += $input->readStructBegin(\$fname); while (1) { $xfer += $input->readFieldBegin(\$fname, \$ftype, \$fid); if ($ftype == TType::STOP) { last; } SWITCH: for($fid) { /^0$/ && do{ if ($ftype == TType::SET) { { my $_size145 = 0; $self->{success} = {}; my $_etype148 = 0; $xfer += $input->readSetBegin(\$_etype148, \$_size145); for (my $_i149 = 0; $_i149 < $_size145; ++$_i149) { my $elem150 = undef; $xfer += $input->readString(\$elem150); $self->{success}->{$elem150} = 1; } $xfer += $input->readSetEnd(); } } else { $xfer += $input->skip($ftype); } last; }; $xfer += $input->skip($ftype); } $xfer += $input->readFieldEnd(); } $xfer += $input->readStructEnd(); return $xfer; } sub write { my ($self, $output) = @_; my $xfer = 0; $xfer += $output->writeStructBegin('Cassandra_describe_keyspaces_result'); if (defined $self->{success}) { $xfer += $output->writeFieldBegin('success', TType::SET, 0); { $output->writeSetBegin(TType::STRING, scalar(@{$self->{success}})); { foreach my $iter151 (@{$self->{success}}) { $xfer += $output->writeString($iter151); } } $output->writeSetEnd(); } $xfer += $output->writeFieldEnd(); } $xfer += $output->writeFieldStop(); $xfer += $output->writeStructEnd(); return $xfer; } package Cassandra::Cassandra_describe_cluster_name_args; use base qw(Class::Accessor); sub new { my $classname = shift; my $self = {}; my $vals = shift || {}; return bless ($self, $classname); } sub getName { return 'Cassandra_describe_cluster_name_args'; } sub read { my ($self, $input) = @_; my $xfer = 0; my $fname; my $ftype = 0; my $fid = 0; $xfer += $input->readStructBegin(\$fname); while (1) { $xfer += $input->readFieldBegin(\$fname, \$ftype, \$fid); if ($ftype == TType::STOP) { last; } SWITCH: for($fid) { $xfer += $input->skip($ftype); } $xfer += $input->readFieldEnd(); } $xfer += $input->readStructEnd(); return $xfer; } sub write { my ($self, $output) = @_; my $xfer = 0; $xfer += $output->writeStructBegin('Cassandra_describe_cluster_name_args'); $xfer += $output->writeFieldStop(); $xfer += $output->writeStructEnd(); return $xfer; } package Cassandra::Cassandra_describe_cluster_name_result; use base qw(Class::Accessor); Cassandra::Cassandra_describe_cluster_name_result->mk_accessors( qw( success ) ); sub new { my $classname = shift; my $self = {}; my $vals = shift || {}; $self->{success} = undef; if (UNIVERSAL::isa($vals,'HASH')) { if (defined $vals->{success}) { $self->{success} = $vals->{success}; } } return bless ($self, $classname); } sub getName { return 'Cassandra_describe_cluster_name_result'; } sub read { my ($self, $input) = @_; my $xfer = 0; my $fname; my $ftype = 0; my $fid = 0; $xfer += $input->readStructBegin(\$fname); while (1) { $xfer += $input->readFieldBegin(\$fname, \$ftype, \$fid); if ($ftype == TType::STOP) { last; } SWITCH: for($fid) { /^0$/ && do{ if ($ftype == TType::STRING) { $xfer += $input->readString(\$self->{success}); } else { $xfer += $input->skip($ftype); } last; }; $xfer += $input->skip($ftype); } $xfer += $input->readFieldEnd(); } $xfer += $input->readStructEnd(); return $xfer; } sub write { my ($self, $output) = @_; my $xfer = 0; $xfer += $output->writeStructBegin('Cassandra_describe_cluster_name_result'); if (defined $self->{success}) { $xfer += $output->writeFieldBegin('success', TType::STRING, 0); $xfer += $output->writeString($self->{success}); $xfer += $output->writeFieldEnd(); } $xfer += $output->writeFieldStop(); $xfer += $output->writeStructEnd(); return $xfer; } package Cassandra::Cassandra_describe_version_args; use base qw(Class::Accessor); sub new { my $classname = shift; my $self = {}; my $vals = shift || {}; return bless ($self, $classname); } sub getName { return 'Cassandra_describe_version_args'; } sub read { my ($self, $input) = @_; my $xfer = 0; my $fname; my $ftype = 0; my $fid = 0; $xfer += $input->readStructBegin(\$fname); while (1) { $xfer += $input->readFieldBegin(\$fname, \$ftype, \$fid); if ($ftype == TType::STOP) { last; } SWITCH: for($fid) { $xfer += $input->skip($ftype); } $xfer += $input->readFieldEnd(); } $xfer += $input->readStructEnd(); return $xfer; } sub write { my ($self, $output) = @_; my $xfer = 0; $xfer += $output->writeStructBegin('Cassandra_describe_version_args'); $xfer += $output->writeFieldStop(); $xfer += $output->writeStructEnd(); return $xfer; } package Cassandra::Cassandra_describe_version_result; use base qw(Class::Accessor); Cassandra::Cassandra_describe_version_result->mk_accessors( qw( success ) ); sub new { my $classname = shift; my $self = {}; my $vals = shift || {}; $self->{success} = undef; if (UNIVERSAL::isa($vals,'HASH')) { if (defined $vals->{success}) { $self->{success} = $vals->{success}; } } return bless ($self, $classname); } sub getName { return 'Cassandra_describe_version_result'; } sub read { my ($self, $input) = @_; my $xfer = 0; my $fname; my $ftype = 0; my $fid = 0; $xfer += $input->readStructBegin(\$fname); while (1) { $xfer += $input->readFieldBegin(\$fname, \$ftype, \$fid); if ($ftype == TType::STOP) { last; } SWITCH: for($fid) { /^0$/ && do{ if ($ftype == TType::STRING) { $xfer += $input->readString(\$self->{success}); } else { $xfer += $input->skip($ftype); } last; }; $xfer += $input->skip($ftype); } $xfer += $input->readFieldEnd(); } $xfer += $input->readStructEnd(); return $xfer; } sub write { my ($self, $output) = @_; my $xfer = 0; $xfer += $output->writeStructBegin('Cassandra_describe_version_result'); if (defined $self->{success}) { $xfer += $output->writeFieldBegin('success', TType::STRING, 0); $xfer += $output->writeString($self->{success}); $xfer += $output->writeFieldEnd(); } $xfer += $output->writeFieldStop(); $xfer += $output->writeStructEnd(); return $xfer; } package Cassandra::Cassandra_describe_ring_args; use base qw(Class::Accessor); Cassandra::Cassandra_describe_ring_args->mk_accessors( qw( keyspace ) ); sub new { my $classname = shift; my $self = {}; my $vals = shift || {}; $self->{keyspace} = undef; if (UNIVERSAL::isa($vals,'HASH')) { if (defined $vals->{keyspace}) { $self->{keyspace} = $vals->{keyspace}; } } return bless ($self, $classname); } sub getName { return 'Cassandra_describe_ring_args'; } sub read { my ($self, $input) = @_; my $xfer = 0; my $fname; my $ftype = 0; my $fid = 0; $xfer += $input->readStructBegin(\$fname); while (1) { $xfer += $input->readFieldBegin(\$fname, \$ftype, \$fid); if ($ftype == TType::STOP) { last; } SWITCH: for($fid) { /^1$/ && do{ if ($ftype == TType::STRING) { $xfer += $input->readString(\$self->{keyspace}); } else { $xfer += $input->skip($ftype); } last; }; $xfer += $input->skip($ftype); } $xfer += $input->readFieldEnd(); } $xfer += $input->readStructEnd(); return $xfer; } sub write { my ($self, $output) = @_; my $xfer = 0; $xfer += $output->writeStructBegin('Cassandra_describe_ring_args'); if (defined $self->{keyspace}) { $xfer += $output->writeFieldBegin('keyspace', TType::STRING, 1); $xfer += $output->writeString($self->{keyspace}); $xfer += $output->writeFieldEnd(); } $xfer += $output->writeFieldStop(); $xfer += $output->writeStructEnd(); return $xfer; } package Cassandra::Cassandra_describe_ring_result; use base qw(Class::Accessor); Cassandra::Cassandra_describe_ring_result->mk_accessors( qw( success ) ); sub new { my $classname = shift; my $self = {}; my $vals = shift || {}; $self->{success} = undef; if (UNIVERSAL::isa($vals,'HASH')) { if (defined $vals->{success}) { $self->{success} = $vals->{success}; } } return bless ($self, $classname); } sub getName { return 'Cassandra_describe_ring_result'; } sub read { my ($self, $input) = @_; my $xfer = 0; my $fname; my $ftype = 0; my $fid = 0; $xfer += $input->readStructBegin(\$fname); while (1) { $xfer += $input->readFieldBegin(\$fname, \$ftype, \$fid); if ($ftype == TType::STOP) { last; } SWITCH: for($fid) { /^0$/ && do{ if ($ftype == TType::LIST) { { my $_size152 = 0; $self->{success} = []; my $_etype155 = 0; $xfer += $input->readListBegin(\$_etype155, \$_size152); for (my $_i156 = 0; $_i156 < $_size152; ++$_i156) { my $elem157 = undef; $elem157 = new Cassandra::TokenRange(); $xfer += $elem157->read($input); push(@{$self->{success}},$elem157); } $xfer += $input->readListEnd(); } } else { $xfer += $input->skip($ftype); } last; }; $xfer += $input->skip($ftype); } $xfer += $input->readFieldEnd(); } $xfer += $input->readStructEnd(); return $xfer; } sub write { my ($self, $output) = @_; my $xfer = 0; $xfer += $output->writeStructBegin('Cassandra_describe_ring_result'); if (defined $self->{success}) { $xfer += $output->writeFieldBegin('success', TType::LIST, 0); { $output->writeListBegin(TType::STRUCT, scalar(@{$self->{success}})); { foreach my $iter158 (@{$self->{success}}) { $xfer += ${iter158}->write($output); } } $output->writeListEnd(); } $xfer += $output->writeFieldEnd(); } $xfer += $output->writeFieldStop(); $xfer += $output->writeStructEnd(); return $xfer; } package Cassandra::Cassandra_describe_keyspace_args; use base qw(Class::Accessor); Cassandra::Cassandra_describe_keyspace_args->mk_accessors( qw( keyspace ) ); sub new { my $classname = shift; my $self = {}; my $vals = shift || {}; $self->{keyspace} = undef; if (UNIVERSAL::isa($vals,'HASH')) { if (defined $vals->{keyspace}) { $self->{keyspace} = $vals->{keyspace}; } } return bless ($self, $classname); } sub getName { return 'Cassandra_describe_keyspace_args'; } sub read { my ($self, $input) = @_; my $xfer = 0; my $fname; my $ftype = 0; my $fid = 0; $xfer += $input->readStructBegin(\$fname); while (1) { $xfer += $input->readFieldBegin(\$fname, \$ftype, \$fid); if ($ftype == TType::STOP) { last; } SWITCH: for($fid) { /^1$/ && do{ if ($ftype == TType::STRING) { $xfer += $input->readString(\$self->{keyspace}); } else { $xfer += $input->skip($ftype); } last; }; $xfer += $input->skip($ftype); } $xfer += $input->readFieldEnd(); } $xfer += $input->readStructEnd(); return $xfer; } sub write { my ($self, $output) = @_; my $xfer = 0; $xfer += $output->writeStructBegin('Cassandra_describe_keyspace_args'); if (defined $self->{keyspace}) { $xfer += $output->writeFieldBegin('keyspace', TType::STRING, 1); $xfer += $output->writeString($self->{keyspace}); $xfer += $output->writeFieldEnd(); } $xfer += $output->writeFieldStop(); $xfer += $output->writeStructEnd(); return $xfer; } package Cassandra::Cassandra_describe_keyspace_result; use base qw(Class::Accessor); Cassandra::Cassandra_describe_keyspace_result->mk_accessors( qw( success ) ); sub new { my $classname = shift; my $self = {}; my $vals = shift || {}; $self->{success} = undef; $self->{nfe} = undef; if (UNIVERSAL::isa($vals,'HASH')) { if (defined $vals->{success}) { $self->{success} = $vals->{success}; } if (defined $vals->{nfe}) { $self->{nfe} = $vals->{nfe}; } } return bless ($self, $classname); } sub getName { return 'Cassandra_describe_keyspace_result'; } sub read { my ($self, $input) = @_; my $xfer = 0; my $fname; my $ftype = 0; my $fid = 0; $xfer += $input->readStructBegin(\$fname); while (1) { $xfer += $input->readFieldBegin(\$fname, \$ftype, \$fid); if ($ftype == TType::STOP) { last; } SWITCH: for($fid) { /^0$/ && do{ if ($ftype == TType::MAP) { { my $_size159 = 0; $self->{success} = {}; my $_ktype160 = 0; my $_vtype161 = 0; $xfer += $input->readMapBegin(\$_ktype160, \$_vtype161, \$_size159); for (my $_i163 = 0; $_i163 < $_size159; ++$_i163) { my $key164 = ''; my $val165 = []; $xfer += $input->readString(\$key164); { my $_size166 = 0; $val165 = {}; my $_ktype167 = 0; my $_vtype168 = 0; $xfer += $input->readMapBegin(\$_ktype167, \$_vtype168, \$_size166); for (my $_i170 = 0; $_i170 < $_size166; ++$_i170) { my $key171 = ''; my $val172 = ''; $xfer += $input->readString(\$key171); $xfer += $input->readString(\$val172); $val165->{$key171} = $val172; } $xfer += $input->readMapEnd(); } $self->{success}->{$key164} = $val165; } $xfer += $input->readMapEnd(); } } else { $xfer += $input->skip($ftype); } last; }; /^1$/ && do{ if ($ftype == TType::STRUCT) { $self->{nfe} = new Cassandra::NotFoundException(); $xfer += $self->{nfe}->read($input); } else { $xfer += $input->skip($ftype); } last; }; $xfer += $input->skip($ftype); } $xfer += $input->readFieldEnd(); } $xfer += $input->readStructEnd(); return $xfer; } sub write { my ($self, $output) = @_; my $xfer = 0; $xfer += $output->writeStructBegin('Cassandra_describe_keyspace_result'); if (defined $self->{success}) { $xfer += $output->writeFieldBegin('success', TType::MAP, 0); { $output->writeMapBegin(TType::STRING, TType::MAP, scalar(keys %{$self->{success}})); { while( my ($kiter173,$viter174) = each %{$self->{success}}) { $xfer += $output->writeString($kiter173); { $output->writeMapBegin(TType::STRING, TType::STRING, scalar(keys %{${viter174}})); { while( my ($kiter175,$viter176) = each %{${viter174}}) { $xfer += $output->writeString($kiter175); $xfer += $output->writeString($viter176); } } $output->writeMapEnd(); } } } $output->writeMapEnd(); } $xfer += $output->writeFieldEnd(); } if (defined $self->{nfe}) { $xfer += $output->writeFieldBegin('nfe', TType::STRUCT, 1); $xfer += $self->{nfe}->write($output); $xfer += $output->writeFieldEnd(); } $xfer += $output->writeFieldStop(); $xfer += $output->writeStructEnd(); return $xfer; } package Cassandra::Cassandra_describe_splits_args; use base qw(Class::Accessor); Cassandra::Cassandra_describe_splits_args->mk_accessors( qw( start_token end_token keys_per_split ) ); sub new { my $classname = shift; my $self = {}; my $vals = shift || {}; $self->{start_token} = undef; $self->{end_token} = undef; $self->{keys_per_split} = undef; if (UNIVERSAL::isa($vals,'HASH')) { if (defined $vals->{start_token}) { $self->{start_token} = $vals->{start_token}; } if (defined $vals->{end_token}) { $self->{end_token} = $vals->{end_token}; } if (defined $vals->{keys_per_split}) { $self->{keys_per_split} = $vals->{keys_per_split}; } } return bless ($self, $classname); } sub getName { return 'Cassandra_describe_splits_args'; } sub read { my ($self, $input) = @_; my $xfer = 0; my $fname; my $ftype = 0; my $fid = 0; $xfer += $input->readStructBegin(\$fname); while (1) { $xfer += $input->readFieldBegin(\$fname, \$ftype, \$fid); if ($ftype == TType::STOP) { last; } SWITCH: for($fid) { /^1$/ && do{ if ($ftype == TType::STRING) { $xfer += $input->readString(\$self->{start_token}); } else { $xfer += $input->skip($ftype); } last; }; /^2$/ && do{ if ($ftype == TType::STRING) { $xfer += $input->readString(\$self->{end_token}); } else { $xfer += $input->skip($ftype); } last; }; /^3$/ && do{ if ($ftype == TType::I32) { $xfer += $input->readI32(\$self->{keys_per_split}); } else { $xfer += $input->skip($ftype); } last; }; $xfer += $input->skip($ftype); } $xfer += $input->readFieldEnd(); } $xfer += $input->readStructEnd(); return $xfer; } sub write { my ($self, $output) = @_; my $xfer = 0; $xfer += $output->writeStructBegin('Cassandra_describe_splits_args'); if (defined $self->{start_token}) { $xfer += $output->writeFieldBegin('start_token', TType::STRING, 1); $xfer += $output->writeString($self->{start_token}); $xfer += $output->writeFieldEnd(); } if (defined $self->{end_token}) { $xfer += $output->writeFieldBegin('end_token', TType::STRING, 2); $xfer += $output->writeString($self->{end_token}); $xfer += $output->writeFieldEnd(); } if (defined $self->{keys_per_split}) { $xfer += $output->writeFieldBegin('keys_per_split', TType::I32, 3); $xfer += $output->writeI32($self->{keys_per_split}); $xfer += $output->writeFieldEnd(); } $xfer += $output->writeFieldStop(); $xfer += $output->writeStructEnd(); return $xfer; } package Cassandra::Cassandra_describe_splits_result; use base qw(Class::Accessor); Cassandra::Cassandra_describe_splits_result->mk_accessors( qw( success ) ); sub new { my $classname = shift; my $self = {}; my $vals = shift || {}; $self->{success} = undef; if (UNIVERSAL::isa($vals,'HASH')) { if (defined $vals->{success}) { $self->{success} = $vals->{success}; } } return bless ($self, $classname); } sub getName { return 'Cassandra_describe_splits_result'; } sub read { my ($self, $input) = @_; my $xfer = 0; my $fname; my $ftype = 0; my $fid = 0; $xfer += $input->readStructBegin(\$fname); while (1) { $xfer += $input->readFieldBegin(\$fname, \$ftype, \$fid); if ($ftype == TType::STOP) { last; } SWITCH: for($fid) { /^0$/ && do{ if ($ftype == TType::LIST) { { my $_size177 = 0; $self->{success} = []; my $_etype180 = 0; $xfer += $input->readListBegin(\$_etype180, \$_size177); for (my $_i181 = 0; $_i181 < $_size177; ++$_i181) { my $elem182 = undef; $xfer += $input->readString(\$elem182); push(@{$self->{success}},$elem182); } $xfer += $input->readListEnd(); } } else { $xfer += $input->skip($ftype); } last; }; $xfer += $input->skip($ftype); } $xfer += $input->readFieldEnd(); } $xfer += $input->readStructEnd(); return $xfer; } sub write { my ($self, $output) = @_; my $xfer = 0; $xfer += $output->writeStructBegin('Cassandra_describe_splits_result'); if (defined $self->{success}) { $xfer += $output->writeFieldBegin('success', TType::LIST, 0); { $output->writeListBegin(TType::STRING, scalar(@{$self->{success}})); { foreach my $iter183 (@{$self->{success}}) { $xfer += $output->writeString($iter183); } } $output->writeListEnd(); } $xfer += $output->writeFieldEnd(); } $xfer += $output->writeFieldStop(); $xfer += $output->writeStructEnd(); return $xfer; } package Cassandra::CassandraIf; use strict; sub login{ my $self = shift; my $keyspace = shift; my $auth_request = shift; die 'implement interface'; } sub get{ my $self = shift; my $keyspace = shift; my $key = shift; my $column_path = shift; my $consistency_level = shift; die 'implement interface'; } sub get_slice{ my $self = shift; my $keyspace = shift; my $key = shift; my $column_parent = shift; my $predicate = shift; my $consistency_level = shift; die 'implement interface'; } sub multiget{ my $self = shift; my $keyspace = shift; my $keys = shift; my $column_path = shift; my $consistency_level = shift; die 'implement interface'; } sub multiget_slice{ my $self = shift; my $keyspace = shift; my $keys = shift; my $column_parent = shift; my $predicate = shift; my $consistency_level = shift; die 'implement interface'; } sub get_count{ my $self = shift; my $keyspace = shift; my $key = shift; my $column_parent = shift; my $consistency_level = shift; die 'implement interface'; } sub get_range_slice{ my $self = shift; my $keyspace = shift; my $column_parent = shift; my $predicate = shift; my $start_key = shift; my $finish_key = shift; my $row_count = shift; my $consistency_level = shift; die 'implement interface'; } sub get_range_slices{ my $self = shift; my $keyspace = shift; my $column_parent = shift; my $predicate = shift; my $range = shift; my $consistency_level = shift; die 'implement interface'; } sub insert{ my $self = shift; my $keyspace = shift; my $key = shift; my $column_path = shift; my $value = shift; my $timestamp = shift; my $consistency_level = shift; die 'implement interface'; } sub batch_insert{ my $self = shift; my $keyspace = shift; my $key = shift; my $cfmap = shift; my $consistency_level = shift; die 'implement interface'; } sub remove{ my $self = shift; my $keyspace = shift; my $key = shift; my $column_path = shift; my $timestamp = shift; my $consistency_level = shift; die 'implement interface'; } sub batch_mutate{ my $self = shift; my $keyspace = shift; my $mutation_map = shift; my $consistency_level = shift; die 'implement interface'; } sub get_string_property{ my $self = shift; my $property = shift; die 'implement interface'; } sub get_string_list_property{ my $self = shift; my $property = shift; die 'implement interface'; } sub describe_keyspaces{ my $self = shift; die 'implement interface'; } sub describe_cluster_name{ my $self = shift; die 'implement interface'; } sub describe_version{ my $self = shift; die 'implement interface'; } sub describe_ring{ my $self = shift; my $keyspace = shift; die 'implement interface'; } sub describe_keyspace{ my $self = shift; my $keyspace = shift; die 'implement interface'; } sub describe_splits{ my $self = shift; my $start_token = shift; my $end_token = shift; my $keys_per_split = shift; die 'implement interface'; } package Cassandra::CassandraRest; use strict; sub new { my ($classname, $impl) = @_; my $self ={ impl => $impl }; return bless($self,$classname); } sub login{ my ($self, $request) = @_; my $keyspace = ($request->{'keyspace'}) ? $request->{'keyspace'} : undef; my $auth_request = ($request->{'auth_request'}) ? $request->{'auth_request'} : undef; return $self->{impl}->login($keyspace, $auth_request); } sub get{ my ($self, $request) = @_; my $keyspace = ($request->{'keyspace'}) ? $request->{'keyspace'} : undef; my $key = ($request->{'key'}) ? $request->{'key'} : undef; my $column_path = ($request->{'column_path'}) ? $request->{'column_path'} : undef; my $consistency_level = ($request->{'consistency_level'}) ? $request->{'consistency_level'} : undef; return $self->{impl}->get($keyspace, $key, $column_path, $consistency_level); } sub get_slice{ my ($self, $request) = @_; my $keyspace = ($request->{'keyspace'}) ? $request->{'keyspace'} : undef; my $key = ($request->{'key'}) ? $request->{'key'} : undef; my $column_parent = ($request->{'column_parent'}) ? $request->{'column_parent'} : undef; my $predicate = ($request->{'predicate'}) ? $request->{'predicate'} : undef; my $consistency_level = ($request->{'consistency_level'}) ? $request->{'consistency_level'} : undef; return $self->{impl}->get_slice($keyspace, $key, $column_parent, $predicate, $consistency_level); } sub multiget{ my ($self, $request) = @_; my $keyspace = ($request->{'keyspace'}) ? $request->{'keyspace'} : undef; my $keys = ($request->{'keys'}) ? $request->{'keys'} : undef; my $column_path = ($request->{'column_path'}) ? $request->{'column_path'} : undef; my $consistency_level = ($request->{'consistency_level'}) ? $request->{'consistency_level'} : undef; return $self->{impl}->multiget($keyspace, $keys, $column_path, $consistency_level); } sub multiget_slice{ my ($self, $request) = @_; my $keyspace = ($request->{'keyspace'}) ? $request->{'keyspace'} : undef; my $keys = ($request->{'keys'}) ? $request->{'keys'} : undef; my $column_parent = ($request->{'column_parent'}) ? $request->{'column_parent'} : undef; my $predicate = ($request->{'predicate'}) ? $request->{'predicate'} : undef; my $consistency_level = ($request->{'consistency_level'}) ? $request->{'consistency_level'} : undef; return $self->{impl}->multiget_slice($keyspace, $keys, $column_parent, $predicate, $consistency_level); } sub get_count{ my ($self, $request) = @_; my $keyspace = ($request->{'keyspace'}) ? $request->{'keyspace'} : undef; my $key = ($request->{'key'}) ? $request->{'key'} : undef; my $column_parent = ($request->{'column_parent'}) ? $request->{'column_parent'} : undef; my $consistency_level = ($request->{'consistency_level'}) ? $request->{'consistency_level'} : undef; return $self->{impl}->get_count($keyspace, $key, $column_parent, $consistency_level); } sub get_range_slice{ my ($self, $request) = @_; my $keyspace = ($request->{'keyspace'}) ? $request->{'keyspace'} : undef; my $column_parent = ($request->{'column_parent'}) ? $request->{'column_parent'} : undef; my $predicate = ($request->{'predicate'}) ? $request->{'predicate'} : undef; my $start_key = ($request->{'start_key'}) ? $request->{'start_key'} : undef; my $finish_key = ($request->{'finish_key'}) ? $request->{'finish_key'} : undef; my $row_count = ($request->{'row_count'}) ? $request->{'row_count'} : undef; my $consistency_level = ($request->{'consistency_level'}) ? $request->{'consistency_level'} : undef; return $self->{impl}->get_range_slice($keyspace, $column_parent, $predicate, $start_key, $finish_key, $row_count, $consistency_level); } sub get_range_slices{ my ($self, $request) = @_; my $keyspace = ($request->{'keyspace'}) ? $request->{'keyspace'} : undef; my $column_parent = ($request->{'column_parent'}) ? $request->{'column_parent'} : undef; my $predicate = ($request->{'predicate'}) ? $request->{'predicate'} : undef; my $range = ($request->{'range'}) ? $request->{'range'} : undef; my $consistency_level = ($request->{'consistency_level'}) ? $request->{'consistency_level'} : undef; return $self->{impl}->get_range_slices($keyspace, $column_parent, $predicate, $range, $consistency_level); } sub insert{ my ($self, $request) = @_; my $keyspace = ($request->{'keyspace'}) ? $request->{'keyspace'} : undef; my $key = ($request->{'key'}) ? $request->{'key'} : undef; my $column_path = ($request->{'column_path'}) ? $request->{'column_path'} : undef; my $value = ($request->{'value'}) ? $request->{'value'} : undef; my $timestamp = ($request->{'timestamp'}) ? $request->{'timestamp'} : undef; my $consistency_level = ($request->{'consistency_level'}) ? $request->{'consistency_level'} : undef; return $self->{impl}->insert($keyspace, $key, $column_path, $value, $timestamp, $consistency_level); } sub batch_insert{ my ($self, $request) = @_; my $keyspace = ($request->{'keyspace'}) ? $request->{'keyspace'} : undef; my $key = ($request->{'key'}) ? $request->{'key'} : undef; my $cfmap = ($request->{'cfmap'}) ? $request->{'cfmap'} : undef; my $consistency_level = ($request->{'consistency_level'}) ? $request->{'consistency_level'} : undef; return $self->{impl}->batch_insert($keyspace, $key, $cfmap, $consistency_level); } sub remove{ my ($self, $request) = @_; my $keyspace = ($request->{'keyspace'}) ? $request->{'keyspace'} : undef; my $key = ($request->{'key'}) ? $request->{'key'} : undef; my $column_path = ($request->{'column_path'}) ? $request->{'column_path'} : undef; my $timestamp = ($request->{'timestamp'}) ? $request->{'timestamp'} : undef; my $consistency_level = ($request->{'consistency_level'}) ? $request->{'consistency_level'} : undef; return $self->{impl}->remove($keyspace, $key, $column_path, $timestamp, $consistency_level); } sub batch_mutate{ my ($self, $request) = @_; my $keyspace = ($request->{'keyspace'}) ? $request->{'keyspace'} : undef; my $mutation_map = ($request->{'mutation_map'}) ? $request->{'mutation_map'} : undef; my $consistency_level = ($request->{'consistency_level'}) ? $request->{'consistency_level'} : undef; return $self->{impl}->batch_mutate($keyspace, $mutation_map, $consistency_level); } sub get_string_property{ my ($self, $request) = @_; my $property = ($request->{'property'}) ? $request->{'property'} : undef; return $self->{impl}->get_string_property($property); } sub get_string_list_property{ my ($self, $request) = @_; my $property = ($request->{'property'}) ? $request->{'property'} : undef; return $self->{impl}->get_string_list_property($property); } sub describe_keyspaces{ my ($self, $request) = @_; return $self->{impl}->describe_keyspaces(); } sub describe_cluster_name{ my ($self, $request) = @_; return $self->{impl}->describe_cluster_name(); } sub describe_version{ my ($self, $request) = @_; return $self->{impl}->describe_version(); } sub describe_ring{ my ($self, $request) = @_; my $keyspace = ($request->{'keyspace'}) ? $request->{'keyspace'} : undef; return $self->{impl}->describe_ring($keyspace); } sub describe_keyspace{ my ($self, $request) = @_; my $keyspace = ($request->{'keyspace'}) ? $request->{'keyspace'} : undef; return $self->{impl}->describe_keyspace($keyspace); } sub describe_splits{ my ($self, $request) = @_; my $start_token = ($request->{'start_token'}) ? $request->{'start_token'} : undef; my $end_token = ($request->{'end_token'}) ? $request->{'end_token'} : undef; my $keys_per_split = ($request->{'keys_per_split'}) ? $request->{'keys_per_split'} : undef; return $self->{impl}->describe_splits($start_token, $end_token, $keys_per_split); } package Cassandra::CassandraClient; use base qw(Cassandra::CassandraIf); sub new { my ($classname, $input, $output) = @_; my $self = {}; $self->{input} = $input; $self->{output} = defined $output ? $output : $input; $self->{seqid} = 0; return bless($self,$classname); } sub login{ my $self = shift; my $keyspace = shift; my $auth_request = shift; $self->send_login($keyspace, $auth_request); $self->recv_login(); } sub send_login{ my $self = shift; my $keyspace = shift; my $auth_request = shift; $self->{output}->writeMessageBegin('login', TMessageType::CALL, $self->{seqid}); my $args = new Cassandra::Cassandra_login_args(); $args->{keyspace} = $keyspace; $args->{auth_request} = $auth_request; $args->write($self->{output}); $self->{output}->writeMessageEnd(); $self->{output}->getTransport()->flush(); } sub recv_login{ my $self = shift; my $rseqid = 0; my $fname; my $mtype = 0; $self->{input}->readMessageBegin(\$fname, \$mtype, \$rseqid); if ($mtype == TMessageType::EXCEPTION) { my $x = new TApplicationException(); $x->read($self->{input}); $self->{input}->readMessageEnd(); die $x; } my $result = new Cassandra::Cassandra_login_result(); $result->read($self->{input}); $self->{input}->readMessageEnd(); if (defined $result->{authnx}) { die $result->{authnx}; } if (defined $result->{authzx}) { die $result->{authzx}; } return; } sub get{ my $self = shift; my $keyspace = shift; my $key = shift; my $column_path = shift; my $consistency_level = shift; $self->send_get($keyspace, $key, $column_path, $consistency_level); return $self->recv_get(); } sub send_get{ my $self = shift; my $keyspace = shift; my $key = shift; my $column_path = shift; my $consistency_level = shift; $self->{output}->writeMessageBegin('get', TMessageType::CALL, $self->{seqid}); my $args = new Cassandra::Cassandra_get_args(); $args->{keyspace} = $keyspace; $args->{key} = $key; $args->{column_path} = $column_path; $args->{consistency_level} = $consistency_level; $args->write($self->{output}); $self->{output}->writeMessageEnd(); $self->{output}->getTransport()->flush(); } sub recv_get{ my $self = shift; my $rseqid = 0; my $fname; my $mtype = 0; $self->{input}->readMessageBegin(\$fname, \$mtype, \$rseqid); if ($mtype == TMessageType::EXCEPTION) { my $x = new TApplicationException(); $x->read($self->{input}); $self->{input}->readMessageEnd(); die $x; } my $result = new Cassandra::Cassandra_get_result(); $result->read($self->{input}); $self->{input}->readMessageEnd(); if (defined $result->{success} ) { return $result->{success}; } if (defined $result->{ire}) { die $result->{ire}; } if (defined $result->{nfe}) { die $result->{nfe}; } if (defined $result->{ue}) { die $result->{ue}; } if (defined $result->{te}) { die $result->{te}; } die "get failed: unknown result"; } sub get_slice{ my $self = shift; my $keyspace = shift; my $key = shift; my $column_parent = shift; my $predicate = shift; my $consistency_level = shift; $self->send_get_slice($keyspace, $key, $column_parent, $predicate, $consistency_level); return $self->recv_get_slice(); } sub send_get_slice{ my $self = shift; my $keyspace = shift; my $key = shift; my $column_parent = shift; my $predicate = shift; my $consistency_level = shift; $self->{output}->writeMessageBegin('get_slice', TMessageType::CALL, $self->{seqid}); my $args = new Cassandra::Cassandra_get_slice_args(); $args->{keyspace} = $keyspace; $args->{key} = $key; $args->{column_parent} = $column_parent; $args->{predicate} = $predicate; $args->{consistency_level} = $consistency_level; $args->write($self->{output}); $self->{output}->writeMessageEnd(); $self->{output}->getTransport()->flush(); } sub recv_get_slice{ my $self = shift; my $rseqid = 0; my $fname; my $mtype = 0; $self->{input}->readMessageBegin(\$fname, \$mtype, \$rseqid); if ($mtype == TMessageType::EXCEPTION) { my $x = new TApplicationException(); $x->read($self->{input}); $self->{input}->readMessageEnd(); die $x; } my $result = new Cassandra::Cassandra_get_slice_result(); $result->read($self->{input}); $self->{input}->readMessageEnd(); if (defined $result->{success} ) { return $result->{success}; } if (defined $result->{ire}) { die $result->{ire}; } if (defined $result->{ue}) { die $result->{ue}; } if (defined $result->{te}) { die $result->{te}; } die "get_slice failed: unknown result"; } sub multiget{ my $self = shift; my $keyspace = shift; my $keys = shift; my $column_path = shift; my $consistency_level = shift; $self->send_multiget($keyspace, $keys, $column_path, $consistency_level); return $self->recv_multiget(); } sub send_multiget{ my $self = shift; my $keyspace = shift; my $keys = shift; my $column_path = shift; my $consistency_level = shift; $self->{output}->writeMessageBegin('multiget', TMessageType::CALL, $self->{seqid}); my $args = new Cassandra::Cassandra_multiget_args(); $args->{keyspace} = $keyspace; $args->{keys} = $keys; $args->{column_path} = $column_path; $args->{consistency_level} = $consistency_level; $args->write($self->{output}); $self->{output}->writeMessageEnd(); $self->{output}->getTransport()->flush(); } sub recv_multiget{ my $self = shift; my $rseqid = 0; my $fname; my $mtype = 0; $self->{input}->readMessageBegin(\$fname, \$mtype, \$rseqid); if ($mtype == TMessageType::EXCEPTION) { my $x = new TApplicationException(); $x->read($self->{input}); $self->{input}->readMessageEnd(); die $x; } my $result = new Cassandra::Cassandra_multiget_result(); $result->read($self->{input}); $self->{input}->readMessageEnd(); if (defined $result->{success} ) { return $result->{success}; } if (defined $result->{ire}) { die $result->{ire}; } if (defined $result->{ue}) { die $result->{ue}; } if (defined $result->{te}) { die $result->{te}; } die "multiget failed: unknown result"; } sub multiget_slice{ my $self = shift; my $keyspace = shift; my $keys = shift; my $column_parent = shift; my $predicate = shift; my $consistency_level = shift; $self->send_multiget_slice($keyspace, $keys, $column_parent, $predicate, $consistency_level); return $self->recv_multiget_slice(); } sub send_multiget_slice{ my $self = shift; my $keyspace = shift; my $keys = shift; my $column_parent = shift; my $predicate = shift; my $consistency_level = shift; $self->{output}->writeMessageBegin('multiget_slice', TMessageType::CALL, $self->{seqid}); my $args = new Cassandra::Cassandra_multiget_slice_args(); $args->{keyspace} = $keyspace; $args->{keys} = $keys; $args->{column_parent} = $column_parent; $args->{predicate} = $predicate; $args->{consistency_level} = $consistency_level; $args->write($self->{output}); $self->{output}->writeMessageEnd(); $self->{output}->getTransport()->flush(); } sub recv_multiget_slice{ my $self = shift; my $rseqid = 0; my $fname; my $mtype = 0; $self->{input}->readMessageBegin(\$fname, \$mtype, \$rseqid); if ($mtype == TMessageType::EXCEPTION) { my $x = new TApplicationException(); $x->read($self->{input}); $self->{input}->readMessageEnd(); die $x; } my $result = new Cassandra::Cassandra_multiget_slice_result(); $result->read($self->{input}); $self->{input}->readMessageEnd(); if (defined $result->{success} ) { return $result->{success}; } if (defined $result->{ire}) { die $result->{ire}; } if (defined $result->{ue}) { die $result->{ue}; } if (defined $result->{te}) { die $result->{te}; } die "multiget_slice failed: unknown result"; } sub get_count{ my $self = shift; my $keyspace = shift; my $key = shift; my $column_parent = shift; my $consistency_level = shift; $self->send_get_count($keyspace, $key, $column_parent, $consistency_level); return $self->recv_get_count(); } sub send_get_count{ my $self = shift; my $keyspace = shift; my $key = shift; my $column_parent = shift; my $consistency_level = shift; $self->{output}->writeMessageBegin('get_count', TMessageType::CALL, $self->{seqid}); my $args = new Cassandra::Cassandra_get_count_args(); $args->{keyspace} = $keyspace; $args->{key} = $key; $args->{column_parent} = $column_parent; $args->{consistency_level} = $consistency_level; $args->write($self->{output}); $self->{output}->writeMessageEnd(); $self->{output}->getTransport()->flush(); } sub recv_get_count{ my $self = shift; my $rseqid = 0; my $fname; my $mtype = 0; $self->{input}->readMessageBegin(\$fname, \$mtype, \$rseqid); if ($mtype == TMessageType::EXCEPTION) { my $x = new TApplicationException(); $x->read($self->{input}); $self->{input}->readMessageEnd(); die $x; } my $result = new Cassandra::Cassandra_get_count_result(); $result->read($self->{input}); $self->{input}->readMessageEnd(); if (defined $result->{success} ) { return $result->{success}; } if (defined $result->{ire}) { die $result->{ire}; } if (defined $result->{ue}) { die $result->{ue}; } if (defined $result->{te}) { die $result->{te}; } die "get_count failed: unknown result"; } sub get_range_slice{ my $self = shift; my $keyspace = shift; my $column_parent = shift; my $predicate = shift; my $start_key = shift; my $finish_key = shift; my $row_count = shift; my $consistency_level = shift; $self->send_get_range_slice($keyspace, $column_parent, $predicate, $start_key, $finish_key, $row_count, $consistency_level); return $self->recv_get_range_slice(); } sub send_get_range_slice{ my $self = shift; my $keyspace = shift; my $column_parent = shift; my $predicate = shift; my $start_key = shift; my $finish_key = shift; my $row_count = shift; my $consistency_level = shift; $self->{output}->writeMessageBegin('get_range_slice', TMessageType::CALL, $self->{seqid}); my $args = new Cassandra::Cassandra_get_range_slice_args(); $args->{keyspace} = $keyspace; $args->{column_parent} = $column_parent; $args->{predicate} = $predicate; $args->{start_key} = $start_key; $args->{finish_key} = $finish_key; $args->{row_count} = $row_count; $args->{consistency_level} = $consistency_level; $args->write($self->{output}); $self->{output}->writeMessageEnd(); $self->{output}->getTransport()->flush(); } sub recv_get_range_slice{ my $self = shift; my $rseqid = 0; my $fname; my $mtype = 0; $self->{input}->readMessageBegin(\$fname, \$mtype, \$rseqid); if ($mtype == TMessageType::EXCEPTION) { my $x = new TApplicationException(); $x->read($self->{input}); $self->{input}->readMessageEnd(); die $x; } my $result = new Cassandra::Cassandra_get_range_slice_result(); $result->read($self->{input}); $self->{input}->readMessageEnd(); if (defined $result->{success} ) { return $result->{success}; } if (defined $result->{ire}) { die $result->{ire}; } if (defined $result->{ue}) { die $result->{ue}; } if (defined $result->{te}) { die $result->{te}; } die "get_range_slice failed: unknown result"; } sub get_range_slices{ my $self = shift; my $keyspace = shift; my $column_parent = shift; my $predicate = shift; my $range = shift; my $consistency_level = shift; $self->send_get_range_slices($keyspace, $column_parent, $predicate, $range, $consistency_level); return $self->recv_get_range_slices(); } sub send_get_range_slices{ my $self = shift; my $keyspace = shift; my $column_parent = shift; my $predicate = shift; my $range = shift; my $consistency_level = shift; $self->{output}->writeMessageBegin('get_range_slices', TMessageType::CALL, $self->{seqid}); my $args = new Cassandra::Cassandra_get_range_slices_args(); $args->{keyspace} = $keyspace; $args->{column_parent} = $column_parent; $args->{predicate} = $predicate; $args->{range} = $range; $args->{consistency_level} = $consistency_level; $args->write($self->{output}); $self->{output}->writeMessageEnd(); $self->{output}->getTransport()->flush(); } sub recv_get_range_slices{ my $self = shift; my $rseqid = 0; my $fname; my $mtype = 0; $self->{input}->readMessageBegin(\$fname, \$mtype, \$rseqid); if ($mtype == TMessageType::EXCEPTION) { my $x = new TApplicationException(); $x->read($self->{input}); $self->{input}->readMessageEnd(); die $x; } my $result = new Cassandra::Cassandra_get_range_slices_result(); $result->read($self->{input}); $self->{input}->readMessageEnd(); if (defined $result->{success} ) { return $result->{success}; } if (defined $result->{ire}) { die $result->{ire}; } if (defined $result->{ue}) { die $result->{ue}; } if (defined $result->{te}) { die $result->{te}; } die "get_range_slices failed: unknown result"; } sub insert{ my $self = shift; my $keyspace = shift; my $key = shift; my $column_path = shift; my $value = shift; my $timestamp = shift; my $consistency_level = shift; $self->send_insert($keyspace, $key, $column_path, $value, $timestamp, $consistency_level); $self->recv_insert(); } sub send_insert{ my $self = shift; my $keyspace = shift; my $key = shift; my $column_path = shift; my $value = shift; my $timestamp = shift; my $consistency_level = shift; $self->{output}->writeMessageBegin('insert', TMessageType::CALL, $self->{seqid}); my $args = new Cassandra::Cassandra_insert_args(); $args->{keyspace} = $keyspace; $args->{key} = $key; $args->{column_path} = $column_path; $args->{value} = $value; $args->{timestamp} = $timestamp; $args->{consistency_level} = $consistency_level; $args->write($self->{output}); $self->{output}->writeMessageEnd(); $self->{output}->getTransport()->flush(); } sub recv_insert{ my $self = shift; my $rseqid = 0; my $fname; my $mtype = 0; $self->{input}->readMessageBegin(\$fname, \$mtype, \$rseqid); if ($mtype == TMessageType::EXCEPTION) { my $x = new TApplicationException(); $x->read($self->{input}); $self->{input}->readMessageEnd(); die $x; } my $result = new Cassandra::Cassandra_insert_result(); $result->read($self->{input}); $self->{input}->readMessageEnd(); if (defined $result->{ire}) { die $result->{ire}; } if (defined $result->{ue}) { die $result->{ue}; } if (defined $result->{te}) { die $result->{te}; } return; } sub batch_insert{ my $self = shift; my $keyspace = shift; my $key = shift; my $cfmap = shift; my $consistency_level = shift; $self->send_batch_insert($keyspace, $key, $cfmap, $consistency_level); $self->recv_batch_insert(); } sub send_batch_insert{ my $self = shift; my $keyspace = shift; my $key = shift; my $cfmap = shift; my $consistency_level = shift; $self->{output}->writeMessageBegin('batch_insert', TMessageType::CALL, $self->{seqid}); my $args = new Cassandra::Cassandra_batch_insert_args(); $args->{keyspace} = $keyspace; $args->{key} = $key; $args->{cfmap} = $cfmap; $args->{consistency_level} = $consistency_level; $args->write($self->{output}); $self->{output}->writeMessageEnd(); $self->{output}->getTransport()->flush(); } sub recv_batch_insert{ my $self = shift; my $rseqid = 0; my $fname; my $mtype = 0; $self->{input}->readMessageBegin(\$fname, \$mtype, \$rseqid); if ($mtype == TMessageType::EXCEPTION) { my $x = new TApplicationException(); $x->read($self->{input}); $self->{input}->readMessageEnd(); die $x; } my $result = new Cassandra::Cassandra_batch_insert_result(); $result->read($self->{input}); $self->{input}->readMessageEnd(); if (defined $result->{ire}) { die $result->{ire}; } if (defined $result->{ue}) { die $result->{ue}; } if (defined $result->{te}) { die $result->{te}; } return; } sub remove{ my $self = shift; my $keyspace = shift; my $key = shift; my $column_path = shift; my $timestamp = shift; my $consistency_level = shift; $self->send_remove($keyspace, $key, $column_path, $timestamp, $consistency_level); $self->recv_remove(); } sub send_remove{ my $self = shift; my $keyspace = shift; my $key = shift; my $column_path = shift; my $timestamp = shift; my $consistency_level = shift; $self->{output}->writeMessageBegin('remove', TMessageType::CALL, $self->{seqid}); my $args = new Cassandra::Cassandra_remove_args(); $args->{keyspace} = $keyspace; $args->{key} = $key; $args->{column_path} = $column_path; $args->{timestamp} = $timestamp; $args->{consistency_level} = $consistency_level; $args->write($self->{output}); $self->{output}->writeMessageEnd(); $self->{output}->getTransport()->flush(); } sub recv_remove{ my $self = shift; my $rseqid = 0; my $fname; my $mtype = 0; $self->{input}->readMessageBegin(\$fname, \$mtype, \$rseqid); if ($mtype == TMessageType::EXCEPTION) { my $x = new TApplicationException(); $x->read($self->{input}); $self->{input}->readMessageEnd(); die $x; } my $result = new Cassandra::Cassandra_remove_result(); $result->read($self->{input}); $self->{input}->readMessageEnd(); if (defined $result->{ire}) { die $result->{ire}; } if (defined $result->{ue}) { die $result->{ue}; } if (defined $result->{te}) { die $result->{te}; } return; } sub batch_mutate{ my $self = shift; my $keyspace = shift; my $mutation_map = shift; my $consistency_level = shift; $self->send_batch_mutate($keyspace, $mutation_map, $consistency_level); $self->recv_batch_mutate(); } sub send_batch_mutate{ my $self = shift; my $keyspace = shift; my $mutation_map = shift; my $consistency_level = shift; $self->{output}->writeMessageBegin('batch_mutate', TMessageType::CALL, $self->{seqid}); my $args = new Cassandra::Cassandra_batch_mutate_args(); $args->{keyspace} = $keyspace; $args->{mutation_map} = $mutation_map; $args->{consistency_level} = $consistency_level; $args->write($self->{output}); $self->{output}->writeMessageEnd(); $self->{output}->getTransport()->flush(); } sub recv_batch_mutate{ my $self = shift; my $rseqid = 0; my $fname; my $mtype = 0; $self->{input}->readMessageBegin(\$fname, \$mtype, \$rseqid); if ($mtype == TMessageType::EXCEPTION) { my $x = new TApplicationException(); $x->read($self->{input}); $self->{input}->readMessageEnd(); die $x; } my $result = new Cassandra::Cassandra_batch_mutate_result(); $result->read($self->{input}); $self->{input}->readMessageEnd(); if (defined $result->{ire}) { die $result->{ire}; } if (defined $result->{ue}) { die $result->{ue}; } if (defined $result->{te}) { die $result->{te}; } return; } sub get_string_property{ my $self = shift; my $property = shift; $self->send_get_string_property($property); return $self->recv_get_string_property(); } sub send_get_string_property{ my $self = shift; my $property = shift; $self->{output}->writeMessageBegin('get_string_property', TMessageType::CALL, $self->{seqid}); my $args = new Cassandra::Cassandra_get_string_property_args(); $args->{property} = $property; $args->write($self->{output}); $self->{output}->writeMessageEnd(); $self->{output}->getTransport()->flush(); } sub recv_get_string_property{ my $self = shift; my $rseqid = 0; my $fname; my $mtype = 0; $self->{input}->readMessageBegin(\$fname, \$mtype, \$rseqid); if ($mtype == TMessageType::EXCEPTION) { my $x = new TApplicationException(); $x->read($self->{input}); $self->{input}->readMessageEnd(); die $x; } my $result = new Cassandra::Cassandra_get_string_property_result(); $result->read($self->{input}); $self->{input}->readMessageEnd(); if (defined $result->{success} ) { return $result->{success}; } die "get_string_property failed: unknown result"; } sub get_string_list_property{ my $self = shift; my $property = shift; $self->send_get_string_list_property($property); return $self->recv_get_string_list_property(); } sub send_get_string_list_property{ my $self = shift; my $property = shift; $self->{output}->writeMessageBegin('get_string_list_property', TMessageType::CALL, $self->{seqid}); my $args = new Cassandra::Cassandra_get_string_list_property_args(); $args->{property} = $property; $args->write($self->{output}); $self->{output}->writeMessageEnd(); $self->{output}->getTransport()->flush(); } sub recv_get_string_list_property{ my $self = shift; my $rseqid = 0; my $fname; my $mtype = 0; $self->{input}->readMessageBegin(\$fname, \$mtype, \$rseqid); if ($mtype == TMessageType::EXCEPTION) { my $x = new TApplicationException(); $x->read($self->{input}); $self->{input}->readMessageEnd(); die $x; } my $result = new Cassandra::Cassandra_get_string_list_property_result(); $result->read($self->{input}); $self->{input}->readMessageEnd(); if (defined $result->{success} ) { return $result->{success}; } die "get_string_list_property failed: unknown result"; } sub describe_keyspaces{ my $self = shift; $self->send_describe_keyspaces(); return $self->recv_describe_keyspaces(); } sub send_describe_keyspaces{ my $self = shift; $self->{output}->writeMessageBegin('describe_keyspaces', TMessageType::CALL, $self->{seqid}); my $args = new Cassandra::Cassandra_describe_keyspaces_args(); $args->write($self->{output}); $self->{output}->writeMessageEnd(); $self->{output}->getTransport()->flush(); } sub recv_describe_keyspaces{ my $self = shift; my $rseqid = 0; my $fname; my $mtype = 0; $self->{input}->readMessageBegin(\$fname, \$mtype, \$rseqid); if ($mtype == TMessageType::EXCEPTION) { my $x = new TApplicationException(); $x->read($self->{input}); $self->{input}->readMessageEnd(); die $x; } my $result = new Cassandra::Cassandra_describe_keyspaces_result(); $result->read($self->{input}); $self->{input}->readMessageEnd(); if (defined $result->{success} ) { return $result->{success}; } die "describe_keyspaces failed: unknown result"; } sub describe_cluster_name{ my $self = shift; $self->send_describe_cluster_name(); return $self->recv_describe_cluster_name(); } sub send_describe_cluster_name{ my $self = shift; $self->{output}->writeMessageBegin('describe_cluster_name', TMessageType::CALL, $self->{seqid}); my $args = new Cassandra::Cassandra_describe_cluster_name_args(); $args->write($self->{output}); $self->{output}->writeMessageEnd(); $self->{output}->getTransport()->flush(); } sub recv_describe_cluster_name{ my $self = shift; my $rseqid = 0; my $fname; my $mtype = 0; $self->{input}->readMessageBegin(\$fname, \$mtype, \$rseqid); if ($mtype == TMessageType::EXCEPTION) { my $x = new TApplicationException(); $x->read($self->{input}); $self->{input}->readMessageEnd(); die $x; } my $result = new Cassandra::Cassandra_describe_cluster_name_result(); $result->read($self->{input}); $self->{input}->readMessageEnd(); if (defined $result->{success} ) { return $result->{success}; } die "describe_cluster_name failed: unknown result"; } sub describe_version{ my $self = shift; $self->send_describe_version(); return $self->recv_describe_version(); } sub send_describe_version{ my $self = shift; $self->{output}->writeMessageBegin('describe_version', TMessageType::CALL, $self->{seqid}); my $args = new Cassandra::Cassandra_describe_version_args(); $args->write($self->{output}); $self->{output}->writeMessageEnd(); $self->{output}->getTransport()->flush(); } sub recv_describe_version{ my $self = shift; my $rseqid = 0; my $fname; my $mtype = 0; $self->{input}->readMessageBegin(\$fname, \$mtype, \$rseqid); if ($mtype == TMessageType::EXCEPTION) { my $x = new TApplicationException(); $x->read($self->{input}); $self->{input}->readMessageEnd(); die $x; } my $result = new Cassandra::Cassandra_describe_version_result(); $result->read($self->{input}); $self->{input}->readMessageEnd(); if (defined $result->{success} ) { return $result->{success}; } die "describe_version failed: unknown result"; } sub describe_ring{ my $self = shift; my $keyspace = shift; $self->send_describe_ring($keyspace); return $self->recv_describe_ring(); } sub send_describe_ring{ my $self = shift; my $keyspace = shift; $self->{output}->writeMessageBegin('describe_ring', TMessageType::CALL, $self->{seqid}); my $args = new Cassandra::Cassandra_describe_ring_args(); $args->{keyspace} = $keyspace; $args->write($self->{output}); $self->{output}->writeMessageEnd(); $self->{output}->getTransport()->flush(); } sub recv_describe_ring{ my $self = shift; my $rseqid = 0; my $fname; my $mtype = 0; $self->{input}->readMessageBegin(\$fname, \$mtype, \$rseqid); if ($mtype == TMessageType::EXCEPTION) { my $x = new TApplicationException(); $x->read($self->{input}); $self->{input}->readMessageEnd(); die $x; } my $result = new Cassandra::Cassandra_describe_ring_result(); $result->read($self->{input}); $self->{input}->readMessageEnd(); if (defined $result->{success} ) { return $result->{success}; } die "describe_ring failed: unknown result"; } sub describe_keyspace{ my $self = shift; my $keyspace = shift; $self->send_describe_keyspace($keyspace); return $self->recv_describe_keyspace(); } sub send_describe_keyspace{ my $self = shift; my $keyspace = shift; $self->{output}->writeMessageBegin('describe_keyspace', TMessageType::CALL, $self->{seqid}); my $args = new Cassandra::Cassandra_describe_keyspace_args(); $args->{keyspace} = $keyspace; $args->write($self->{output}); $self->{output}->writeMessageEnd(); $self->{output}->getTransport()->flush(); } sub recv_describe_keyspace{ my $self = shift; my $rseqid = 0; my $fname; my $mtype = 0; $self->{input}->readMessageBegin(\$fname, \$mtype, \$rseqid); if ($mtype == TMessageType::EXCEPTION) { my $x = new TApplicationException(); $x->read($self->{input}); $self->{input}->readMessageEnd(); die $x; } my $result = new Cassandra::Cassandra_describe_keyspace_result(); $result->read($self->{input}); $self->{input}->readMessageEnd(); if (defined $result->{success} ) { return $result->{success}; } if (defined $result->{nfe}) { die $result->{nfe}; } die "describe_keyspace failed: unknown result"; } sub describe_splits{ my $self = shift; my $start_token = shift; my $end_token = shift; my $keys_per_split = shift; $self->send_describe_splits($start_token, $end_token, $keys_per_split); return $self->recv_describe_splits(); } sub send_describe_splits{ my $self = shift; my $start_token = shift; my $end_token = shift; my $keys_per_split = shift; $self->{output}->writeMessageBegin('describe_splits', TMessageType::CALL, $self->{seqid}); my $args = new Cassandra::Cassandra_describe_splits_args(); $args->{start_token} = $start_token; $args->{end_token} = $end_token; $args->{keys_per_split} = $keys_per_split; $args->write($self->{output}); $self->{output}->writeMessageEnd(); $self->{output}->getTransport()->flush(); } sub recv_describe_splits{ my $self = shift; my $rseqid = 0; my $fname; my $mtype = 0; $self->{input}->readMessageBegin(\$fname, \$mtype, \$rseqid); if ($mtype == TMessageType::EXCEPTION) { my $x = new TApplicationException(); $x->read($self->{input}); $self->{input}->readMessageEnd(); die $x; } my $result = new Cassandra::Cassandra_describe_splits_result(); $result->read($self->{input}); $self->{input}->readMessageEnd(); if (defined $result->{success} ) { return $result->{success}; } die "describe_splits failed: unknown result"; } package Cassandra::CassandraProcessor; use strict; sub new { my ($classname, $handler) = @_; my $self = {}; $self->{handler} = $handler; return bless ($self, $classname); } sub process { my ($self, $input, $output) = @_; my $rseqid = 0; my $fname = undef; my $mtype = 0; $input->readMessageBegin(\$fname, \$mtype, \$rseqid); my $methodname = 'process_'.$fname; if (!$self->can($methodname)) { $input->skip(TType::STRUCT); $input->readMessageEnd(); my $x = new TApplicationException('Function '.$fname.' not implemented.', TApplicationException::UNKNOWN_METHOD); $output->writeMessageBegin($fname, TMessageType::EXCEPTION, $rseqid); $x->write($output); $output->writeMessageEnd(); $output->getTransport()->flush(); return; } $self->$methodname($rseqid, $input, $output); return 1; } sub process_login { my ($self, $seqid, $input, $output) = @_; my $args = new Cassandra::Cassandra_login_args(); $args->read($input); $input->readMessageEnd(); my $result = new Cassandra::Cassandra_login_result(); eval { $self->{handler}->login($args->keyspace, $args->auth_request); }; if( UNIVERSAL::isa($@,'Cassandra::AuthenticationException') ){ $result->{authnx} = $@; }; if( UNIVERSAL::isa($@,'Cassandra::AuthorizationException') ){ $result->{authzx} = $@; } $output->writeMessageBegin('login', TMessageType::REPLY, $seqid); $result->write($output); $output->writeMessageEnd(); $output->getTransport()->flush(); } sub process_get { my ($self, $seqid, $input, $output) = @_; my $args = new Cassandra::Cassandra_get_args(); $args->read($input); $input->readMessageEnd(); my $result = new Cassandra::Cassandra_get_result(); eval { $result->{success} = $self->{handler}->get($args->keyspace, $args->key, $args->column_path, $args->consistency_level); }; if( UNIVERSAL::isa($@,'Cassandra::InvalidRequestException') ){ $result->{ire} = $@; }; if( UNIVERSAL::isa($@,'Cassandra::NotFoundException') ){ $result->{nfe} = $@; }; if( UNIVERSAL::isa($@,'Cassandra::UnavailableException') ){ $result->{ue} = $@; }; if( UNIVERSAL::isa($@,'Cassandra::TimedOutException') ){ $result->{te} = $@; } $output->writeMessageBegin('get', TMessageType::REPLY, $seqid); $result->write($output); $output->writeMessageEnd(); $output->getTransport()->flush(); } sub process_get_slice { my ($self, $seqid, $input, $output) = @_; my $args = new Cassandra::Cassandra_get_slice_args(); $args->read($input); $input->readMessageEnd(); my $result = new Cassandra::Cassandra_get_slice_result(); eval { $result->{success} = $self->{handler}->get_slice($args->keyspace, $args->key, $args->column_parent, $args->predicate, $args->consistency_level); }; if( UNIVERSAL::isa($@,'Cassandra::InvalidRequestException') ){ $result->{ire} = $@; }; if( UNIVERSAL::isa($@,'Cassandra::UnavailableException') ){ $result->{ue} = $@; }; if( UNIVERSAL::isa($@,'Cassandra::TimedOutException') ){ $result->{te} = $@; } $output->writeMessageBegin('get_slice', TMessageType::REPLY, $seqid); $result->write($output); $output->writeMessageEnd(); $output->getTransport()->flush(); } sub process_multiget { my ($self, $seqid, $input, $output) = @_; my $args = new Cassandra::Cassandra_multiget_args(); $args->read($input); $input->readMessageEnd(); my $result = new Cassandra::Cassandra_multiget_result(); eval { $result->{success} = $self->{handler}->multiget($args->keyspace, $args->keys, $args->column_path, $args->consistency_level); }; if( UNIVERSAL::isa($@,'Cassandra::InvalidRequestException') ){ $result->{ire} = $@; }; if( UNIVERSAL::isa($@,'Cassandra::UnavailableException') ){ $result->{ue} = $@; }; if( UNIVERSAL::isa($@,'Cassandra::TimedOutException') ){ $result->{te} = $@; } $output->writeMessageBegin('multiget', TMessageType::REPLY, $seqid); $result->write($output); $output->writeMessageEnd(); $output->getTransport()->flush(); } sub process_multiget_slice { my ($self, $seqid, $input, $output) = @_; my $args = new Cassandra::Cassandra_multiget_slice_args(); $args->read($input); $input->readMessageEnd(); my $result = new Cassandra::Cassandra_multiget_slice_result(); eval { $result->{success} = $self->{handler}->multiget_slice($args->keyspace, $args->keys, $args->column_parent, $args->predicate, $args->consistency_level); }; if( UNIVERSAL::isa($@,'Cassandra::InvalidRequestException') ){ $result->{ire} = $@; }; if( UNIVERSAL::isa($@,'Cassandra::UnavailableException') ){ $result->{ue} = $@; }; if( UNIVERSAL::isa($@,'Cassandra::TimedOutException') ){ $result->{te} = $@; } $output->writeMessageBegin('multiget_slice', TMessageType::REPLY, $seqid); $result->write($output); $output->writeMessageEnd(); $output->getTransport()->flush(); } sub process_get_count { my ($self, $seqid, $input, $output) = @_; my $args = new Cassandra::Cassandra_get_count_args(); $args->read($input); $input->readMessageEnd(); my $result = new Cassandra::Cassandra_get_count_result(); eval { $result->{success} = $self->{handler}->get_count($args->keyspace, $args->key, $args->column_parent, $args->consistency_level); }; if( UNIVERSAL::isa($@,'Cassandra::InvalidRequestException') ){ $result->{ire} = $@; }; if( UNIVERSAL::isa($@,'Cassandra::UnavailableException') ){ $result->{ue} = $@; }; if( UNIVERSAL::isa($@,'Cassandra::TimedOutException') ){ $result->{te} = $@; } $output->writeMessageBegin('get_count', TMessageType::REPLY, $seqid); $result->write($output); $output->writeMessageEnd(); $output->getTransport()->flush(); } sub process_get_range_slice { my ($self, $seqid, $input, $output) = @_; my $args = new Cassandra::Cassandra_get_range_slice_args(); $args->read($input); $input->readMessageEnd(); my $result = new Cassandra::Cassandra_get_range_slice_result(); eval { $result->{success} = $self->{handler}->get_range_slice($args->keyspace, $args->column_parent, $args->predicate, $args->start_key, $args->finish_key, $args->row_count, $args->consistency_level); }; if( UNIVERSAL::isa($@,'Cassandra::InvalidRequestException') ){ $result->{ire} = $@; }; if( UNIVERSAL::isa($@,'Cassandra::UnavailableException') ){ $result->{ue} = $@; }; if( UNIVERSAL::isa($@,'Cassandra::TimedOutException') ){ $result->{te} = $@; } $output->writeMessageBegin('get_range_slice', TMessageType::REPLY, $seqid); $result->write($output); $output->writeMessageEnd(); $output->getTransport()->flush(); } sub process_get_range_slices { my ($self, $seqid, $input, $output) = @_; my $args = new Cassandra::Cassandra_get_range_slices_args(); $args->read($input); $input->readMessageEnd(); my $result = new Cassandra::Cassandra_get_range_slices_result(); eval { $result->{success} = $self->{handler}->get_range_slices($args->keyspace, $args->column_parent, $args->predicate, $args->range, $args->consistency_level); }; if( UNIVERSAL::isa($@,'Cassandra::InvalidRequestException') ){ $result->{ire} = $@; }; if( UNIVERSAL::isa($@,'Cassandra::UnavailableException') ){ $result->{ue} = $@; }; if( UNIVERSAL::isa($@,'Cassandra::TimedOutException') ){ $result->{te} = $@; } $output->writeMessageBegin('get_range_slices', TMessageType::REPLY, $seqid); $result->write($output); $output->writeMessageEnd(); $output->getTransport()->flush(); } sub process_insert { my ($self, $seqid, $input, $output) = @_; my $args = new Cassandra::Cassandra_insert_args(); $args->read($input); $input->readMessageEnd(); my $result = new Cassandra::Cassandra_insert_result(); eval { $self->{handler}->insert($args->keyspace, $args->key, $args->column_path, $args->value, $args->timestamp, $args->consistency_level); }; if( UNIVERSAL::isa($@,'Cassandra::InvalidRequestException') ){ $result->{ire} = $@; }; if( UNIVERSAL::isa($@,'Cassandra::UnavailableException') ){ $result->{ue} = $@; }; if( UNIVERSAL::isa($@,'Cassandra::TimedOutException') ){ $result->{te} = $@; } $output->writeMessageBegin('insert', TMessageType::REPLY, $seqid); $result->write($output); $output->writeMessageEnd(); $output->getTransport()->flush(); } sub process_batch_insert { my ($self, $seqid, $input, $output) = @_; my $args = new Cassandra::Cassandra_batch_insert_args(); $args->read($input); $input->readMessageEnd(); my $result = new Cassandra::Cassandra_batch_insert_result(); eval { $self->{handler}->batch_insert($args->keyspace, $args->key, $args->cfmap, $args->consistency_level); }; if( UNIVERSAL::isa($@,'Cassandra::InvalidRequestException') ){ $result->{ire} = $@; }; if( UNIVERSAL::isa($@,'Cassandra::UnavailableException') ){ $result->{ue} = $@; }; if( UNIVERSAL::isa($@,'Cassandra::TimedOutException') ){ $result->{te} = $@; } $output->writeMessageBegin('batch_insert', TMessageType::REPLY, $seqid); $result->write($output); $output->writeMessageEnd(); $output->getTransport()->flush(); } sub process_remove { my ($self, $seqid, $input, $output) = @_; my $args = new Cassandra::Cassandra_remove_args(); $args->read($input); $input->readMessageEnd(); my $result = new Cassandra::Cassandra_remove_result(); eval { $self->{handler}->remove($args->keyspace, $args->key, $args->column_path, $args->timestamp, $args->consistency_level); }; if( UNIVERSAL::isa($@,'Cassandra::InvalidRequestException') ){ $result->{ire} = $@; }; if( UNIVERSAL::isa($@,'Cassandra::UnavailableException') ){ $result->{ue} = $@; }; if( UNIVERSAL::isa($@,'Cassandra::TimedOutException') ){ $result->{te} = $@; } $output->writeMessageBegin('remove', TMessageType::REPLY, $seqid); $result->write($output); $output->writeMessageEnd(); $output->getTransport()->flush(); } sub process_batch_mutate { my ($self, $seqid, $input, $output) = @_; my $args = new Cassandra::Cassandra_batch_mutate_args(); $args->read($input); $input->readMessageEnd(); my $result = new Cassandra::Cassandra_batch_mutate_result(); eval { $self->{handler}->batch_mutate($args->keyspace, $args->mutation_map, $args->consistency_level); }; if( UNIVERSAL::isa($@,'Cassandra::InvalidRequestException') ){ $result->{ire} = $@; }; if( UNIVERSAL::isa($@,'Cassandra::UnavailableException') ){ $result->{ue} = $@; }; if( UNIVERSAL::isa($@,'Cassandra::TimedOutException') ){ $result->{te} = $@; } $output->writeMessageBegin('batch_mutate', TMessageType::REPLY, $seqid); $result->write($output); $output->writeMessageEnd(); $output->getTransport()->flush(); } sub process_get_string_property { my ($self, $seqid, $input, $output) = @_; my $args = new Cassandra::Cassandra_get_string_property_args(); $args->read($input); $input->readMessageEnd(); my $result = new Cassandra::Cassandra_get_string_property_result(); $result->{success} = $self->{handler}->get_string_property($args->property); $output->writeMessageBegin('get_string_property', TMessageType::REPLY, $seqid); $result->write($output); $output->writeMessageEnd(); $output->getTransport()->flush(); } sub process_get_string_list_property { my ($self, $seqid, $input, $output) = @_; my $args = new Cassandra::Cassandra_get_string_list_property_args(); $args->read($input); $input->readMessageEnd(); my $result = new Cassandra::Cassandra_get_string_list_property_result(); $result->{success} = $self->{handler}->get_string_list_property($args->property); $output->writeMessageBegin('get_string_list_property', TMessageType::REPLY, $seqid); $result->write($output); $output->writeMessageEnd(); $output->getTransport()->flush(); } sub process_describe_keyspaces { my ($self, $seqid, $input, $output) = @_; my $args = new Cassandra::Cassandra_describe_keyspaces_args(); $args->read($input); $input->readMessageEnd(); my $result = new Cassandra::Cassandra_describe_keyspaces_result(); $result->{success} = $self->{handler}->describe_keyspaces(); $output->writeMessageBegin('describe_keyspaces', TMessageType::REPLY, $seqid); $result->write($output); $output->writeMessageEnd(); $output->getTransport()->flush(); } sub process_describe_cluster_name { my ($self, $seqid, $input, $output) = @_; my $args = new Cassandra::Cassandra_describe_cluster_name_args(); $args->read($input); $input->readMessageEnd(); my $result = new Cassandra::Cassandra_describe_cluster_name_result(); $result->{success} = $self->{handler}->describe_cluster_name(); $output->writeMessageBegin('describe_cluster_name', TMessageType::REPLY, $seqid); $result->write($output); $output->writeMessageEnd(); $output->getTransport()->flush(); } sub process_describe_version { my ($self, $seqid, $input, $output) = @_; my $args = new Cassandra::Cassandra_describe_version_args(); $args->read($input); $input->readMessageEnd(); my $result = new Cassandra::Cassandra_describe_version_result(); $result->{success} = $self->{handler}->describe_version(); $output->writeMessageBegin('describe_version', TMessageType::REPLY, $seqid); $result->write($output); $output->writeMessageEnd(); $output->getTransport()->flush(); } sub process_describe_ring { my ($self, $seqid, $input, $output) = @_; my $args = new Cassandra::Cassandra_describe_ring_args(); $args->read($input); $input->readMessageEnd(); my $result = new Cassandra::Cassandra_describe_ring_result(); $result->{success} = $self->{handler}->describe_ring($args->keyspace); $output->writeMessageBegin('describe_ring', TMessageType::REPLY, $seqid); $result->write($output); $output->writeMessageEnd(); $output->getTransport()->flush(); } sub process_describe_keyspace { my ($self, $seqid, $input, $output) = @_; my $args = new Cassandra::Cassandra_describe_keyspace_args(); $args->read($input); $input->readMessageEnd(); my $result = new Cassandra::Cassandra_describe_keyspace_result(); eval { $result->{success} = $self->{handler}->describe_keyspace($args->keyspace); }; if( UNIVERSAL::isa($@,'Cassandra::NotFoundException') ){ $result->{nfe} = $@; } $output->writeMessageBegin('describe_keyspace', TMessageType::REPLY, $seqid); $result->write($output); $output->writeMessageEnd(); $output->getTransport()->flush(); } sub process_describe_splits { my ($self, $seqid, $input, $output) = @_; my $args = new Cassandra::Cassandra_describe_splits_args(); $args->read($input); $input->readMessageEnd(); my $result = new Cassandra::Cassandra_describe_splits_result(); $result->{success} = $self->{handler}->describe_splits($args->start_token, $args->end_token, $args->keys_per_split); $output->writeMessageBegin('describe_splits', TMessageType::REPLY, $seqid); $result->write($output); $output->writeMessageEnd(); $output->getTransport()->flush(); } 1;