in reply to no module warnings in client code

There are missing variables here, such as is this a module you maintain, is it emitting warnings directly or using Carp or other secondary module, does your suggested code work?

In general, the easiest and most appropriate way to silence warnings is to address what the warning is complaining about. Assuming you don't want to do that, your code above would work, assuming that the module does not implement its own warning control. If it does, you can cheat by locally clobbering the warning handler: 

{
    local $SIG{__WARN__} = sub {#Drop it};
    RandomModule::doSomethingThatCanGenerateWarnings();
}

[download]

Update: Added some <del> tags following a node update.

#11929 First ask yourself `How would I do this without a computer?' Then have the computer do it the same way.

Replies are listed 'Best First'.
Re^2: no module warnings in client code
by citromatik (Curate) on Aug 27, 2013 at 14:05 UTC

    Hi kennethk

    My suggested code doesn't work... If it had worked I wouldn't have asked!

    Here is a testing code:

    Package:

    package tt;

use strict;
use warnings;

sub w {
  my $str = "";
  return substr ($str, 10, 10);
}

1;

    [download]

    Client script:

    use strict;
use tt;

print tt::w();

    [download]

    Defining a local warning handler works perfectly:

    use strict;
use tt;

local $SIG{__WARN__} = sub {};
print tt::w();

    [download]

    Thanks for the help

    citromatik

[reply]
[d/l]
[select]
      Hi citromatik,
      And you might want to but local $SIG{__WARN__} = sub{}; into a block like kennethk did it.
      If not, you would not receive any other warnings from your client script.
      Just saying ...
      If you tell me, I'll forget.
      If you show me, I'll remember.
      if you involve me, I'll understand.
      --- Author unknown to me
[reply]
[d/l]

In Section Seekers of Perl Wisdom