File Coverage

blib/lib/Log/Fine/Handle/Null.pm
Criterion Covered Total %
statement 13 13 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 1 1 100.0
total 19 19 100.0


line stmt bran cond sub pod time code
1              
2             =head1 NAME
3              
4             Log::Fine::Handle::Null - Output messages to nowhere
5              
6             =head1 SYNOPSIS
7              
8             Provides logging to nowhere in particular
9              
10             use Log::Fine::Handle::Null;
11             use Log::Fine::Levels::Syslog qw( :masks );
12              
13             # Create a new handle
14             my $handle = Log::Fine::Handle::Null
15             ->new( name => "devnull",
16             mask => LOGMASK_DEBUG | LOGMASK_INFO | LOGMASK_NOTICE
17             );
18              
19             # This is a no-op
20             $handle->msgWrite(INFO, "Goes Nowhere. Does Nothing.");
21              
22             =head1 DESCRIPTION
23              
24             The null handle provides logging to nowhere in particular.
25              
26             =cut
27              
28 2     2   1014 use strict;
  2         2  
  2         43  
29 2     2   6 use warnings;
  2         2  
  2         78  
30              
31             package Log::Fine::Handle::Null;
32              
33 2     2   6 use base qw( Log::Fine::Handle );
  2         2  
  2         384  
34              
35 2     2   7 use Log::Fine;
  2         2  
  2         94  
36              
37             our $VERSION = $Log::Fine::Handle::VERSION;
38              
39             =head1 METHODS
40              
41             =head2 msgWrite
42              
43             See L
44              
45             =cut
46              
47 1     1 1 1107 sub msgWrite { return $_[0]; } # msgWrite()
48              
49             =head1 BUGS
50              
51             Please report any bugs or feature requests to
52             C, or through the web interface at
53             L.
54             I will be notified, and then you'll automatically be notified of progress on
55             your bug as I make changes.
56              
57             =head1 SUPPORT
58              
59             You can find documentation for this module with the perldoc command.
60              
61             perldoc Log::Fine
62              
63             You can also look for information at:
64              
65             =over 4
66              
67             =item * AnnoCPAN: Annotated CPAN documentation
68              
69             L
70              
71             =item * CPAN Ratings
72              
73             L
74              
75             =item * RT: CPAN's request tracker
76              
77             L
78              
79             =item * Search CPAN
80              
81             L
82              
83             =back
84              
85             =head1 AUTHOR
86              
87             Christopher M. Fuhrman, C<< >>
88              
89             =head1 SEE ALSO
90              
91             L, L
92              
93             =head1 COPYRIGHT & LICENSE
94              
95             Copyright (c) 2013 Christopher M. Fuhrman,
96             All rights reserved.
97              
98             This program is free software licensed under the...
99              
100             The BSD License
101              
102             The full text of the license can be found in the
103             LICENSE file included with this module.
104              
105             =cut
106              
107             1; # End of Log::Fine::Handle::Null