File Coverage

blib/lib/Filesys/POSIX/Directory/Handle.pm
Criterion Covered Total %
statement 3 5 60.0
branch n/a
condition n/a
subroutine 2 3 66.6
pod 0 3 0.0
total 5 11 45.4


line stmt bran cond sub pod time code
1             # Copyright (c) 2014, cPanel, Inc.
2             # All rights reserved.
3             # http://cpanel.net/
4             #
5             # This is free software; you can redistribute it and/or modify it under the same
6             # terms as Perl itself. See the LICENSE file for further details.
7              
8             package Filesys::POSIX::Directory::Handle;
9              
10             =head1 NAME
11              
12             Filesys::POSIX::Directory::Handle - Basic placeholder for directory file handles
13              
14             =head1 DESCRIPTION
15              
16             This class provides a basic stub that allows for the return of a file handle
17             object based on a directory. These are only meant to be used internally by
18             L and currently perform no functions of their own.
19              
20             =cut
21              
22             sub new {
23 2     2 0 3 my ($class) = @_;
24              
25 2         14 return bless {}, $class;
26             }
27              
28             sub open {
29 0     0 0 0 my ($self) = @_;
30              
31 0         0 return $self;
32             }
33              
34             sub close {
35 1     1 0 2 return;
36             }
37              
38             1;
39              
40             __END__