Re: Disabling runtime warnings in dynamic scope? (no warnings 'exiting'; use warnings 'exiting';

in reply to Disabling runtime warnings in dynamic scope?

Find the right scope and tickle ${^WARNING_BITS}?

$ perl -l
#!/usr/bin/perl --
use strict;
use warnings;
use diagnostics;


sub switch {
    no warnings 'exiting';
    while (@_) {
        my ($case, $action) = splice @_,0,2;
        return $action->($case) if $_ ~~ $case;
    }
}


no warnings 'exiting';
switch
  [1,2,3] => sub { print "bla" ; next},
  3       => sub { print "bla2" }
  for (3);
use warnings 'exiting';
switch
  [1,2,3] => sub { print "bla" ; next},
  3       => sub { print "bla2" }
  for (3);
use warnings 'exiting';
switch
  [1,2,3] => sub { no warnings 'exiting'; print "bla" ; next},
  3       => sub { no warnings 'exiting'; print "bla2" }
  for (3);

__END__
bla
bla2
bla
Exiting subroutine via next at - line 23 (#1)
    (W exiting) You are exiting a subroutine by unconventional means, 
+such
    as a goto, or a loop control statement.

bla2
bla
bla2
[download]

Comment on Re: Disabling runtime warnings in dynamic scope? (no warnings 'exiting'; use warnings 'exiting'; Download Code

Replies are listed 'Best First'.
Re^2: Disabling runtime warnings in dynamic scope? (no warnings 'exiting'; use warnings 'exiting'; by LanX (Saint) on Apr 25, 2018 at 23:13 UTC
But how? Cheers Rolf _{(addicted to the Perl Programming Language and ☆☆☆☆ :) Wikisyntax for the Monastery}	[reply]
Re^3: Disabling runtime warnings in dynamic scope? (Scope::Context) by beech (Parson) on Apr 25, 2018 at 23:16 UTC
PadWalker? update: PadWalker is a bust, peek_sub and peek_our didn't return WARNING_BITS. But Scope::Context looks like a candidate update: another candidate Devel::Declare	[reply]
Re^4: Disabling runtime warnings in dynamic scope? (Devel::Declare) by LanX (Saint) on Apr 26, 2018 at 00:06 UTC
> Devel::Declare this is the ugly grandfather of pluggable keys, right? Yes probably if I defined a key "case" I could implement it like this. Unless mauke already published a switch module using Keyword::Simple ... ;) See Switch::Plain Cheers Rolf _{(addicted to the Perl Programming Language and ☆☆☆☆ :) Wikisyntax for the Monastery}	[reply]
Re^4: Disabling runtime warnings in dynamic scope? (Scope::Context) by LanX (Saint) on Apr 25, 2018 at 23:37 UTC
> Scope::Context Thanks, interesting! :) Seems to be based on Scope::Upper and does loads of black magic. (And might be useful to implement lisp style macros) But only on upper contexts. The subs in questions are "lower" contexts Cheers Rolf _{(addicted to the Perl Programming Language and ☆☆☆☆ :) Wikisyntax for the Monastery}	[reply]
Re^5: Disabling runtime warnings in dynamic scope? (Code::Splice) by beech (Parson) on Apr 25, 2018 at 23:50 UTC
Re^6: Disabling runtime warnings in dynamic scope? (Code::Splice) by LanX (Saint) on Apr 26, 2018 at 00:00 UTC
Re^4: Disabling runtime warnings in dynamic scope? (PadWalker) by LanX (Saint) on Apr 25, 2018 at 23:25 UTC
I'm pretty sure PadWalker can't access global special vars inside a foreign sub. And manipulating the warn handler looks cleaner now (though I have to check caller(2) too) Cheers Rolf _{(addicted to the Perl Programming Language and ☆☆☆☆ :) Wikisyntax for the Monastery}	[reply]

In Section Seekers of Perl Wisdom