File Coverage

blib/lib/Bundler/MultiGem/Model/Directories.pm

Criterion	Covered	Total	%
statement	28	45	62.2
branch	2	10	20.0
condition	2	2	100.0
subroutine	8	11	72.7
pod	5	5	100.0
total	45	73	61.6

package Bundler::MultiGem::Model::Directories {
  use 5.006;
  use strict;
  use warnings;
  use File::Spec::Functions qw(catpath);
  use Bundler::MultiGem::Utl::Directories qw(mk_dir rm_dir);
  use constant REQUIRED_KEYS => qw(cache directories);
=head1 NAME
Bundler::MultiGem::Model::Directory - Manipulate directories and cache
=
head1 VERSION

Version 0.01

=cut

our $VERSION = '0.01';
=head1 SUBROUTINES
=cut

=head2 new
  Take config as argument
=cut
  sub new {
    my $class = shift;
    my $self = shift // {};
    bless $self, $class;
    return $self;
  }

=head2 validates
  Validates current configuration
=cut
  sub validates {
  	my $self = shift;
  	my %keys = map { $_ => 1 } keys(%$self);
  	foreach my $k (REQUIRED_KEYS) {
  	  if (! defined($keys{$k}) ) {
  	  	die "Missing key: $k for Bundler::MultiGem::Model::Directories";
  	  }
  	}
  	return $self;
  }

=head2 cache
  cache getter
=cut
  sub cache {
    my ($self, $key) = @_;
    if (!defined $key) {
      return $self->{cache};
    }
    return $self->{cache}->{$key}
  }

=head2 dirs
  dirs getter
=cut
  sub dirs {
    my ($self, $key) = @_;
    if (!defined $key) {
      return $self->{directories};
    }
    elsif ($key eq 'root') {
      return $self->{directories}->{root};
    }
    return catpath($self->dirs('root'), $self->{directories}->{$key});
  }

=head2 apply_cache
  apply_cache current configuration
=cut
sub apply_cache {
  my $self = shift;
  my $root = $self->dirs('root');
  mk_dir($root);
  foreach my $k (keys(%{$self->cache})){
    if (! $self->cache->{$k}) {
      rm_dir $self->dirs($k);
    }
    mk_dir $self->dirs($k);
  }
}

};
1;