File Coverage

blib/lib/Code/Crypt/Graveyard.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod	1	1	100.0
total	22	22	100.0

package Code::Crypt::Graveyard;
{
  $Code::Crypt::Graveyard::VERSION = '0.001000';
}

# ABSTRACT: Encrypt you code with multiple nested keys

use Moo;

has code => (
   is => 'ro',
   required => 1,
);

has builders => (
   is => 'ro',
   required => 1,
);

sub _builder_at { $_[0]->builders->[$_[1]] }
sub _innermost_builder { $_[0]->_builder_at(0) }
sub _outermost_builder { $_[0]->_builder_at($_[0]->_final_builder_index) }
sub _final_builder_index { scalar @{$_[0]->builders} - 1 }

sub final_code {
   my $self = shift;

   $self->_innermost_builder->code($self->code);

   for my $builder_id (1 .. $self->_final_builder_index) {
      my $builder = $self->_builder_at($builder_id);
      my $wrapped_builder = $self->_builder_at($builder_id - 1);
      $builder->code($wrapped_builder->final_code);
   }
   $self->_outermost_builder->final_code
}

1;

__END__