I'd like to see an example. I believe that pragmas affect the scope that is one level up not on the package that is one level up so I don't see how your suggestion would do any good.

My bad. I was thinking of vars. For pragmas you have to be a little creative. But if you use what I learned at Re (tilly) 1: How does strict work?, it is doable but slightly tricky.

Perhaps an example would be best.

Suppose that you wanted a version of strict and vars wrapped up in one, takes one argument list and splits it in the obvious way between strict and vars...

package my_strict;
use strict;
use vars;

sub import {
  shift; # I know my class name I hope
  my (@vars, @strictures);
  foreach (@_) {
    if (/\W/) {
      push @vars, $_;
    }
    else {
      push @strictures, $_;
    }
  }
  
  my $pkg = caller;
  $^H = eval "
    package $pkg;
    no strict;
    use strict qw(@strictures);
    vars->import(\@vars);
    \$^H;
  ";
}

1;
[download]

Is that what you wanted?

After playing with this for a while, it boils down to the fact that you can't get the pragma to bubble up an extra level but you can cut'n'paste (varying amounts of) code from the pragma's *.pm file into your own *.pm in order to create your own custom pragma which does the same thing (which seems obvious now but sure didn't a few minutes ago).

Anyway, the e.pm I wanted above can be had rather simply as:

package e;
require strict;
require warnings;
sub import {
    &strict::import;
    &warnings::import;
}
1;
[download]

        - tye (but my friends call me "Tye")