/usr/share/perl5/Log/Any/Adapter/FileScreenBase.pm is in liblog-any-adapter-perl 0.11-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | package Log::Any::Adapter::FileScreenBase;
{
$Log::Any::Adapter::FileScreenBase::VERSION = '0.11';
}
use Log::Any::Adapter::Util qw(make_method);
use strict;
use warnings;
use base qw(Log::Any::Adapter::Base);
sub make_logging_methods {
my ( $class, $code ) = @_;
foreach my $method ( Log::Any->logging_methods() ) {
make_method( $method, $code, $class );
}
}
foreach my $method ( Log::Any->detection_methods() ) {
make_method( $method, sub { 1 } );
}
1;
|