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/}