Stories
Slash Boxes
Comments
NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.

All the Perl that's Practical to Extract and Report

The Fine Print: The following comments are owned by whoever posted them. We are not responsible for them in any way.
 Full
 Abbreviated
 Hidden
More | Login | Reply
Loading... please wait.
  • Here's a simple implementation. (I think Env::Constant is a better name than Env::Export) You can find it with some basic tests and docs at http://svn.ali.as/cpan/trunk/Env-Constant [svn.ali.as]. Contact Adam Kennedy if you want commit access to that repository*.

    package Env::Constant;

    use 5.006001;
    use strict;
    use warnings;
    use Carp qw/croak/;

    our $VERSION = '0.01';

    sub import {
        my $class = shift;
        my $matching_keys = shift;
        $matching_keys = eval {qr/$matching_keys/}
       

    • I can actually think of ways this can be useful (beyond what others in this thread have dismissed), and might actually craft something as a proof-of-concept. Do you mind if I borrow/adapt some of your code as a starting point?

      --

      --rjray

      • Hi Randy,

        feel free to use whatever you like. I'd suggest taking it from SVN where there's also a bit of documentation and a few basic tests.

        Cheers,
        Steffen