The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

POLETTIX / Log-Log4perl-Tiny-1.8.0 / t / LayoutCompareModule.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

              
package LayoutCompareModule;
use strict;
use warnings;
BEGIN {
   *INFO = *main::INFO;
}
sub talk {
   INFO "talk";
   Some::Other::ever();
}
sub complain {
   $_[0]->();
}
1;