File Coverage

blib/lib/Dancer2/ConfigUtils.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	2	2	100.0
condition			n/a
subroutine	6	6	100.0
pod	0	1	0.0
total	26	27	96.3

package Dancer2::ConfigUtils;
# ABSTRACT: Config utility helpers
$Dancer2::ConfigUtils::VERSION = '2.0.1';
use strict;
use warnings;

use Carp;
use Module::Runtime qw{ require_module };

use Exporter 'import';
our @EXPORT_OK = qw(
    normalize_config_entry
);

my $NORMALIZERS = {
    charset => sub {
        my ($charset) = @_;
        return $charset if !length( $charset || '' );

        require_module('Encode');
        my $encoding = Encode::find_encoding($charset);
        croak
          "Charset defined in configuration is wrong : couldn't identify '$charset'"
          unless defined $encoding;
        my $name = $encoding->name;

        # Perl makes a distinction between the usual perl utf8, and the strict
        # utf8 charset. But we don't want to make this distinction
        $name = 'utf-8' if $name eq 'utf-8-strict';
        return $name;
    },
};

sub normalize_config_entry {
    my ( $name, $value ) = @_;
    $value = $NORMALIZERS->{$name}->($value)
      if exists $NORMALIZERS->{$name};
    return $value;
}

1;

__END__