File Coverage

blib/lib/Gentoo/PerlMod/Version/Env.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch	8	8	100.0
condition			n/a
subroutine	6	6	100.0
pod	3	3	100.0
total	39	39	100.0

use 5.006;
use strict;
use warnings;

package Gentoo::PerlMod::Version::Env;

our $VERSION = 'v0.8.1';

# ABSTRACT: Get/parse settings from %ENV

our $AUTHORITY = 'cpan:KENTNL'; # AUTHORITY

my $state;
my $env_key = 'GENTOO_PERLMOD_VERSION_OPTS';







sub opts {
  return $state if defined $state;
  $state = {};
  return $state if not defined $ENV{$env_key};
  my (@tokes) = split /\s+/msx, $ENV{$env_key};
  for my $token (@tokes) {
    if ( $token =~ /\A([^=]+)=(.+)\z/msx ) {
      $state->{"$1"} = "$2";
    }
    elsif ( $token =~ /\A-(.+)\z/msx ) {
      delete $state->{"$1"};
    }
    else {
      $state->{$token} = 1;
    }
  }
  return $state;
}











sub hasopt {
  my ($opt) = @_;
  return exists opts()->{$opt};
}











sub getopt {
  my ($opt) = @_;
  return opts()->{$opt};
}

1;

__END__