Cassandra-Lite
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
lib/Cassandra/Lite.pm view on Meta::CPAN
eval "\$level = Cassandra::ConsistencyLevel::$level;";
$level;
}
sub _login {
my $self = shift;
my $client = shift;
my $auth = Cassandra::AuthenticationRequest->new;
$auth->{credentials} = {username => $self->username, password => $self->password};
$client->login($auth);
}
sub _trigger_keyspace {
my ($self, $keyspace) = @_;
$self->client->set_keyspace($keyspace);
}
=item
lib/Cassandra/Types.pm view on Meta::CPAN
$xfer += $output->writeFieldStop();
$xfer += $output->writeStructEnd();
return $xfer;
}
package Cassandra::AuthenticationRequest;
BEGIN {
$Cassandra::AuthenticationRequest::VERSION = '0.4.0';
}
use base qw(Class::Accessor);
Cassandra::AuthenticationRequest->mk_accessors( qw( credentials ) );
sub new {
my $classname = shift;
my $self = {};
my $vals = shift || {};
$self->{credentials} = undef;
if (UNIVERSAL::isa($vals,'HASH')) {
if (defined $vals->{credentials}) {
$self->{credentials} = $vals->{credentials};
}
}
return bless ($self, $classname);
}
sub getName {
return 'AuthenticationRequest';
}
sub read {
view all matches for this distributionview release on metacpan - search on metacpan
( run in 0.905 second using v1.00-cache-2.02-grep-82fe00e-cpan-2c419f77a38b )