| File: | blib/lib/Log/Abstraction/Backend/File.pm |
| Coverage: | 100.0% |
| line | stmt | bran | cond | sub | time | code |
|---|---|---|---|---|---|---|
| 1 | package Log::Abstraction::Backend::File; | |||||
| 2 | ||||||
| 3 | # The file backend: append a formatted line to a file | |||||
| 4 | 37 37 37 | 92 16 136 | use strict; | |||
| 5 | 37 37 37 | 30 36 263 | use warnings; | |||
| 6 | ||||||
| 7 | 37 37 37 | 46 21 35 | use parent 'Log::Abstraction::Backend'; | |||
| 8 | ||||||
| 9 | our $VERSION = '0.40'; | |||||
| 10 | ||||||
| 11 - 35 | =head1 NAME Log::Abstraction::Backend::File - append messages to a file =head1 VERSION 0.40 =head1 DESCRIPTION Built for C<logger =E<gt> $path>, a top-level C<file>, or the C<file> key of a C<logger> hash. Each message is formatted (with the backend's C<format>, or else the logger's) and appended to the file, which is opened for each message. The path is checked, and the file rotated, by Log::Abstraction. For use by L<Log::Abstraction> only; see L<Log::Abstraction::Backend>. =head1 METHODS =head2 emit $backend->emit($logger, $event); =cut | |||||
| 36 | ||||||
| 37 | sub emit { | |||||
| 38 | 165 | 113 | my ($self, $logger, $event) = @_; | |||
| 39 | ||||||
| 40 | 165 | 157 | $event->{'write'}->($self->{'file'}, $event->{'render'}->($self->{'format'})); | |||
| 41 | } | |||||
| 42 | ||||||
| 43 - 59 | =head1 AUTHOR Nigel Horne C<njh@nigelhorne.com> =head1 SEE ALSO L<Log::Abstraction>, L<Log::Abstraction::Backend> =head1 COPYRIGHT AND LICENSE Copyright (C) 2025-2026 Nigel Horne Usage is subject to the GPL2 licence terms. If you use it, please let me know. =cut | |||||
| 60 | ||||||
| 61 | 1; | |||||