View of /trunk/webwork2/lib/WeBWorK/User.pm

    1 ################################################################################
    2 # WeBWorK mod_perl (c) 1995-2002 WeBWorK Team, Univeristy of Rochester
    3 # $Id$
    4 ################################################################################
    5 
    6 package WeBWorK::User;
    7 
    8 use strict;
    9 use warnings;
   10 use Class::Struct;
   11 
   12 struct map { $_ => '$' } our @FIELDS = qw(
   13   id
   14   first_name
   15   last_name
   16   email_address
   17   student_id
   18   status
   19   section
   20   recitation
   21   comment
   22 );
   23 
   24 sub toString($) {
   25   my $self = shift;
   26   my $result;
   27   foreach (@FIELDS) {
   28     $result .= "$_ => ";
   29     $result .= defined $self->$_() ? $self->$_() : "";
   30     $result .= "\n";
   31   }
   32   return $result;
   33 }
   34 
   35 1;