1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
package FS::Auth::internal; #use base qw( FS::Auth ); use strict; sub authenticate { my( $username, $check_password ) = @_; } sub change_password { } 1;