in reply to Re: no module warnings in client code
in thread no module warnings in client code

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;

Client script:

use strict; use tt; print tt::w();

Defining a local warning handler works perfectly:

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

Thanks for the help

citromatik

Replies are listed 'Best First'.
Re^3: no module warnings in client code
by 2teez (Vicar) on Aug 27, 2013 at 14:41 UTC
    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