lib/NCIP/User.pm

   1 package NCIP::User;
   2
   3 use base qw(Class::Accessor);
   4
   5 # User Object needs
   6 # Authentication Input
   7 # Block Or Trap
   8 # Date Of Birth
   9 # Name Information
  10 # Previous User Id(s)
  11 # User Address Information
  12 # User Language
  13 # User Privilege
  14 # User Id
  15
  16 # Make accessors for the ones that makes sense
  17 NCIP::User->mk_accessors(qw(firstname surname address language privilege userid dateofbirth));
  18
  19 sub authentication {
  20 }
  21
  22 sub previous_userids {
  23 }
  24
  25 sub status {
  26    # Is the user blocked
  27    # if so, why
  28 }
  29
  30 1;