File Coverage

blib/lib/Env/Sanctify/Moosified.pm

Criterion	Covered	Total	%
statement	38	38	100.0
branch	2	2	100.0
condition			n/a
subroutine	9	9	100.0
pod	2	3	66.6
total	51	52	98.0

package Env::Sanctify::Moosified;
{
  $Env::Sanctify::Moosified::VERSION = '1.06';
}

#ABSTRACT: Lexically scoped sanctification of %ENV

use strict;
use warnings;

use Moo;
use MooX::late;

has env => (
  is      => 'ro',
  isa     => 'HashRef',
  default => sub { { } },
);

has sanctify => (
  is      => 'ro',
  isa     => 'ArrayRef',
  default => sub { [ ] },
);

has _backup => (
  is      => 'ro',
  isa     => 'HashRef',
  default => sub { { } },
);

has _restored => (
  is      => 'rw',
  isa	  => 'Bool',
  default => 0,
);

sub consecrate {
  my $self = shift->new( @_ );
  $self->_sanctify;
  return $self;
}

sub _sanctify {
  my $self = shift;
  foreach my $regex ( @{ $self->sanctify } ) {
    $self->_backup->{$_} = delete $ENV{$_} for grep { eval { /$regex/ } } keys %ENV;
  }
  $self->_backup->{$_} = delete $ENV{$_} for grep { defined $ENV{$_} } keys %{ $self->env };
  $ENV{$_} = $self->env->{$_} for keys %{ $self->env };
  return 1;
}

sub restore {
  my $self = shift;
  delete $ENV{$_} for keys %{ $self->env };
  $ENV{$_} = $self->_backup->{$_} for keys %{ $self->_backup };
  return $self->_restored(1);
}

sub DEMOLISH {
  my $self = shift;
  $self->restore unless $self->_restored;
}

no Moo;
__PACKAGE__->meta->make_immutable;

'Sanctify yourself, set yourself free';

__END__