view release on metacpan or  search on metacpan

lib/ARGV/ENV.pm  view on Meta::CPAN

use strict;
use warnings;

package ARGV::ENV;
{
  $ARGV::ENV::VERSION = '1.00';
}

use Text::ParseWords ();

sub import
{
    shift;
    foreach (@_) {
	if (defined $ENV{$_} && $ENV{$_} ne '') {
	    unshift @ARGV, Text::ParseWords::shellwords($ENV{$_});
	    last;
	}
    }
}