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(userid ils userdata));
  18
  19 sub initialise {
  20     my $self = shift;
  21     my $ils  = $self->ils;
  22     my ( $userdata, $error ) = $ils->userdata( $self->userid );
  23     $self->{'userdata'} = $userdata;
  24
  25 }
  26
  27 sub authentication {
  28 }
  29
  30 sub previous_userids {
  31 }
  32
  33 sub status {
  34
  35     # Is the user blocked
  36     # if so, why
  37 }
  38
  39 1;