Select Code to Download

my $LOG_ERROR;                                                        
+                                 
my $_log_error_sub_cache;
sub setup
...
    no warnings 'redefine';
    *Foo::Bar:_log_error = $_log_error_sub_cache;
}

use Foo::Test::LogMessages;
my $log = Foo::Test::LogMessages->new;

...
{
  # do something
}