File Coverage

blib/lib/PBib/ConfigFile.pm
Criterion Covered Total %
statement 22 22 100.0
branch 1 2 50.0
condition n/a
subroutine 7 7 100.0
pod n/a
total 30 31 96.7


line stmt bran cond sub pod time code
1             # --*-Perl-*--
2             # $Id: ConfigFile.pm 10 2004-11-02 22:14:09Z tandler $
3             #
4              
5             =head1 NAME
6              
7             PBib::ConfigFile - Configuration file for PBib
8              
9             =head1 SYNOPSIS
10              
11             use PBib::ConfigFile;
12             $conf = new PBib::ConfigFile();
13             # see Config::General
14              
15             =head1 DESCRIPTION
16              
17             extend Config::General to handle search path for included config files
18              
19             =cut
20              
21             package PBib::ConfigFile;
22 2     2   35 use 5.006;
  2         9  
  2         77  
23 2     2   11 use strict;
  2         4  
  2         62  
24 2     2   9 use warnings;
  2         5  
  2         66  
25             #use English;
26              
27             # for debug:
28 2     2   11 use Data::Dumper;
  2         5  
  2         176  
29              
30             BEGIN {
31 2     2   12 use vars qw($Revision $VERSION);
  2         5  
  2         233  
32 2 50   2   5 my $major = 1; q$Revision: 10 $ =~ /: (\d+)/; my ($minor) = ($1); $VERSION = "$major." . ($minor<10 ? '0' : '') . $minor;
  2         9  
  2         6  
  2         66  
33             }
34              
35             # superclass
36 2     2   3329 use Config::General 2.18; # previous versions have no -ConfigPath option
  2         68  
  2         231  
37              
38             our @ISA;
39             @ISA = qw(Config::General);
40              
41             # used standard modules
42             # use FileHandle;
43             # use File::Basename;
44             # use File::Spec;
45              
46             =head1 METHODS
47              
48             =over
49              
50             =cut
51              
52             1;
53              
54             __END__