| … | |
… | |
| 2 | # WeBWorK mod_perl (c) 2000-2002 WeBWorK Project |
2 | # WeBWorK mod_perl (c) 2000-2002 WeBWorK Project |
| 3 | # $Id$ |
3 | # $Id$ |
| 4 | ################################################################################ |
4 | ################################################################################ |
| 5 | |
5 | |
| 6 | package WeBWorK::DB::Driver::Null; |
6 | package WeBWorK::DB::Driver::Null; |
|
|
7 | use base qw(WeBWorK::DB::Driver); |
| 7 | |
8 | |
| 8 | =head1 NAME |
9 | =head1 NAME |
| 9 | |
10 | |
| 10 | WeBWorK::DB::Driver::Null - a dummy driver. |
11 | WeBWorK::DB::Driver::Null - a dummy driver. |
| 11 | |
12 | |
| 12 | =cut |
13 | =cut |
| 13 | |
14 | |
| 14 | use strict; |
15 | use strict; |
| 15 | use warnings; |
16 | use warnings; |
| 16 | use GDBM_File; |
|
|
| 17 | use Carp; |
|
|
| 18 | |
17 | |
| 19 | use constant STYLE => "dummy"; |
18 | use constant STYLE => "null"; |
| 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 | |
19 | |
| 45 | ################################################################################ |
20 | ################################################################################ |
| 46 | # common methods |
21 | # common methods |
| 47 | ################################################################################ |
22 | ################################################################################ |
| 48 | |
23 | |