File Coverage

blib/lib/Mojar/Config.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	4	10	40.0
condition	2	6	33.3
subroutine	7	7	100.0
pod	2	2	100.0
total	41	51	80.3

package Mojar::Config;
use Mojo::Base -base;

our $VERSION = 0.042;
# Adapted from Mojolicious::Plugin::Config (3.57)

use Carp 'croak';
use Mojo::Util qw(decode slurp);

sub load {
  my ($self, $file, %param) = @_;
  $param{log}->debug(sprintf 'Reading config file (%s)', $file) if $param{log};
  croak "Failed to find file ($file)" unless -f $file or -l $file;
  my $content = decode 'UTF-8', slurp $file;
  return $self->parse(\$content, %param);
}

sub parse {
  my ($self, $content_ref, %param) = @_;

  # Run Perl code
  my $config = eval sprintf '%s%s%s', 'package Mojar::Config::Sandbox;',
      'use strict;', $$content_ref;
  croak qq{Failed to load configuration from file: $@} if not $config and $@;
  croak qq{Config file did not return a hash reference.\n}
    unless ref $config eq 'HASH';
  $param{log}->debug('Config content successfully read') if $param{log};

  return $config;
}

1;
__END__