View of /trunk/webwork2/lib/WeBWorK/DB/Schema/Null.pm

    1 ################################################################################
    2 # WeBWorK Online Homework Delivery System
    3 # Copyright © 2000-2003 The WeBWorK Project, http://openwebwork.sf.net/
    4 # $CVSHeader: webwork-modperl/lib/WeBWorK/DB/Schema/Null.pm,v 1.7 2003/12/09 01:12:32 sh002i Exp $
    5 #
    6 # This program is free software; you can redistribute it and/or modify it under
    7 # the terms of either: (a) the GNU General Public License as published by the
    8 # Free Software Foundation; either version 2, or (at your option) any later
    9 # version, or (b) the "Artistic License" which comes with this package.
   10 #
   11 # This program is distributed in the hope that it will be useful, but WITHOUT
   12 # ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
   13 # FOR A PARTICULAR PURPOSE.  See either the GNU General Public License or the
   14 # Artistic License for more details.
   15 ################################################################################
   16 
   17 package WeBWorK::DB::Schema::Null;
   18 use base qw(WeBWorK::DB::Schema);
   19 
   20 =head1 NAME
   21 
   22 WeBWorK::DB::Schema::Null - a dummy schema with no backend.
   23 
   24 =cut
   25 
   26 use strict;
   27 use warnings;
   28 
   29 use constant TABLES => qw(password permission key user set set_user problem problem_user);
   30 use constant STYLE  => "null";
   31 
   32 ################################################################################
   33 # table access functions
   34 ################################################################################
   35 
   36 sub count  { return 0;       }
   37 sub list   { return ();      }
   38 sub exists { return 1;       }
   39 sub add    { return 0;       }
   40 sub get    { return undef;   }
   41 sub gets   { return (undef); }
   42 sub put    { return 0;       }
   43 sub delete { return 1;       }
   44 
   45 1;