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

    1 ################################################################################
    2 # WeBWorK mod_perl (c) 2000-2002 WeBWorK Project
    3 # $Id$
    4 ################################################################################
    5 
    6 package WeBWorK::DB::Driver::Null;
    7 
    8 =head1 NAME
    9 
   10 WeBWorK::DB::Driver::Null - a dummy driver.
   11 
   12 =cut
   13 
   14 use strict;
   15 use warnings;
   16 use GDBM_File;
   17 use Carp;
   18 
   19 use constant STYLE => "dummy";
   20 
   21 ################################################################################
   22 # static functions
   23 ################################################################################
   24 
   25 sub style() {
   26   return STYLE;
   27 }
   28 
   29 ################################################################################
   30 # constructor
   31 ################################################################################
   32 
   33 sub new($$$) {
   34   my ($proto, $source, $params) = @_;
   35   my $class = ref($proto) || $proto;
   36   my $self = {
   37     hash   => {},
   38     source => $source,
   39     params => $params,
   40   };
   41   bless $self, $class;
   42   return $self;
   43 }
   44 
   45 ################################################################################
   46 # common methods
   47 ################################################################################
   48 
   49 sub connect    { return 0; }
   50 sub disconnect { return 0; }
   51 
   52 1;