File Coverage

blib/lib/Cassandra/Client/Policy/Auth/Password.pm

Criterion	Covered	Total	%
statement	8	21	38.1
branch	0	4	0.0
condition			n/a
subroutine	3	7	42.8
pod	0	4	0.0
total	11	36	30.5

package Cassandra::Client::Policy::Auth::Password;
our $AUTHORITY = 'cpan:TVDW';
$Cassandra::Client::Policy::Auth::Password::VERSION = '0.21';
use 5.010;
use strict;
use warnings;

sub new {
    my ($class, %args)= @_;

    my $username= delete $args{username};
    my $password= delete $args{password};

    return bless {
        username => $username,
        password => $password,
    }, $class;
}

sub begin {
    my ($self)= @_;
    return $self; # We are not a stateful implementation
}

sub evaluate {
    my ($self, $callback, $challenge)= @_;
    my $user= $self->{username};
    my $pass= $self->{password};
    utf8::encode($user) if utf8::is_utf8($user);
    utf8::encode($pass) if utf8::is_utf8($pass);
    return $callback->(undef, "\0$user\0$pass");
}

sub success {
    my ($self)= @_;
    # Ignored
}

1;

__END__