view release on metacpan or  search on metacpan

lib/CGI/Builder/Auth/UserAdmin.pm  view on Meta::CPAN

316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
 
Fails if $username exists in the database
 
    if($user->add('dougm', 'secret')) {
        print "You have the power!\n";
    }
 
You may need to pass additional fields, such as the user's real name.
This depends on your server of course.
 
    $user->add('JoeUser', 'try2guess', '', 'Joseph A. User');
 
You can also pass a set of field name/value pairs in
the form of a hash ref.  Example
 
   $user->add('JoeUser','try2guess','',
                        {'Name'=>'Joseph A. User','Credit_limit'=>2000});
 
 
=item delete($username)
 
Delete a user
 
    if($user->delete('dougm')) {
        print "He's gone\n";
    }