| File: | lib/Code/Statistics/Config.pm |
| Coverage: | 100.0% |
| line | stmt | bran | cond | sub | pod | time | code |
|---|---|---|---|---|---|---|---|
| 1 | 1 1 1 | 0 0 0 | use strict; | ||||
| 2 | 1 1 1 | 0 0 0 | use warnings; | ||||
| 3 | |||||||
| 4 | package Code::Statistics::Config; | ||||||
| 5 | |||||||
| 6 | # ABSTRACT: merges configuration options from various sources | ||||||
| 7 | |||||||
| 8 | 1 1 1 | 0 0 0 | use Moose; | ||||
| 9 | 1 1 1 | 0 0 0 | use MooseX::HasDefaults::RO; | ||||
| 10 | |||||||
| 11 | 1 1 1 | 0 0 0 | use Hash::Merge qw( merge ); | ||||
| 12 | 1 1 1 | 0 0 0 | use Config::INI::Reader; | ||||
| 13 | 1 1 1 | 0 0 0 | use Path::Class qw(file); | ||||
| 14 | 1 1 1 | 0 0 0 | use File::HomeDir; | ||||
| 15 | |||||||
| 16 | has args => ( isa => 'HashRef', default => sub {{}} ); | ||||||
| 17 | |||||||
| 18 | has command => ( isa => 'Str', ); | ||||||
| 19 | |||||||
| 20 | has conf_file => ( isa => 'Str', default => '.codestatrc' ); | ||||||
| 21 | |||||||
| 22 | has global_conf_file => ( isa => 'Str', default => sub { file( File::HomeDir->my_home, '.codestatrc' )->stringify } ); | ||||||
| 23 | |||||||
| 24 | has profile => ( isa => 'Str', ); | ||||||
| 25 | |||||||
| 26 - 29 | =head2 assemble
Builds the command-related configuration hash. The hash contains all config
options from the global config file, local file and command line arguments.
=cut | ||||||
| 30 | |||||||
| 31 | sub assemble { | ||||||
| 32 | 6 | 0 | my ( $self ) = @_; | ||||
| 33 | |||||||
| 34 | 6 | 0 | my $config = {}; | ||||
| 35 | |||||||
| 36 | 6 | 0 | $config = merge( $self->_global_config, $config ); | ||||
| 37 | 6 | 0 | $config = merge( $self->_local_config, $config ); | ||||
| 38 | 6 | 0 | $config = merge( $self->args, $config ); | ||||
| 39 | |||||||
| 40 | 6 | 15625 | return $config; | ||||
| 41 | } | ||||||
| 42 | |||||||
| 43 | sub _local_config { | ||||||
| 44 | 6 | 0 | my ( $self ) = @_; | ||||
| 45 | |||||||
| 46 | 6 | 0 | return $self->_merged_conf_from( $self->conf_file ); | ||||
| 47 | } | ||||||
| 48 | |||||||
| 49 | sub _global_config { | ||||||
| 50 | 6 | 0 | my ( $self ) = @_; | ||||
| 51 | |||||||
| 52 | 6 | 0 | return $self->_merged_conf_from( $self->global_conf_file ); | ||||
| 53 | } | ||||||
| 54 | |||||||
| 55 | sub _merged_conf_from { | ||||||
| 56 | 12 | 0 | my ( $self, $file ) = @_; | ||||
| 57 | |||||||
| 58 | 12 | 0 | return {} if !$file or !-e $file; | ||||
| 59 | |||||||
| 60 | 7 | 0 | my $conf = Config::INI::Reader->read_file( $file ); | ||||
| 61 | |||||||
| 62 | 7 | 0 | my $merge; | ||||
| 63 | 7 21 | 0 0 | my @sections = grep { defined } ( '_', $self->command, $self->_profile_section ); | ||||
| 64 | 7 | 0 | for ( @sections ) { | ||||
| 65 | 21 | 0 | next if !$conf->{$_}; | ||||
| 66 | 15 | 0 | $merge = merge( $conf->{$_}, $merge ); | ||||
| 67 | } | ||||||
| 68 | |||||||
| 69 | 7 | 0 | return $merge; | ||||
| 70 | } | ||||||
| 71 | |||||||
| 72 | sub _profile_section { | ||||||
| 73 | 7 | 0 | my ( $self ) = @_; | ||||
| 74 | |||||||
| 75 | 7 | 0 | my $section = $self->command; | ||||
| 76 | 7 | 0 | $section .= '::' . $self->profile if $self->profile; | ||||
| 77 | |||||||
| 78 | 7 | 0 | return $section; | ||||
| 79 | } | ||||||
| 80 | |||||||
| 81 | 1; | ||||||