view release on metacpan or  search on metacpan

lib/Authen/Simple/POP3.pm  view on Meta::CPAN

    },
    timeout => {
        type     => Params::Validate::SCALAR,
        default  => 60,
        optional => 1
    },
    method => {
        type     => Params::Validate::SCALAR,
        default  => 'plain',
        optional => 1,
        callbacks => {
            'valid option' => sub {
                $_[0] =~ /^apop|plain|sasl$/;
            }
        }
    }    
});

sub check {
    my ( $self, $username, $password ) = @_;