File Coverage

blib/lib/Dancer/SearchApp/Defaults.pm

Criterion	Covered	Total	%
statement	30	35	85.7
branch	4	8	50.0
condition	5	19	26.3
subroutine	5	5	100.0
pod	1	1	100.0
total	45	68	66.1

package Dancer::SearchApp::Defaults;
use strict;
use Exporter 'import';
use Data::Diver qw;
use vars qw($VERSION @EXPORT_OK %defaults);
$VERSION = '0.05';

# This should move to Config::Spec::FromPod
# and maybe even Config::Collect
# instead of hand rolling yet another cascade

@EXPORT_OK = qw(
    get_defaults
);

%defaults = (
);

=head1 FUNCTIONS

=head2 C<< get_defaults >>

  my $config = get_defaults(
      #defaults => \%Dancer::SearchApp::Defaults::defaults,
      #env      => \%ENV,
      config   => LoadFile( 'config.yml' ),

      names    => [
          # hash-name, config-name, env-name, (hard-default)
            [ Server   => 'server' => IMAP_SERVER => 'localhost' ],
            [ Port     => 'port'   => IMAP_PORT => '993' ],
            [ User     => 'username' => IMAP_USER => '' ],
            [ Password => 'password' => IMAP_PASSWORD => '' ],
            [ Debug    => 'debug'    => IMAP_DEBUG => 0 ],
      ],
  );

Lame-ass config cascade

Read from %ENV, $config, hard defaults, with different names,
write to yet more different names
Should merge with other config cascade in Config::Collect

=cut

sub get_defaults {
    my( %options ) = @_;

    my $result = $options{ result } || {};

    $options{ defaults } ||= \%defaults; # premade defaults

    my @names = @{ $options{ names } };
    if( ! exists $options{ env }) {
        $options{ env } = \%ENV;
    };
    my $env = $options{ env };
    my $config = $options{ config };

    for my $entry (@{ $options{ names }}) {
        my ($result_name, $config_name, $env_name, $hard_default) = @$entry;

        if( defined $env_name and exists $env->{ $env_name } ) {
            #print "Using $env_name from environment\n";
            my $result_loc = DiveRef($result, split m!/!, $result_name);
            $$result_loc //= $env->{ $env_name };
        };

        my $val = Dive( $config, split m!/!, $config_name );
        if( defined $config_name and defined( $val )) {
            #print "Using $config_name from config ('$val')\n";
            my $result_loc = DiveRef($result, split m!/!, $result_name);
            $$result_loc //= $val;
        };

        if( ! defined Dive($result, split m!/!, $result_name) and defined $hard_default) {
            #print "No $config_name from config, using hardcoded default\n";
            #print "Using $result_name from hard defaults ($hard_default)\n";
            my $result_loc = DiveRef($result, split m!/!, $result_name);
            $$result_loc = $hard_default;
        };
    };
    return $result;
};


1;