view release on metacpan or  search on metacpan

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

    }

    unless ( -f _ ) {
        Carp::croak( qq/Passwd path '$path' is not a file./ );
    }

    unless ( -r _ ) {
        Carp::croak( qq/Passwd path '$path' is not readable by effective uid '$>'./ );
    }

    return $self->SUPER::init($params);
}

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

    if ( $username =~ /^-/ ) {

        $self->log->debug( qq/User '$username' begins with a hyphen which is not allowed./ )
          if $self->log;