File Coverage

lib/Mojolicious/Plugin/ConfigSimple.pm

Criterion	Covered	Total	%
statement	21	23	91.3
branch	8	10	80.0
condition			n/a
subroutine	4	4	100.0
pod	1	2	50.0
total	34	39	87.1

package Mojolicious::Plugin::ConfigSimple;
use Mojo::Base 'Mojolicious::Plugin';
use Config::Simple::Extended;

our $VERSION = '0.06';

sub register {
  my ($self, $app, $args) = @_;
  my $cfg;
  if(exists($args->{'config_file'})){
    unless( ref $args->{'config_file'} eq 'SCALAR' ){
      die 'config_file key requires a SCALAR';
    }
    $cfg = Config::Simple->new(
        $args->{'config_file'} );
  } elsif(exists($args->{'config_files'})){
    unless( ref $args->{'config_files'} eq 'ARRAY' ){
      die 'config_files key requires an ARRAYREF';
    }
    undef($cfg);
    foreach my $file (@{$args->{'config_files'}}){
      $cfg = Config::Simple::Extended->inherit({
          base_config => $cfg,
             filename => $file });
    }
  } else {
    die "Constructor invoked with no Confirguration File, see perldoc for details."
  }
  return wantarray ? ( \%{$cfg->vars}, $cfg ) : \%{$cfg->vars};
}

sub version {
  return <<"END";
Config::Simple => $Config::Simple::VERSION
Config::Simple::Extended => $Config::Simple::Extended::VERSION
Mojolicious::Plugin::ConfigSimple => $VERSION
END

}

1;
__END__