BEGIN {
  $override= Sub::Override->new(
    'Logger::log_warn' => sub {
      push @wawrnings, $_[0] if caller eq 'MyObj';
    }
  )
}