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__

=pod

=encoding UTF-8

=head1 NAME

Dancer2::ConfigUtils - Config utility helpers

=head1 VERSION

version 2.0.1

=head1 AUTHOR

Dancer Core Developers

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2025 by Alexis Sukrieh.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut