If you need to do this, this shows to me that there's something wrong with the language you're using, or at least, with the way you're using it. A sign of weakness — especially if that's the best way to do it.

So, is it copy/paste programming if I use for my $i ( 1 .. 10 ) { in two different programs?

Should I do that as:

use Useful::For qw[ ForRange ];

ForRange \my $i, 1, 10, {
    print $$i;
}
[download]

?

How about a Useful::If, and a Useful::While and a ...

Of course, now all our programs have to start with:

use Useful::For qw[ ForRange ];
use UseFul::If;
use UseFul::While;
 ...
[download]

But that is so repetative. That has to be a candidate for a module right!

use Useful;
Use qw[ For If While ];
...
[download]

But hang on. We lost the ability to select individual routines from each module. We have to fix that, so:

use Useful;
Useful {
   For   => qw[ ForRange ],
   If    => qw[ :all ],
   While => qw[ :all ],
};
[download]

Better, but still a lot of C&P. How about:

use Perl qw[ :all ];
[download]

Perfect!

---

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

"Too many [] have been sedated by an oppressive environment of political correctness and risk aversion."