package Net::IMAP::Server::Test::Auth;
use base 'Net::IMAP::Server::DefaultAuth';

use strict;
use warnings;

sub auth_plain {
    my $self = shift;
    my ($user, $pass) = (@_);
    return unless $pass eq "password";
    $self->user($user);
    return 1;
}

1;