File Coverage

blib/lib/WE_Singlesite/Root_GDBM.pm
Criterion Covered Total %
statement 9 10 90.0
branch n/a
condition n/a
subroutine 3 4 75.0
pod 1 1 100.0
total 13 15 86.6


line stmt bran cond sub pod time code
1             # -*- perl -*-
2              
3             #
4             # $Id: Root_GDBM.pm,v 1.1 2004/02/14 10:22:42 eserte Exp $
5             # Author: Slaven Rezic
6             #
7             # Copyright (C) 2004 Slaven Rezic. All rights reserved.
8             # This package is free software; you can redistribute it and/or
9             # modify it under the same terms as Perl itself.
10             #
11             # Mail: slaven@rezic.de
12             # WWW: http://www.rezic.de/eserte/
13             #
14              
15             package WE_Singlesite::Root_GDBM;
16              
17 1     1   1031 use strict;
  1         1  
  1         27  
18 1     1   4 use vars qw($VERSION);
  1         2  
  1         56  
19             $VERSION = sprintf("%d.%02d", q$Revision: 1.1 $ =~ /(\d+)\.(\d+)/);
20              
21 1     1   4 use base qw(WE_Singlesite::Root);
  1         1  
  1         77  
22              
23 0     0 1   sub DBClass { "GDBM_File" }
24              
25             1;
26              
27             __END__