File Coverage

blib/lib/Bundler/MultiGem/Utl/InitConfig.pm

Criterion	Covered	Total	%
statement	33	33	100.0
branch	2	2	100.0
condition			n/a
subroutine	10	10	100.0
pod	2	3	66.6
total	47	48	97.9

package Bundler::MultiGem::Utl::InitConfig {
  use 5.006;
  use strict;
  use warnings;

  use Exporter qw(import);
  our @EXPORT = qw(ruby_constantize merge_configuration);

  use Storable qw(dclone dclone);
  use Hash::Merge qw(merge);
  use common::sense;

=head1 NAME

Bundler::MultiGem::Utl::InitConfig - The utility to install multiple versions of the same ruby gem

=head1 VERSION

Version 0.01

=head1 SYNOPSIS

This module contains a default configuration for the package to work and the utility functions to manipulate it.

=cut

  our $DEFAULT_CONFIGURATION = {
    'gem' => {
      'source' => 'https://rubygems.org',
      'name' => undef,
      'main_module' => undef,
      'versions' => [()]
    },
    'directories' => {
      'root' => undef,
      'pkg' => 'pkg',
      'target' => 'versions'
    },
    'cache' => {
      'pkg' => 1,
      'target' => 0
    }
  };


=head1 SUBROUTINES/METHODS

=head2 merge_configuration

=cut
  sub merge_configuration {
    my $custom_config = shift;
    my $result = merge($custom_config, dclone($DEFAULT_CONFIGURATION));
    default_main_module($result);
  }

=head2 merge_configuration

=cut
  sub default_main_module {
    my $custom_config = shift;
    my $gem_config = $custom_config->{gem};
    if ( !defined $gem_config->{main_module}) {
      $gem_config->{main_module} = ruby_constantize($gem_config->{name});
    }
    $custom_config
  }

=head2 ruby_constantize

=cut
  sub ruby_constantize {
    my $name = shift;
    for ($name) {
      s/_(\w)/\U$1/g;
      s/-(\w)/::\U$1/g;
    }
    ucfirst $name;
  }
};

1;