File Coverage

blib/lib/App/Milter/Limit/Log.pm
Criterion Covered Total %
statement 9 11 81.8
branch n/a
condition n/a
subroutine 3 5 60.0
pod 2 2 100.0
total 14 18 77.7


line stmt bran cond sub pod time code
1             package App::Milter::Limit::Log;
2             $App::Milter::Limit::Log::VERSION = '0.52';
3             # ABSTRACT: logging functions for App::Milter::Limit
4              
5 1     1   4 use strict;
  1         2  
  1         26  
6 1     1   4 use base 'Exporter';
  1         1  
  1         52  
7 1     1   891 use Sys::Syslog ();
  1         26274  
  1         119  
8              
9             our @EXPORT = qw(debug info);
10              
11              
12             sub debug {
13 0     0 1   Sys::Syslog::syslog('warning', join '', @_);
14             }
15              
16              
17              
18             sub info {
19 0     0 1   Sys::Syslog::syslog('info', join '', @_);
20             }
21              
22             1;
23              
24             __END__