View of /trunk/webwork-modperl/lib/WeBWorK/Set.pm

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