File Coverage

lib/Log/Unrotate/Cursor/Null.pm
Criterion Covered Total %
statement 15 17 88.2
branch n/a
condition n/a
subroutine 7 9 77.7
pod 4 4 100.0
total 26 30 86.6


line stmt bran cond sub pod time code
1             package Log::Unrotate::Cursor::Null;
2             {
3             $Log::Unrotate::Cursor::Null::VERSION = '1.32';
4             }
5              
6 1     1   10 use strict;
  1         3  
  1         1787  
7 1     1   14 use warnings;
  1         5  
  1         49  
8              
9             =head1 NAME
10              
11             Log::Unrotate::Cursor::Null - dummy unrotate cursor
12              
13             =head1 VERSION
14              
15             version 1.32
16              
17             =head1 DESCRIPTION
18              
19             This is a dummy cursor, commits to it go nowhere.
20              
21             =head1 METHODS
22              
23             =over
24              
25             =cut
26              
27 1     1   6 use base qw(Log::Unrotate::Cursor);
  1         2  
  1         158  
28              
29 1     1   8 use overload '""' => sub { 'Null' };
  1     0   1  
  1         16  
  0         0  
30              
31             =item B
32              
33             Create a null cursor.
34              
35             =cut
36             sub new {
37 2     2 1 12 return bless {} => shift;
38             }
39              
40             =back
41              
42             =cut
43              
44 2     2 1 8 sub read { return }
45 1     1 1 5 sub commit { return }
46 0     0 1   sub clean { return }
47              
48             1;