File Coverage

blib/lib/File/HomeDir/Driver.pm
Criterion Covered Total %
statement 15 16 93.7
branch n/a
condition n/a
subroutine 6 7 85.7
pod 0 1 0.0
total 21 24 87.5


line stmt bran cond sub pod time code
1             package File::HomeDir::Driver;
2              
3             # Abstract base class that provides no functionality,
4             # but confirms the class is a File::HomeDir driver class.
5              
6 7     7   1066 use 5.008003;
  7         19  
7 7     7   30 use strict;
  7         9  
  7         105  
8 7     7   32 use warnings;
  7         9  
  7         151  
9 7     7   28 use Carp ();
  7         11  
  7         146  
10              
11 7     7   38 use vars qw{$VERSION};
  7         24  
  7         288  
12              
13             BEGIN
14             {
15 7     7   466 $VERSION = '1.003_002';
16             }
17              
18             sub my_home
19             {
20 0     0 0   Carp::croak("$_[0] does not implement compulsory method $_[1]");
21             }
22              
23             1;
24              
25             =pod
26              
27             =head1 NAME
28              
29             File::HomeDir::Driver - Base class for all File::HomeDir drivers
30              
31             =head1 DESCRIPTION
32              
33             This module is the base class for all L drivers, and must
34             be inherited from to identify a class as a driver.
35              
36             It is primarily provided as a convenience for this specific identification
37             purpose, as L supports the specification of custom drivers
38             and an C<-Eisa> check is used during the loading of the driver.
39              
40             =head1 AUTHOR
41              
42             Adam Kennedy Eadamk@cpan.orgE
43              
44             =head1 SEE ALSO
45              
46             L
47              
48             =head1 COPYRIGHT
49              
50             Copyright 2009 - 2011 Adam Kennedy.
51              
52             This program is free software; you can redistribute
53             it and/or modify it under the same terms as Perl itself.
54              
55             The full text of the license can be found in the
56             LICENSE file included with this module.
57              
58             =cut