line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package Log::Syslog::Fast::Constants; |
2
|
|
|
|
|
|
|
|
3
|
16
|
|
|
16
|
|
53
|
use strict; |
|
16
|
|
|
|
|
14
|
|
|
16
|
|
|
|
|
388
|
|
4
|
16
|
|
|
16
|
|
50
|
use warnings; |
|
16
|
|
|
|
|
15
|
|
|
16
|
|
|
|
|
232
|
|
5
|
|
|
|
|
|
|
|
6
|
16
|
|
|
16
|
|
3323
|
use Log::Syslog::Constants (); |
|
16
|
|
|
|
|
9222
|
|
|
16
|
|
|
|
|
212
|
|
7
|
16
|
|
|
16
|
|
60
|
use Carp 'croak'; |
|
16
|
|
|
|
|
19
|
|
|
16
|
|
|
|
|
1402
|
|
8
|
|
|
|
|
|
|
|
9
|
|
|
|
|
|
|
require Exporter; |
10
|
|
|
|
|
|
|
our @ISA = qw(Exporter); |
11
|
|
|
|
|
|
|
|
12
|
|
|
|
|
|
|
# protocols |
13
|
16
|
|
|
16
|
|
56
|
use constant LOG_UDP => 0; # UDP |
|
16
|
|
|
|
|
16
|
|
|
16
|
|
|
|
|
561
|
|
14
|
16
|
|
|
16
|
|
51
|
use constant LOG_TCP => 1; # TCP |
|
16
|
|
|
|
|
15
|
|
|
16
|
|
|
|
|
529
|
|
15
|
16
|
|
|
16
|
|
51
|
use constant LOG_UNIX => 2; # UNIX socket |
|
16
|
|
|
|
|
18
|
|
|
16
|
|
|
|
|
488
|
|
16
|
|
|
|
|
|
|
|
17
|
|
|
|
|
|
|
# formats |
18
|
16
|
|
|
16
|
|
54
|
use constant LOG_RFC3164 => 0; |
|
16
|
|
|
|
|
17
|
|
|
16
|
|
|
|
|
503
|
|
19
|
16
|
|
|
16
|
|
53
|
use constant LOG_RFC5424 => 1; |
|
16
|
|
|
|
|
17
|
|
|
16
|
|
|
|
|
2882
|
|
20
|
|
|
|
|
|
|
|
21
|
|
|
|
|
|
|
our @EXPORT = (); |
22
|
|
|
|
|
|
|
our %EXPORT_TAGS = ( |
23
|
|
|
|
|
|
|
protos => [qw/ LOG_TCP LOG_UDP LOG_UNIX /], |
24
|
|
|
|
|
|
|
formats => [qw/ LOG_RFC3164 LOG_RFC5424 /], |
25
|
|
|
|
|
|
|
); |
26
|
|
|
|
|
|
|
$EXPORT_TAGS{$_} = $Log::Syslog::Constants::EXPORT_TAGS{$_} |
27
|
|
|
|
|
|
|
for qw(facilities severities); |
28
|
|
|
|
|
|
|
our @EXPORT_OK = @{ $EXPORT_TAGS{all} } = map {@$_} values %EXPORT_TAGS; |
29
|
|
|
|
|
|
|
|
30
|
|
|
|
|
|
|
sub AUTOLOAD { |
31
|
40
|
|
|
40
|
|
90032
|
(my $meth = our $AUTOLOAD) =~ s/.*:://; |
32
|
40
|
50
|
|
|
|
300
|
if (Log::Syslog::Constants->can($meth)) { |
33
|
40
|
|
|
|
|
333
|
return Log::Syslog::Constants->$meth(@_); |
34
|
|
|
|
|
|
|
} |
35
|
0
|
|
|
|
|
|
croak "Undefined subroutine $AUTOLOAD"; |
36
|
|
|
|
|
|
|
} |
37
|
|
|
|
|
|
|
|
38
|
|
|
|
|
|
|
1; |