File Coverage

blib/lib/Sys/Filesystem/Dummy.pm
Criterion Covered Total %
statement 14 19 73.6
branch 0 2 0.0
condition n/a
subroutine 5 7 71.4
pod 1 2 50.0
total 20 30 66.6


line stmt bran cond sub pod time code
1             ############################################################
2             #
3             # Sys::Filesystem - Retrieve list of filesystems and their properties
4             #
5             # Copyright 2004,2005,2006 Nicola Worthington
6             # Copyright 2008-2020 Jens Rehsack
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   11107 use 5.008001;
  6         25  
27              
28 6     6   32 use strict;
  6         11  
  6         122  
29 6     6   31 use warnings;
  6         15  
  6         179  
30 6     6   40 use Carp qw(croak);
  6         12  
  6         308  
31              
32 6     6   33 use vars qw($VERSION);
  6         11  
  6         960  
33             $VERSION = '1.407_001';
34              
35             sub version()
36             {
37 0     0 1   return $VERSION;
38             }
39              
40             ## no critic (Subroutines::RequireArgUnpacking)
41             sub new
42             {
43 0 0   0 0   ref(my $class = shift) && croak 'Class name required';
44 0           my %args = @_;
45 0           my $self = bless({}, $class);
46              
47 0           return $self;
48             }
49              
50             1;
51              
52             =pod
53              
54             =head1 NAME
55              
56             Sys::Filesystem::Dummy - Returns nothing to Sys::Filesystem
57              
58             =head1 SYNOPSIS
59              
60             See L.
61              
62             =head1 INHERITANCE
63              
64             Sys::Filesystem::Dummy
65             ISA UNIVERSAL
66              
67             =head1 METHODS
68              
69             =over 4
70              
71             =item version ()
72              
73             Return the version of the (sub)module.
74              
75             =back
76              
77             =head1 AUTHOR
78              
79             Nicola Worthington - L
80              
81             Jens Rehsack - L
82              
83             =head1 COPYRIGHT
84              
85             Copyright 2004,2005,2006 Nicola Worthington.
86              
87             Copyright 2009-2020 Jens Rehsack.
88              
89             This software is licensed under The Apache Software License, Version 2.0.
90              
91             L
92              
93             =cut