File Coverage

blib/lib/Sys/Filesystem/Dummy.pm
Criterion Covered Total %
statement 12 17 70.5
branch 0 2 0.0
condition n/a
subroutine 4 6 66.6
pod 1 2 50.0
total 17 27 62.9


line stmt bran cond sub pod time code
1             ############################################################
2             #
3             # $Id$
4             # Sys::Filesystem - Retrieve list of filesystems and their properties
5             #
6             # Copyright 2004,2005,2006 Nicola Worthington
7             #
8             # Licensed under the Apache License, Version 2.0 (the "License");
9             # you may not use this file except in compliance with the License.
10             # You may obtain a copy of the License at
11             #
12             # http://www.apache.org/licenses/LICENSE-2.0
13             #
14             # Unless required by applicable law or agreed to in writing, software
15             # distributed under the License is distributed on an "AS IS" BASIS,
16             # WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
17             # See the License for the specific language governing permissions and
18             # limitations under the License.
19             #
20             ############################################################
21              
22             package Sys::Filesystem::Dummy;
23              
24             # vim:ts=4:sw=4:tw=78
25              
26 6     6   12202 use 5.008001;
  6         23  
  6         335  
27              
28 6     6   34 use strict;
  6         13  
  6         232  
29 6     6   37 use Carp qw(croak);
  6         25  
  6         405  
30              
31 6     6   39 use vars qw($VERSION);
  6         11  
  6         1087  
32             $VERSION = '1.406';
33              
34             sub version()
35             {
36 0     0 1   return $VERSION;
37             }
38              
39             sub new
40             {
41 0 0   0 0   ref( my $class = shift ) && croak 'Class name required';
42 0           my %args = @_;
43 0           my $self = bless( {}, $class );
44              
45 0           $self;
46             }
47              
48             1;
49              
50             =pod
51              
52             =head1 NAME
53              
54             Sys::Filesystem::Dummy - Returns nothing to Sys::Filesystem
55              
56             =head1 SYNOPSIS
57              
58             See L.
59              
60             =head1 INHERITANCE
61              
62             Sys::Filesystem::Dummy
63             ISA UNIVERSAL
64              
65             =head1 METHODS
66              
67             =over 4
68              
69             =item version ()
70              
71             Return the version of the (sub)module.
72              
73             =back
74              
75             =head1 VERSION
76              
77             $Id$
78              
79             =head1 AUTHOR
80              
81             Nicola Worthington - L
82              
83             Jens Rehsack - L
84              
85             =head1 COPYRIGHT
86              
87             Copyright 2004,2005,2006 Nicola Worthington.
88              
89             Copyright 2009-2014 Jens Rehsack.
90              
91             This software is licensed under The Apache Software License, Version 2.0.
92              
93             L
94              
95             =cut
96