File Coverage

blib/lib/App/Milter/Limit/Log.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 2 2 100.0
total 22 22 100.0


line stmt bran cond sub pod time code
1             #
2             # This file is part of App-Milter-Limit
3             #
4             # This software is copyright (c) 2010 by Michael Schout.
5             #
6             # This is free software; you can redistribute it and/or modify it under
7             # the same terms as the Perl 5 programming language system itself.
8             #
9              
10             package App::Milter::Limit::Log;
11             $App::Milter::Limit::Log::VERSION = '0.53';
12             # ABSTRACT: logging functions for App::Milter::Limit
13              
14 5     5   31 use strict;
  5         7  
  5         131  
15 5     5   24 use warnings;
  5         12  
  5         122  
16              
17 5     5   24 use base 'Exporter';
  5         11  
  5         297  
18 5     5   1900 use Sys::Syslog ();
  5         63578  
  5         422  
19              
20             our @EXPORT = qw(debug info);
21              
22              
23             sub debug {
24 6     6 1 74 Sys::Syslog::syslog('warning', join '', @_);
25             }
26              
27              
28              
29             sub info {
30 6     6 1 54 Sys::Syslog::syslog('info', join '', @_);
31             }
32              
33             1;
34              
35             __END__